Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Mot de passe invisible

Mot de passe invisible

2 réponses
Avatar
GGAL
Bonjour,

Dans une procédure je souhaiterais une saisie du mot de passe, mais non
visible, ou remplacer chaque caractère par des *.

Par exemple à partir la procédure

Sub test()
Dim mdp As String
mdp = "bonjour"
If InputBox("Entrez le mot de passe") = mdp Then
MsgBox ("OK")
End If
End Sub


Merci,

GGAL
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

Utiliser un formulaire. Modifier la propriété PasswordChar

Private Sub b_ok_Click()
If Me.TextBox1 = "toto" Then
MsgBox "ok"
Unload Me
Else
MsgBox "erreur"
Me.TextBox1 = ""
Me.TextBox1.SetFocus
End If
End Sub

http://boisgontierjacques.free.fr/pages_site/FormulaireMotPasse.htm

JB
http://boisgontierjacques.free.fr

On 7 mar, 08:44, GGAL wrote:
Bonjour,

Dans une procédure je souhaiterais une saisie du mot de passe, mais non
visible, ou remplacer chaque caractère par des *.

Par exemple à partir la procédure

Sub test()
Dim mdp As String
mdp = "bonjour"
If InputBox("Entrez le mot de passe") = mdp Then
MsgBox ("OK")
End If
End Sub

Merci,

GGAL


Avatar
GGAL
Merci beaucoup

GGAL


Bonjour,

Utiliser un formulaire. Modifier la propriété PasswordChar

Private Sub b_ok_Click()
If Me.TextBox1 = "toto" Then
MsgBox "ok"
Unload Me
Else
MsgBox "erreur"
Me.TextBox1 = ""
Me.TextBox1.SetFocus
End If
End Sub

http://boisgontierjacques.free.fr/pages_site/FormulaireMotPasse.htm

JB
http://boisgontierjacques.free.fr

On 7 mar, 08:44, GGAL wrote:
Bonjour,

Dans une procédure je souhaiterais une saisie du mot de passe, mais non
visible, ou remplacer chaque caractère par des *.

Par exemple à partir la procédure

Sub test()
Dim mdp As String
mdp = "bonjour"
If InputBox("Entrez le mot de passe") = mdp Then
MsgBox ("OK")
End If
End Sub

Merci,

GGAL