Mot de passe sous format ***

[TheProdigy]

Bonjour à tous j'ai une macro que j'ai perfectionné grace à votre forum.
J'aimerais bien si je pourrais avoir un complément pr afficher le mot de passe en forme ***.
Merci à tous

Sub afficher_tout()

If InputBox("Mot de passe ?") = "123" Then
Dim n As Integer
For n = 2 To Sheets.Count
Sheets(n).Visible = True
Next n
Else: MsgBox ("Mot de passe incorrect. Réessayez!")
If InputBox("Mot de passe ?") = "" Then Exit Sub
End If
End Sub

 

[PascalXLD]

Re : Mot de passe sous format ***

Bonjour

Le mieux serait de passer par un userform au lieu de l'input box et comme cela tu peux mettre dans un textbox un caractère pour remplacer ta saisie (* ou un gros point au choix)

 

[PascalXLD]

Re : Mot de passe sous format ***

Re

Tiens je t'ai fait un petit exemple

 

[Hervé]

Re : Mot de passe sous format ***

bonjour

en complement à l'idée de pascal, la propriété passwordchar des textbox fait ca tres bien.

salut

edition : pas le temps d'enoncé une idée que pascal à déjà fait le fichier démo, trop fort.

 

[PascalXLD]

Re : Mot de passe sous format ***

Re

Oups en effet Hervé c'est à cette propriété là que je pensais et que j'ai utilisé mais j'avais oublié de le préciser

Merci du complément

 

[TheProdigy]

Re : Mot de passe sous format ***

Ok merci à tous!
Je vais essayer d'adapter vos réponses à mes besoins merci.

 

[MichelXld]

Re : Mot de passe sous format ***

bonsoir à vous

une autre solution ...

https://www.excel-downloads.com/threads/mot-de-passe-invisible.71449/


Bonne soirée
MichelXld