Mots de passe avec Select Case

Bonjour,

Je souhaite créer un fichier avec plusieurs onglets, avec chacun un mot de passe. Le but étant que chaque salarié ait son propre mot de passe et qu'il n'accède qu'à son propre onglet.

J'ai utilisé la formule :

Select Case Saisie

   Case "" (pas de mot de passe)
        Application.EnableEvents = True
        ThisWorkbook.Save
        ThisWorkbook.Close
        End

        Case "mot de passe Admin"
            For i = 1 To nbfeuilles
                ThisWorkbook.Sheets(i).Visible = True
            Next i

Et j'ai ajouté un "Case "...."" par mot de passe de chaque salarié.

Cependant, si en ouvrant mon fichier j'entre un mot de passe non répertorié dans mes differents "Case" dans VBA, le fichier s'ouvre sans exécuter de macro.

Quelle formule pourrais-je utiliser pour que, lorsque quelqu'un entre un mot de passe non répertorié, le fichier se ferme ?

Merci de votre aide,

Cloé

bonjour,

mais ceci comme dernières instructions avant le end select

Case else
        Application.EnableEvents = True
        ThisWorkbook.Save
        ThisWorkbook.Close
        End
end select

Bonjour,

Merci beaucoup pour ton aide, c'est impeccable !!

Bonne journée