demande d'un password pour sauvegarder, avec conditions

kllmoon à dit:

Je procderais par nommer une variable publique (première ligne d'un module, Public stopgo As String)

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim Mypassword As String
Mypassword = toto
if stopgo = "False" then
message = InputBox("Mot de passe :", "Entrer le mot de passe Manager pour sauvegarder", "*********")
If message <> Mypassword Then
Cancel = True
MsgBox "Mauvais mot de passe, le fichier n'a PAS ETE SAUVEGARDER", vbCritical
Else 'ce que tu veux que ça fasse si tu as déjà entrer mot de passe
End If
End if
Application.OnTime Now + TimeValue("00:1:00"), "gostop"
stopgo = "True"
End Sub

Code:

private sub gotop()
stopgo = "False"
End sub

Cliquez pour agrandir...

kllmoon à dit:

Il faudrait trouver une solution pour stopper le timer j'ai testé et il semble que ma mémoire fait défaut...

Cliquez pour agrandir...

Pierrot93 à dit:

Bonjour à tous

peut être une autre solution comme ceci, à adapter à ton projet :

Code:

Option Explicit
Dim x As Date
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim mdp As String
If x = "00:00:00" Or Time > x Then
x = Time + TimeValue("00:01:00")
mdp = InputBox("mot de passe ?")
'le reste de ton code
End If
'le reste de ton code, c'est selon...
End Sub

bonne fin d'après midi
@+

Cliquez pour agrandir...