Salut Edouard,
Christian à raison chaque feuille peut être protégée individuellement par un mot.
Si toutefois tu veux t'en tenir à ta version ( un mot de passe par utilisateur et 1 général ) voici la macro.
Tu dois d'abords faire un menu avec bouton pour chaques feuilles. Au clique du bouton une fenêtre apparaitra. Faire une fenêtre comme fichier joint.
Ensuite pour chaque fenêtre, quand tu clique sur Valider tu rentre cette macro.
Private Sub CommandButton1_Click()
Dim rep2, rep3, rep4
Dim mdp As String
mdp = TextBox1.Value
If mdp = "MOT_DE_PASSE_UTILISATEUR" Then
rep2 = MsgBox("Mot de Passe Correct", vbInformation, "OK")
motdepasse.Hide
sheets("TA_FEUILLE").select
If mdp = "MOT_DE_PASSE_ADMINISTRATEUR" Then
rep2 = MsgBox("Mot de Passe Correct", vbInformation, "OK")
motdepasse.Hide
sheets("TA_FEUILLE").select
Else
rep4 = MsgBox("Mot de Passe Incorrect", vbInformation, "OK")
Exit Sub
End If
End Sub
Par contre tu dois créer une userform mot de passe pour chaque feuille et cette marcro pour chaque feuille également.
Bon courage
Ciao