le Code VBA :
‘**************************************************** ‘ Procédure permettant d’accéder à une feuille ‘ grâce à une identification par mot de passe ‘****************************************************
Private Sub Workbook_Open()
‘Déclaration des variables
Dim i As Integer
Dim MonPassword As Variant
‘Gestion des erreurs
On Error GoTo 1
‘On ouvre le classeur sur la feuille Sommaire
Worksheets(« Sommaire »).Activate
‘On boucle pour mettre toutes les feuilles commençant par User invibles
For i = 1 To Sheets.Count – 1
Sheets(« User » & i).Visible = False
Next i
‘On récupère le code saisie dans une InputBox
MonPassword = InputBox(« Veuillez entrer votre password pour accéder à votre feuille : » _ , « Identification »)
‘On réaliser les différents tests de code afin d’afficher le formulaire adéquat
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
If MonPassword = « 1234567 » Then
For i = 1 To Sheets.Count
Sheets(« User » & i).Visible = True
Next i
End If
1
End Sub