demande d'un password pour sauvegarder, avec conditions

[Poto]

Bonjour à tous,

j'utilise actuellement une petite macro pour demander un password lors de la sauvegarde d'un classeur, elle se presente ainsi :

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

Dim Mypassword As String
Mypassword = toto

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
End If
End Sub

elle fonctionne parfaitement, mais j'essaye desesperement depuis plusieurs jours à conditionner l'apparition de l'inputbox de telle maniere que si l'utilisateur à rentrer le mot de passe il y'a moins d'une minute (par exemple), la macro ne redemande pas le mot de passe.

merci d'avance à tous 😉

 

[kllmoon]

Re : demande d'un password pour sauvegarder, avec conditions

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

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

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

 

[Poto]

Re : demande d'un password pour sauvegarder, avec conditions

Salut Kllmoon, merci beaucoup pour ton aide, mais je dois avouer que je ne comprend pas tres bien la procedure a suivre pour mettre en place ton code, pourrais tu m eclairer un peu ??

merci encore 😉

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

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

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

 

[kllmoon]

Re : demande d'un password pour sauvegarder, avec conditions

Pour ta macro existante, remplace la par ceci. Tu dois la mettre dans ThisWorkbook :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Mypassword As String
If stopgo = "False" Then
Mypassword = "toto"
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
End If
End If
Application.OnTime dTime, "gostop", False
Application.OnTime Now + TimeValue("00:01:00"), "gostop"
stopgo = "True"
End Sub

Ensuite dans un module copie ceci :

Public stopgo As String

Private Sub gostop()
stopgo = "False"
End Sub

Voilà, tout devrait fonctionner comme tu le souhaites.

 

[camarchepas]

Re : demande d'un password pour sauvegarder, avec conditions

Voici une autre solution :

 

[Poto]

Re : demande d'un password pour sauvegarder, avec conditions

merci bcp Kllmoon et Camarche pas, je test vos solutions et je vous tiens au courant 😉

merci encore

 

[kllmoon]

Re : demande d'un password pour sauvegarder, avec conditions

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

 

[Pierrot93]

Re : demande d'un password pour sauvegarder, avec conditions

Bonjour à tous

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

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
@+

 

[Poto]

Re : demande d'un password pour sauvegarder, avec conditions

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

je viens de voir ton message, j ai mis la solution de camarchepas en place du coup, qui fonctionne aussi tres bien 😉

merci vraiment a vous 2

 

[Poto]

Re : demande d'un password pour sauvegarder, avec conditions

merci pierrot, je vais tester cette methode aussi

htx 😉

Bonjour à tous

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

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
@+