Bonjour,
L'idée serait la suivante : Créer un UserForm, qui demande un mot de passe... Dis moi si cela te pose un problème ?
Protéger la feuille avec un mot de passe quelconque, disons PASSWORD.
Puis, en fonction de la réponse donnée par l'utilisateur,
Sub utilisateur1 ()
Sheets("ZAZA").Activate
ActiveSheet.Unprotect ("PASSWORD") 'ça, c'est TON mot de passe
'déverrouiller les cellules B14 a J46
Range("A14:J46").Select
Selection.Locked = False
'Protéger la feuille :
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="PASSWORD"
End Sub
En ce qui concerne le UserForm, je dois t'avouer que je ne suis pas hyper doué, mais de nombreux fils en parlent....
L'idée ce serait de fait une autre macro disant :
If...... = toto Then 'Mot de passe utilisateur N° 1
End If
utilisateur1
If..... = tata Then 'Mot de passe utilisateur N° 2
End If
utilisateur2
Etc Etc....
Le seul problème, c'est que les utilisateurs ne pourront pas changer de mot de passe....
A +
William