PasswordChar

[Fermo]

Je cherche le moyen de cacher la saisie d'un mot de passe dans un textbox, en mettant des "******" , à la place du mot que l'on saisie.

Quelqu'un a t il la solution à mon problème ?



j'ai trouvé des explications, mais je suis débutant et je ne comprend pas !!!

Voilà la macro ou je voudrais mettre des *********** quand je rentre le mot de passe.

Merci à vous.

Private Sub CommandButton2_Click()

'Object.PasswordChar [=String]

If InputBox("mot de passe :", "Veuillez mettre le mot de passe :") = "fermo" Then



Application.CommandBars("Worksheet Menu Bar").Enabled = True



Else

MsgBox ("Vous n'êtes pas autorisé:")

End If

End Sub

 

[michel]

bonsoir Fermo

tu saisies un asterisque * , dans la propriété PassWordChar du TextBox

bonne soirée
michel

 

[Fermo]

je n'arrive pas, pouvez vous m'expliquer la marche à suivre. avec plus de détails ?


Merci d'avance Fermo

 

[michel]

Rebonsoir Fermo

j'espere que l'explication jointe pourra t'aider

bonne soirée
michel

 

[Fermo]

Un grand merci Michel, j'étais pas du tout dans la bonne voie...

J'ai crée un userForm2 Ok, comment l'intégrer dans la commande ci dessous ?

Merci milles fois Fermo


Private Sub CommandButton2_Click()

If InputBox("mot de passe :", "Veuillez mettre le mot de passe :") = "fermo3789" Then

UserForm2.Show ????????????


Application.CommandBars("Worksheet Menu Bar").Enabled = True



Else

MsgBox ("Vous n'êtes pas autorisé:")

End If

End Sub

 

[Eric]

Bonsoir Fermo ainsi qu'à tous & à toutes,

Private Sub CommandButton2_Click()

If InputBox("mot de passe :", "Veuillez mettre le mot de passe :") = "fermo3789" Then

__load UserForm2
UserForm2.Show
__
...

A ++

Eric C

 

[Fermo]

Salut Eric , un grand merci pour ta réponse, mais ça ne fonctionne pas chez moi, peux tu contrôler cette macro chez toi ?





Merci salutations Fermo



Private Sub CommandButton2_Click()



If InputBox("mot de passe :", "Veuillez mettre le mot de passe :") = "fermo3789" Then



Load UserForm2



UserForm2.Show

Application.CommandBars("Worksheet Menu Bar").Enabled = True



Else



MsgBox ("Vous n'êtes pas autorisé:")



End If



End Sub

 

[michel_M]

Salut,

Il faut que passwordchar soit dans un textbox (voir réponse Michel) et non dans un input box...
Donc, il faut que tu crées un textform au quel tu attribues la propriété passwordchar

A+
Michel

 

[Eric]

Bonjour à tous & à toutes,

Salut Fermo, j'espère que ceci t'aidera je l'ai repris d'un de mes fichier - A adapter à ton prog :
A placer dans un module de ton workbook :
Sub AutoOpen()
Dim mydate
mydate = Date
If mydate < #12/31/2003# Then
Load UserForm2 ==> Lance mon programme
UserForm2.Show
End
ElseIf mydate >= #12/31/2003# Then
Load UserForm4 ==> ton USF demandant le Password
UserForm4.Show
End If
End Sub
A placer dans le Code du USF4
Private Sub OK_Click()
If Txt1.Value = "Fermo" Then ==> Mettre dans PasswordChar de la propriété Txt1 *
End
ElseIf Txt1.Value <> "Fermo" Then
MsgBox "Vous n'avez pas l'autorisation d'accès", vbOKOnly, "Mise à jour"
Close
Unload UserForm4
End If
End Sub

Fonctionne sur 97 & 2000
N'hésites pas et fais moi savoir si cela fonctionne, pour une fois que je peut être utile ...
A ++
Eric C