omsylv
Messages postés69Date d'inscriptionlundi 3 janvier 2005StatutMembreDernière intervention15 septembre 2005
-
29 juin 2005 à 15:45
cs_Axen
Messages postés49Date d'inscriptionmercredi 8 novembre 2000StatutMembreDernière intervention24 mars 2010
-
29 juin 2005 à 17:01
Bonjour,
J'ai cherché sur le forum un moyen de mettre des * dans les textbox et
j'ai trouvé la propriété Passwordchar (ou un truc dans le genre) mais
en essayant de l'appliquer : pas de propriété dont le nom soit
approchant. J'ai cherché aussi dans la liste des propriétés et je n'ai
rien trouvé qui semble avoir une fonction similaire.
En attendant, j'ai changé la police par des symboles (type windings)
car personne aucun utilisateur ne pourra changer la police ni avoir
accès au code.
Mais cette méthode n'est pas très esthétique donc si vous savez s'il
est possible de mettre des * en VBA, je suis preneur. Sinon... ben tant
pis
Je vous attends
A voir également:
Afficher des * à la place des lettres dans un textbox en vba
cs_Axen
Messages postés49Date d'inscriptionmercredi 8 novembre 2000StatutMembreDernière intervention24 mars 2010 29 juin 2005 à 16:07
salut,
sinon y'a toujours moyen de bidouille un truc rapide du genre
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim test As String
'stocke le pass dans variable
test = test & Chr$(KeyAscii)
'remplace lettre tapée par *
Text1.Text = Text1.Text & Chr$(42)
End Sub
apres avec un peu d'imagination on peut faire pas mal de choses avec ça
cs_frop01
Messages postés1352Date d'inscriptionlundi 27 octobre 2003StatutMembreDernière intervention19 novembre 20082 29 juin 2005 à 16:09
salut,
Démarche à suivre :
1. ouvrir Excel, nouveau fichier
2. Dans le menu, Macro, click Visual Basic Editor.
3. Dans menu Insertion , click UserForm pour inserérer un UserForm dans votre feiulle.
4. Ajouter un TextBox controle dans ton UserForm.
5. cliques sur la fenetre Propriétés
6. Dans la propriété PasswordChar du TextBox control, taper *.
cs_frop01
Messages postés1352Date d'inscriptionlundi 27 octobre 2003StatutMembreDernière intervention19 novembre 20082 29 juin 2005 à 16:17
Oui et c'est faisable avec l'exemple que Axen à fait à l'exception de devoir tester la touche (BackSpace) pour qu'il ne fasse pas un * à la place et puis annulé la frappe par un Keyascii=0
Dim test As String
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
'stocke le pass dans variable
test = test & Chr$(KeyAscii)
'remplace lettre tapée par *
Text1.Text = Text1.Text & Chr$(42)
Text1.SelStart = Len(Text1)
KeyAscii = 0
End If
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?