afficher feuille masqué ( xlSheetVeryHidden ) par un PW

[Ilino]

Bonjour forum
Je reviens a vos compétences pour m’aider a résoudre mon souci ci-dessous :
J’ai une feuille « Feuil3 » masqué par option propriété : - 2 - xlSheetVeryHidden
Dans une autre feuille « MENU » j’ai inséré un bouton pour faire afficher la feuille « Feuil3 »
J’ai utilisé ce code

Private Sub CommandButton1_Click()
With Sheets("Feuil3")
    If .Visible = xlSheetVisible Then .Activate
    If .Visible = xlSheetVeryHidden Then MsgBox "n'est pas disponible"
    
End With
End Sub

Jusqu'à ICI ça marche, mais j’ai souhaité afficher la feuille « feuil3 » par un mot de passe :
C a d si je clic sur le bouton et la feuille est masqué faire apparaitre une fenêtre de mot de passe par afficher la feuille.. Est-il possible
grazie

 

[Ilino]

Re : afficher feuille masqué ( xlSheetVeryHidden ) par un PW

Forum Bonjour
j'ai trouvé et j'ai combiné entre les deux code

Private Sub CommandButton1_Click()
If Me.TextBox1 <> "yes" Then Exit Sub
For Each f In Worksheets
f.Protect MDP
Next
With Sheets("Feuil3")
    If .Visible = xlSheetVeryHidden Then .Visible = xlSheetVisible
' Mon souci est a ce niveau Rendre Invisible la feuille 3 une fois je selectionne une autre feuille ou je sort de cette derniere--------- >Sheets("Feuil3").Visible = False  
End With
Unload Me

End Sub

A+