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