Protege une feuil masque avec un mot de passe via VBA

j'ai un fichier avec plusieurs fiche caches et j'aime bien surtout la feuil cache qui porte la partie financier d'etre cache et en cas quelqu'un vu l'affiche il y a une boite de dialogue qui demande le mot de passe

comment je peux faire

ci dessous un code que j'ai deja ecrire mais il marche pas

[*]

Sub visible()

Dim Mdp

retour:

Mdp = InputBox("Entrez le mot de passe", "Avertissement : l'accès aux Feuilles est sécurisé ")

If Mdp = "123456" Then Exit Sub

If Mdp <> "toto" Then Exit Sub

Worksheets("toto").visible = True

End Sub

ci joint le fichier pour faire le test

Bonjour

Un essai. Te convient-il ?

Mot de passe : "ok"

Bye !

Bonjour,

tu peux essayer comme ça :

Sub acces_feuille_toto()

'accès feuille toto
rep = MsgBox("Connais-tu le mot de passe?", vbYesNo + vbQuestion, "Accès feuille toto")
If rep = vbYes Then
mdp = "123456"
If InputBox("Saisie du mot de passe :", "Accès feuille toto") = mdp Then

'déverouillage feuille toto
    Sheets("toto").Visible = xlSheetVisible
    Sheets("toto").Select

Else: End If
Else: End If

End Sub

ca reponde parfaitement a ma problematique merci beaucoup les amis.

Cdt,

Mayouga