XL 2010 masquer MDP macro

[mix770]

Bonjour le Forum,

questiounette du jour,
j'ai un tableau Excel avec un onglet que l'on ne peut ouvrir qu'avec mot de passe, j'ai une macro qui fonctionne mais je souhaiterai que les caractères ne s'affichent pas à la saisie.

merci de votre aide

Sub WordPass()
Dim WP As String
WP = InputBox("Saisir votre mot de passe")
If WP <> "CTRL_BPE" Then '
MsgBox "ERREUR MOT DE PASSE": Exit Sub
Else
If Sheets("Importation").Visible = True Then
Sheets("Importation").Visible = False
Sheets("Impotation").Select
Else
Sheets("Importation").Visible = True
Sheets("Importation").Select
End If
End If
End Sub

 

[cp4]

Bonjour,

Je pense que ce n'est pas possible avec une inputbox.
Par contre, avec textbox d'une userform c'est possible,
en utilisant l'une des propriétés de la textbox (PASSWORDCHAR).

 

[mix770]

merci pour ta reponse, j'ai entendu parler du InputboxDk, mais je vois pas comment adapter

 

[cp4]

merci pour ta reponse, j'ai entendu parler du InputboxDk, mais je vois pas comment adapter

C'est la première fois que j'en entends parler. Désolé, je ne connais pas mais je vais faire des recherches sur Google.
Bonne journée.

 

[cp4]

Voici ce que j'ai trouvé très très rapidement, à voir si ça répond à tes besoins
ICI--->https://forum.excel-pratique.com/viewtopic.php?p=125762&sid=ca1fc318db8442bf94de3b226677a7bf#p125762

Le plus simple serait de passer par une userform à mon avis.

 

[mix770]

je vois pas comment faire avec un userform dans ce cas, tu as des exemples ?
merci à toi

SUPER ton lien je garde !!
merci à toi

 

[cp4]

un exemple

 

[Chris24]

Bonjour mix770, cp4

Regarde le post #8 de ce lien tu pourras t'en inspirer
www.excel-downloads.com/threads/recuperation-de-son-fichier-xlsm.20022786/

Cdt

 

[mix770]

merci à vous, je regarde, c'est intéressant avec un userform.
je reviens vers vous.

 

[Staple1600]

Bonjour le fil, le forum

Bonjour,
Je pense que ce n'est pas possible avec une inputbox.

Si c'est possible, en passant par le chemin de l'API
Voir le lien que je postais dans ce fil en 2013
(et salutations au passage à un ancien d'XLD: MyDearFriend)

 

[cp4]

Bonsoir JM,

Merci pour ton lien, c'est bon à savoir.
J'ai voulu aider en répondant avec ce que je connais.

Bonne soirée.

 

[Staple1600]

Re

@cp4
Et moi j'ai juste voulu promouvoir l'usage immodéré de la loupe en haut à droite