Macros caher les feuills à la fermetur du classeur

Option Explicit
' a la fermeture
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

End Sub
'a l'ouverture
Private Sub Workbook_Open()

End Sub

'Déclare la variable objet Worksheet
Dim Ws As Worksheet
'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris
'en compte.
'ThisWorkbook correspond à l'objet classeur contenant la macro
For Each Ws In ThisWorkbook.Worksheets
    If Ws.Name = "Feuil1" Then 'il faut garder une feuille visible a adapter au nom de la feuille
    Else
    Sheets(Ws.Name).Visible = False = Sheets(Ws.Name).Visible = True
   End If
Next Ws