Masquer les caractères dans un inputbox

[FaruSZ]

Bonsoir,
J'ai redige un code qui me permet d'ouvrir mon classeur en introduisant un mot de passe dans un inputbox comme suit:
Private Sub bdd_Click()
mdp = InputBox("Entrer le mot de pase de consultation : ", "Accés ficher FA")
If mdp = ThisWorkbook.Worksheets("config").Range("E2").Value Then
Unload Me
ThisWorkbook.Application.Visible = True
End If
End Sub

Est ce que y a t il un moyen qui me permet de masquer les caractères et les remplacer par des étoiles **** ?
Merci

 

[JM27]

Bonsoir
non avec une input box.
il faut passer par un userform avec une text box et PasswordChar pour la propriété

 

[FaruSZ]

Bonsoir
non avec une input box.
il faut passer par un userform

D'accord merci.

 

[fanch55]

Bonsoir, userform non obligé
Il faut insérer un textbox dans une cellule avec la propriété passwordchar = "*" et tester sa valeur

Code suivant:

Private Sub TextBox1_Change()
    If TextBox1 = "toto" Then
        MsgBox "password=" & TextBox1 & vbLf & "bravo"
    End If
End Sub

 

[JM27]

bonsoir
ci joint un exemple à adapter

 

[job75]

Bonsoir,

Etoiles dans InputBox ? Voyez cette solution très récente :

https://www.excel-downloads.com/thr...-place-des-caracteres.20047132/#post-20346366

A+