Macro fermer les onglets

Bonjour à tous,

Je vous explique mon problème :

j'ai un fichier excel qui nécessite à l'ouverture d'entrer un mot de passe pour ouvrir un/plusieurs onglet(s) (selon l'accès que l'on a).

Je souhaite faire en sorte que lorsqu'on ferme le fichier, tous les onglets se ferment automatiquement (hormis l'onglet d'accueil, où l'on saisit le mot de passe).

Quelqu'un sait-il s'il existe une macro qui pourrait m'aider ?

Merci beaucoup pour votre aide, et bonne journée!

Bonjour 3Hi

Voici un code à mettre dans ThisWorkbook

Evènement BeforeClose

    ' Désactiver les erreurs et la mise à jour de l'écran
    On Error Resume Next
    Application.ScreenUpdating = False
    ' Afficher la feuille d'Accueil
    Sheets("Accueil").Visible = True
    ' Masquer les fenêtres
    For Ind = 1 To ThisWorkbook.Sheets.Count
      If Sheets(Ind).Name <> "Accueil" Then
        Sheets(Ind).Visible = xlVeryHidden
      End If
    Next Ind
    ' Réactiver les erreurs et l'écran
    On Error GoTo 0
    Application.ScreenUpdating = True

A+

Bonjour Bruno,

Merci beaucoup pour votre réponse !

Pardonnez moi mais je suis débutant en VBA

J'ai copié-collé votre code en allant dans "Visual Basic" > "this workbook" et j'ai commencé le code par :

Sub ThisWorkbook_BeforeClose()

Cependant, cela ne fonctionne pas... Pouvez-vous m'aider?

1000 mercis!

Bruno,

En cherchant un peu seul, j'ai trouvé !

Dsl pour le dérangement et merci encore

Re,

Désolé de ne pas avoir suivi le fil, mais tu t'es débrouillé c'est le principal

A+