Cacher des feuilles et mot de passe

[Ji-AiR]

Bonjour le Forum,

Voilà je tente de cacher 2 feuilles de mon classeur, et de les faire apparaitre grace à un bouton et un mot de passe.
Mes problèmes : Je n'arrive pas à faire apparaitre les 2 feuilles en même temps. Et j'aimerai quelles restent ouverte jusqu'a ce que je ferme Excel, car là dès qu'on bouge de la feuille elle se cache et il faut refaire le mot de passe à chaque fois.

Voilà mon code :

Private Sub CommandButton1_Click()
If TextBox1 <> "mt" Then
MsgBox "Incorrect. Tentative : 2"
TextBox1.SetFocus
Exit Sub
End If
Unload Me
With Sheets(2)
.Visible = True
.Activate
With Sheets(3)
.Visible = True
.Activate
End With
End With

Je tiens quand même à dire que je suis très nul en VBA alors pardonnez moi d'éventuelles horreur...

Merci à tous.

 

[Ji-AiR]

Re : Cacher des feuilles et mot de passe

Ah d'accord !! Merci bien, c'est gentil.

 

[Ubot303]

Re : Cacher des feuilles et mot de passe

Ji-air : petit détail mais le "remasquage" de tes onglets ne sera fait avec mon bout de code que si l'utilisateur ferme "proprement" Excel...

Une sauvegarde alors que les onglets sont visibles puis un ctrl+alt+suppr en "tuant" Excel doit chuinter la procédure déclenchée à la fermeture de Excel, à savoir le remasquage des onglets...

Sans doute un détail...