Fermeture automatique d'un fichier excel

j'espère que ce n'est pas moi qui ait fait planté le site : milles excuses !!!
je voulais ajouter que cette macro doit être installée dans un module pour pouvoir fonctionner en auto open

Bonjour tout le monde,
Bonjour H_sergio,
Que se passe t'il, avec ta méthode, si l'utilisateur ouvre le fichier sans activer les macros?

et bien effectivement , mon système tombe à l'eau

Donc en fait, il faut 2 choses :
I- à l'ouverture du classeur (Workbooks_Open) :
1- masquer toutes les feuilles "utiles" du classeur (avec la propriétés de WorkSheets visible = xlveryhidden pour que l'on ne puisse pas les afficher avec la commande Format//Afficher)
2- Vérifier la date
3- selon le test de 2- demander ou pas un mot de passe.
II- A la fermeture du classeur (WorkBooks_before_close) :
1- masquer toutes les feuilles "utiles" du classeur (avec la propriétés de WorkSheets visible = xlveryhidden pour que l'on ne puisse pas les afficher avec la commande Format//Afficher)
2- Enregistrer

Le problème étant qu'un enregistrement automatique est source de multiples coquilles......
ci-joint un classeur exemple
Avec ce code :

Option Explicit

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Wsh As Worksheet

For Each Wsh In ThisWorkbook.Worksheets
    If Wsh.Name <> "Feuil2" Then
        Wsh.Visible = xlVeryHidden
    End If
Next
ActiveWorkbook.Save
End Sub

Private Sub Workbook_Open()
Dim Wsh As Worksheet
Dim Motdepass As String
Dim Cpt As Byte

For Each Wsh In ThisWorkbook.Worksheets
    If Wsh.Name <> "Feuil2" Then
        Wsh.Visible = xlVeryHidden
    End If
Next
'test si date
'demande mot de passe
For Cpt = 1 To 3
    Motdepass = InputBox("Saisie : ", "Mot de passe")
    If Motdepass = "toto" Then Exit For
Next
If Motdepass = "toto" Then
    For Each Wsh In ThisWorkbook.Worksheets
        Wsh.Visible = True
    Next
Else
    MsgBox "3 mauvais password, l'application va fermer"
    Application.Quit
End If
End Sub