XL 2013 VBA Masquer 5 feuilles de calcul et commande bouton pour les faire apparaître

Re : VBA Masquer 5 feuilles de calcul et commande bouton pour les faire apparaître

Bonjour,

Remplace le code par celui-ci :

Sub voirfeuille()
If InputBox("Mot de passe ?") = "toto" Then
If Sheets("Page2").Visible = True Then Sheets("Page2").Visible = False Else Sheets("Page2").Visible = True
If Sheets("Page3").Visible = True Then Sheets("Page3").Visible = False Else Sheets("Page3").Visible = True
If Sheets("Page4").Visible = True Then Sheets("Page4").Visible = False Else Sheets("Page4").Visible = True
If Sheets("Page5").Visible = True Then Sheets("Page5").Visible = False Else Sheets("Page5").Visible = True
If Sheets("Page6").Visible = True Then Sheets("Page6").Visible = False Else Sheets("Page6").Visible = True

End If
End Sub

Si les feuilles sont masquées , le bouton les rend visibles et réciproquement


a+

Re : VBA Masquer 5 feuilles de calcul et commande bouton pour les faire apparaître

Merci pour ta célérité CHALET53,

On y est presque!

1) J'ai copié ton code dans le module1 en lieu et place de l'ancien, mais à la réouverture du classeur, les onglets 2,4,5 et 6 restent apparents

2) Qu'est-ce que je fais du code existant dans le workbook ?

Re : VBA Masquer 5 feuilles de calcul et commande bouton pour les faire apparaître

Si tu n'en as pas besoin, tu le supprimes

Re : VBA Masquer 5 feuilles de calcul et commande bouton pour les faire apparaître

C'est bon, j'ai trouvé. J'ai recopié la même ligne pour les autres pages dans workbook.
C'est parfait!
Merci CHALET53

@+