Tu dois premièrement créer un UserForm pour entrer le mot de passe
Sur click d'un bouton "OK", tu vérifies le mot de passe entré et dirige l'utilisateur vers sa feuille
Sheets(NomDeLaFeuille).Activate
Si le mot de passe n'est pas valide, tu le diriges vers une feuille accessible à tous.
Pour afficher ton UserForm, tu dois mettre UserForm1.Show dans l'événement Activate de chaque feuille sauf la feuille de départ accessible à tous
Private Sub Worksheet_Activate()
UserForm1.Show
End Sub
Je pense que ça devrait bien fonctionner ainsi...
MPi