macro cacher plusieurs feuilles

[ced91300]

bonjour à tous,

j'ai une macro pour cacher 1 page (nommée "tab") elle fonctionne très bien, je voudrais y rajouter une 2eme page (nommée "graph") mais je n'y arrive pas afin que la macro me cache tab et graph


merci
cordialement


Sub Cache()
For i = 1 To 5
Worksheets("tab").Visible = xlSheetHidden
Next i
End Sub
Sub Décache()
Dim nbressais As Byte
Dim Mdp
retour:
Mdp = InputBox("Entrez le mot de passe", "Avertissement : l'accès aux Feuilles est sécurisé ")
If Mdp = "" Then Exit Sub
If Mdp = "toto" Then
For i = 1 To 5
Worksheets("tab").Visible = xlSheetVisible
Next i
For Each Ctrl In Sheets("Tab").OLEObjects
If Ctrl.progID = "Forms.CommandButton.1" Then Ctrl.Object.Caption = "Cacher les Feuilles"
Next Ctrl
Else
nbressais = nbressais + 1
If nbressais = 3 Then
MsgBox "Ce classeur va se fermer."
ThisWorkbook.Close SaveChanges:=False
End If
MsgBox "Mot de passe incorrect."
GoTo retour
End If
End Sub

 

[ced91300]

Re

ced91300
Tu n'aurais pas zappé le message#8 par hasard?

Sinon Jacky67 t'avais proposé : xlSheetVeryHidden
Ce n'est pas ce qu'on dans ton dernier message.

Bonsoir,
Merci effectivement j'ai corrigé par xlSheetVeryHidden ca semble être bon , n'étant pas très doué avec excel et aussi ses macro, n'hésitez à me dire si des choses choque dans ma macro, je suis preneur des corrections et des conseils, j'essai de faire sans qu'on me le fasse afin aussi de comprendre

En tout cas merci à tous vous êtes super