Discussion :

[Un Internaute]

Bonsoir le forum,
J'ai 4 feuilles dont une qui ai toujours visible nommée "Menu"
Je voudrais à l'ouverture du fichier démasquer les 3 autres feuilles.
J'ai essayé mais je butte sur un conflit Private dans ThisWorkbook.
Merci pour vos éventuels retours
Bonne fin de soirée

[Invité]

Bonjour,

Quel est votre code dans ThisWorkbook ?

[Un Internaute]

Bonjour,

Quel est votre code dans ThisWorkbook ?

Bonsoir Eric KERGRESSE,
Je l'ai jeté mais j'ai celui-ci à la fermeture.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
Worksheets("MENU").Visible = True
For I = 2 To Worksheets.Count
Worksheets(I).Visible = False
Next
Me.Save
End Sub

Donc un truc de ce style mais comme j'ai d'autres Private
A+
Merci

[Invité]

Quel est l'intérêt de les rendre invisibles à la fermeture dans ce cas ?

[Un Internaute]

Quel est l'intérêt de les rendre invisibles à la fermeture dans ce cas ?

Donc pas possible.
Merci quand même
Bonne fin de soirée
Bien cordialement

[Invité]

Sinon, essayez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Workbook_Open()
 
Dim I As Integer
 
    With ThisWorkbook
         For I = 1 To .Sheets.Count
             If .Sheets(I).Name <> "MENU" Then .Sheets(I).Visible = True
         Next I
    End With
 
End Sub

[Un Internaute]

Oui ok mais conflit avec d'aures Private dans Workbook
Je n'ai JAMAIS su résoudre ce problème.
A+ peut-être
Cordialement

[Invité]

Ces sont des événements ?

Essayez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Workbook_Open()
 
Dim I As Integer
 
    Application.EnableEvents = False
    With ThisWorkbook
 
         For I = 1 To .Sheets.Count
             If .Sheets(I).Name <> "MENU" Then .Sheets(I).Visible = True
         Next I
    End With
    Application.EnableEvents = True
 
End Sub