Afficher/Masquer Feuilles selon MDP (Macro)

Bonjour à tous,

Je souhaiterais savoir si vous pouviez m'indiquer le code VBA permettant d’afficher des feuilles après avoir rentrer un mot de passe. Mais aussi le code VBA qui permet de masquer ces mêmes feuilles via le même mot de passe.

Je souhaiterais créer deux boutons et leurs affecter les deux macros précédentes.

Merci à vous

Bonjour CRIQUIER, le forum,

A tester:

Sub AfficherMasquer()

      Dim sPass As String
          sPass = InputBox("Veuillez saisir le mot de passe")

If sPass <> "test" Then        'mot de passe "test" à modifier
   MsgBox "Mot de passe erroné"
Exit Sub
End If

If sPass = "test" Then

'If Sheets("Feuil1").Visible = True Then          'si on Affiche/masque la feuil1
'Sheets("Feuil1").Visible = False
'Else
'If Sheets("Feuil1").Visible = False Then
'Sheets("Feuil1").Visible = True

For Each sh In Array("feuil1", "Feuil2")          'si on affiche/masque les feuilles 1 et 2
       If Sheets(sh).Visible = True Then
       Sheets(sh).Visible = False
       Else
       If Sheets(sh).Visible = False Then
       Sheets(sh).Visible = True

 End If
 End If

    Next sh

End If

End Sub

Cordialement,