Excel VBA - Comment accéder à une feuille avec un Password

Cette vidéo va vous montrer comment accéder à une feuille grâce à un Mot de passe.

ci-dessous le code :

Private Sub Workbook_Open()

'Déclaration des variables
Dim i As Integer
Dim MonPassword As Variant

On Error GoTo 1

'Afficher la feuille Sommaire dès l'ouverture du Classeur
Worksheets("Sommaire").Activate

'On faire une boucle permettant de masquer toutes autres feuilles
For i = 1 To Sheets.Count - 1
Sheets("User " & i).Visible = False
Next i

' On va récupérer le code ou mot de passe dans une boite de type InputBox
MonPassword = InputBox("Veuillez entrer votre mot de passe pour accéder à votre feuille :", "Identification")

'On va réaliser les différents test

If MonPassword = "1234" Then

Sheets("User 1").Visible = True
Worksheets("User 1").Select
Range("A1").Select

End If

If MonPassword = "12345" Then

Sheets("User 2").Visible = True
Worksheets("User 2").Select
Range("A1").Select

End If

If MonPassword = "123456" Then

Sheets("User 3").Visible = True
Worksheets("User 3").Select
Range("A1").Select

End If

'Ouvrir toutes les feuilles si mot de passe administrateur

If MonPassword = "1234567" Then

For i = 1 To Sheets.Count
Sheets("User " & i).Visible = True
Next i

End If
1
End Sub