Cacher mot de passe par des
bonjour,
J'ai un userform avec un liste de prénom, quand je sélectionne un prénom, un msgbox apparait est me demande un mot de passe.
Pour ce la, je crois que ça marche
Voila le code:
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim mdp1 As String
Dim mdp2 As String
Dim mdp3 As String
If ListBox1.Text = "1" Then
mdp1 = InputBox("Mot de passe :")
If mdp1 <> "1" Then
MsgBox " Le mot de passe n'est pas correct"
Else
UserForm1.CommandButton1.Caption = "1"
End If
Unload UserForm2
End If
If ListBox1.Text = "2" Then
mdp2 = InputBox("Mot de passe :")
If mdp2 <> "2" Then
MsgBox " Le mot de passe n'est pas correct"
Else
UserForm1.CommandButton1.Caption = "2"
End If
Unload UserForm2
End If
If ListBox1.Text = "3" Then
mdp3 = InputBox("Mot de passe :")
If mdp3 <> "3" Then
MsgBox " Le mot de passe n'est pas correct"
Else
UserForm1.CommandButton1.Caption = "3"
End If
Unload UserForm2
End If
End SubEdit : merci d'utiliser les balises pour le code, avec le bouton </>
Mon soucis est le suivant:
J'aimerais quand je tape le mot de passe, au lieu de le voir que celui-ci soit remplacer par des *
En vous remerciant de votre aide
Bonjour xFlox,
Je ne pense pas qu'il soit possible de faire ça avec une message box. En revanche, tu peux créer un userform dans lequel tu indique un caractère dans l'attribut PasswordChar sur un champ de texte.
Bonjour XFlox, le Forum,
En retour ton fichier modifié avec l'exemple fait sur le 1ier mot de passe.
A adapter pour les 2 autres.
Bons tests, bonne continuation.
Bonjour à tous,
Merci pour vos réponse
j'ai fais un petit mélange de vos réponse pour mon soucis
Le mdp ce trouve sur ma feuille est si je veux le changer, je le change directement par la et non par le code
Pourriez-vous me dire ce que vous en pensez
En vous remerciant
A nouveau,
En retour la version réduite et adaptée aux trois mots de passe.
Chaque mot de passe est changeable sur la feuille Prénoms. Celle-ci étant récupérée par la ListBox lors de l'initialisation du formulaire.
Bons tests, bonne continuation.
Bonjour à tous,
Le mdp ce trouve sur ma feuille est si je veux le changer, je le change directement par la et non par le code
Pourriez-vous me dire ce que vous en pensez
Tout dépend de la criticité des informations de ton fichier.
Un mdp sur une feuille protégée, on peut le casser en 2 secondes.
Si le mdp est dans le code, il est moins facile à accéder si ton code est protégé par un mot de passe.
Bonjour x Cellus,
Je te remercie pour ton code
J'avais plus au moins fais le même mais avec un code plus long (TextBox2.Text = Worksheets("Serveurs").Range("B2").Value)
En te remerciant pour ton temps