Afficher/Masquer Feuilles selon MDP (Macro) II

Bonjour à tous,

Je vous remercie par avance de vous pencher sur ma problématique et potentiellement d'y apporter une réponse.

Je souhaiterais connaître le code VBA permettant de :

1. Afficher des feuilles préalablement masquées, selon l'entrée d'un mot de passe différent pour chaque feuille.

2. Utiliser l'InputBox

3. Que les feuilles restent complètement invisible si l'utilisateur ne rentre pas le bon mot de passe

4. Que les feuilles se masquent automatiquement à la fermeture du ficher que celui-ci soit fermer ou non

Voici le début de mon travail:

Private Sub Workbook_Open()

'Déclaration des variables

Dim MonPassword As Variant

'Afficher EQUIPE dès l'ouverture du fichier

Worksheets("EQUIPE").Activate

'Masquer toutes autres feuilles

Sheets("BD1").Visible = False

Sheets("BD2").Visible = False

Sheets("BD3").Visible = False

Sheets("BD4").Visible = False

'Demander mot de passe

MonPassword = InputBox("Veuillez entrer le mot de passe :", "Identification")

'Réaliser les tests

If MonPassword = "1234" Then

Sheets("BD1").Visible = True

Sheets("BD2").Visible = True

Sheets("BD3").Visible = True

Sheets("BD4").Visible = True

End If

End Sub

Je vous remercie !

Bonjour,

à tester,

Private Sub Workbook_Open()
test
End Sub

Sub test()
Dim MonPassword As  String
Worksheets("EQUIPE").Activate

For Each sh In Worksheets
 If sh.Name <> "EQUIPE" Then sh.Visible = False
Next

MonPassword = InputBox("Veuillez entrer le mot de passe :", "Identification")

Select Case MonPassword
 Case 1234: Sheets("BD1").Visible = True
 Case 1235: Sheets("BD2").Visible = True
 Case 1236: Sheets("BD3").Visible = True
 Case 1237: Sheets("BD4").Visible = True
End Select
End Sub

ps/ il faudrait masquer toutes les feuilles sauf "EQUIPE" à la fermeture du classeur.