Masquer automatiquement des feuilles

[Boby71C]

Bonjour
J'ai créé un petit code VBA pour masquer certaines feuilles dans un fichier Excel.
Voici le code:
Sub Masquer_Feuilles()
'
' Masquer_Feuilles Macro
' Touche de raccourci du clavier: Ctrl+m
'
Sheets('Emet').Visible = False
Sheets('Nat_Doc').Visible = False
Sheets('Confid').Visible = False
Sheets('Syst_Proc').Visible = False
Sheets('Instal').Visible = False

End Sub
Est-il possible d'automatiser cette macro à la fermeture du fichier si l'on oubli de les masquer ?
Il ne faud surtout pas qu'elles s'ouvrent à l'ouverture du fichier.
Merci pour votre aide
@+

 

[JYLL]

Bonsoir Boby,

Dans la feuille ThisWorkBook tu mets ta macro dans le fonction BforeClose.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets('Feuil3').Visible = False
End Sub

Bon test.

Amicalement.

Jean-Yves

 

[Boby71C]

Bonjour Jean Yves et le forum

Essai trés concluant
Merci beaucoup pour ton aide

@+