Cacher mot de passe sur Feuille Excel

Bonjour,

J'ai trouvé sur ce forum, dans un sujet, un code VBA pour "cacher" une feuille d'un classeur avec un mot de passe.

Tout fonctionne avec le code suivant :

Private Sub Worksheet_Activate()

Dim REP As String

Columns("A:XFD").EntireColumn.Hidden = True

REP = InputBox("PASSWORD", "OUVERTURE FEUILLE RECAP ASSO")

If REP = "YOURPASSWORD" Then

Columns("A:XFD").EntireColumn.Hidden = False

ActiveSheet.Cells(1, 1).Select

End If

End Sub

Je souhaiterai améliorer un peu le système, car lorsque l'utilisateur doit entré le mot de passe pour avoir accès à la feuille, le mot de passe s'affiche, enfin ce que tape l'utilisateur s'affiche dans la fenêtre où il faut entrer le mot de passe.

Je souhaiterais que le mot de passe ne s'affiche pas et que ce soit des étoiles (****) ou point noir lorsque je tape le mot de passe.

J'ai joint une capture d'écran pour que ce soit plus clair

Merci d'avance pour votre aide précieuse !

Bonne soirée à vous !

Maxou69

26doc1.docx (30.57 Ko)

Bonsoir,

je ferais un truc du genre.

Ps : mdp = PASSWORD

Cordialement

29maxou69.xlsb (25.49 Ko)

Hello bigdaddy154,

merci pour ton aide !

Y'a t-il possibilité de codé le MDP avec un Inputbox et non un userform (textbox) ?

Merci !

Bonne journée :

Maxou69

Bonjour,

à ma connaissance non mais je n'ai pas la prétention de tout connaître peut être quelqu'un pourras apporter sa pierre à ton édifice.

Cordialement.

Rechercher des sujets similaires à "cacher mot passe feuille"