bonjour voila ce que j'utilise
une msg box qui me demande un code d'acces pour voir une feuil masquée
Private Sub Paramètres()
Dim x As String
x = InputBox(" Saisir le code d'accès.", " CODE D'ACCÉS AUX DIFFÉRENTS PARAMÈTRES.", " Password !")
If x = ("toto") Then
ActiveWorkbook.Protect password:="ton mot de passe", structure:=False, Windows:=True
Application.ScreenUpdating = False
Sheets("lafeuilenquestion").Visible = True
Sheets("lafeuilenquestion").Select
End If
End Sub
et quand je ressort de la feuil , vers une feuil nommée " sommaire"
Private Sub pass_visible()
Sheets("sommaire").Select
Sheets("lafeuilenquestion").Visible = False
ActiveWorkbook.Protect password:="ton mot de passe", structure:=True, Windows:=False
End Sub
en esperant te donner une piste possible
bonne soirée
evelyne