bonjour à tous
j'ai protégé la visualisation d'une feuille
pour lever cette protection j'utilise le code suivant
Dim q$
q = InputBoxPwd("entrer le mot de passe", "vérifications des droits")
If q <> "cacz" Then Exit Sub
ActiveWorkbook.Unprotect (q)
Sheets("Feuil3").Visible = True
Sheets("Feuil3").Select
Exit Sub
ErrorHandler:
MsgBox ("Le mot de passe entré est erronné")
le problème c'est que si le vbaproject est aussi protégé par un mot de passe ma commande de déverrouillage ne fonctionne plus
auriez vous une idée ?
Merci
j'ai protégé la visualisation d'une feuille
pour lever cette protection j'utilise le code suivant
Dim q$
q = InputBoxPwd("entrer le mot de passe", "vérifications des droits")
If q <> "cacz" Then Exit Sub
ActiveWorkbook.Unprotect (q)
Sheets("Feuil3").Visible = True
Sheets("Feuil3").Select
Exit Sub
ErrorHandler:
MsgBox ("Le mot de passe entré est erronné")
le problème c'est que si le vbaproject est aussi protégé par un mot de passe ma commande de déverrouillage ne fonctionne plus
auriez vous une idée ?
Merci
