Autoriser l'accès d'une feuille via un Mot de passe

Bonjour

J'ai trouvé ce code vba afin d'autoriser l'accès d'une feuille via un mot de passe (ci-bas). Cela fonctionne par contre lorsqu'un user ouvre le fichier il a la possibilité d'afficher toutes les feuilles alors que je ne veux pas. Le user 1 a droit de voir seulement la feuille user 1, le user 2 la feuille 2 ..... J'ai essayer des choses par contre rien ne fonctionne Quelqu'un peut m'aider ?

Merci

Private Sub Workbook_Open()

' déclaration des variables

Dim i As Integer

Dim monpassword As Variant

'afficher la feuille sommaire dès l'ouverture du classeur

Worksheets("Sommaire").Activate

'on va faire une boucle permettant de masquer toutes les autre 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 réaliser les différents tests

If monpassword = "12" Then

Sheets("User 1").Visible = True

Worksheets("User 1").Select

Range("a1").Select

End If

If monpassword = "123" Then

Sheets("User 2").Visible = True

Worksheets("User 2").Select

Range("a1").Select

End If

If monpassword = "1234" 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 = "cc" Then

For i = 1 To Sheets.Count

Sheets("User " & i).Visible = True

Next i

End If

End Sub

Bonjour,

Teste comme ceci

Tout fonctionne merci