Activation macro d'un classeur et feuilles masquées

Bonjour le forum ! Voilà mon problème :

1-> Je voudrais que quand un utilisateur ouvre mon classeur toutes les feuilles soit masquées avec xlSheetVeryHidden sauf Feuil1 sur laquelle se trouve un message du type "Merci d'activer les macros pour pouvoir utiliser le classeur."

2-> A partir du moment où il valide l'utilisation des macros alors on masque Feuil1 avec xlSheetVeryHidden et on montre toutes les autres feuilles.

=> Une fois l'utilisation des macros validées il faudrait que pour les prochaines fois où l'utilisateur ouvre le fichier, il n'est pas besoins de revalider l'utilisation des macros et que le classeur se trouve dans le cas de mon "2->"

Du coup je pense aussi qu'il faut, à la fermeture du classeur, remettre le classeur dans l’état initial (1->), comme ça si l'utilisateur envoi le fichier à quelqu'un d'autre il ne verra pas les feuilles sauf s'il active les macros ! Et la la boucle et bouclée

Merci de votre aide ! je met en dessous un début de piste :

Private Sub Workbook_Open()
Application.ScreenUpdating = False
    Dim sht As Object
    For Each sht In ThisWorkbook.Worksheets
        sht.Visible = xlSheetVisible
    Next sht
    ThisWorkbook.Sheets("Acceuil").Visible = xlSheetVeryHidden
Application.ScreenUpdating = True
End Sub

Bonjour,

essaie ainsi.

La feuille 1 est la feuille Accueil (et non Acceuil ).

Option Explicit

Private Sub Workbook_Open()
Dim ws As Worksheet
    Application.ScreenUpdating = False
    With ThisWorkbook
        For Each ws In .Worksheets
            ws.Visible = xlSheetVisible
        Next ws
        .Worksheets(1).Visible = 2
    End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim i As Long
    Application.ScreenUpdating = False
    With ThisWorkbook
        .Worksheets(1).Visible = -1
        For i = 2 To .Worksheets.Count
            .Worksheets(i).Visible = 2
        Next i
        If .Saved = False Then .Save
    End With
End Sub

Yes ! Ça marche nickel un grand merci !

Par contre je ne comprend pas l’utilité du "If .Saved = False Then .Save" Si on modifie des choses sur le classeur et qu'on veux pas les sauvegardées c'est embêtent

Re,

Et bien, tu supprimes la ligne !...

Cdlt.