Salut,
J'ai fait une macro qui arrive à peux près au même résultat à la difference que je verouille les feuilles en ecriture au départ et que je déverouille ou non les feuilles en fonction du password.
Si tes feuilles sont protégées c'est bon personne ne peux ecrire dessus !
voila le code adaptes le selon tes besoins, je protege 4 feuilles :
++
Creepy
--------------Initialisation de la feuille avec les protections------------------
Private Sub Workbook_Open()
Feuil1.Protect PassWord:="Dede", DrawingObjects:=True, Contents:=True, Scenarios:=True
Feuil2.Protect PassWord:="Dde", DrawingObjects:=True, Contents:=True, Scenarios:=True
Feuil3.Protect PassWord:="Dede", DrawingObjects:=True, Contents:=True, Scenarios:=True
Feuil4.Protect PassWord:="Dede", DrawingObjects:=True, Contents:=True, Scenarios:=True
-------------- A mettre dans ton bouton "validez" -----------------
Dim Ki as variant
PassWord.Show
Ki = PassWord.TxtPsw.Value <- J'ai fait une userform pour avoir accès au * à la place des caractères mais tu peux faire une Inputbox.
Select Case Ki
Case "adminastrateur"
Feuil1.Unprotect PassWord:="Creepy"
Feuil2.Unprotect PassWord:="Creepy"
Feuil3.Unprotect PassWord:="Creepy"
Feuil4.Unprotect PassWord:="Creepy"
Case else
Case Else
MsgBox "Mauvvais mot de passe"
end select
end sub
Voila je pense que cela t'aidera