Propriété PasswordChar : Besoin d'un renseignement

P

PMO2

XLDnaute Accro

• 22 Février 2012

• #2

Re : Propriété PasswordChar : Besoin d'un renseignement

Bonjour,

Une précision importante, s'agit-il d'une TextBox contenu dans un UserForm OU d'une TextBox incorporée dans une feuille ?

 

Vote positif 0 Vote négatif

Philippe68

XLDnaute Occasionnel

• 22 Février 2012

• #3

Re : Propriété PasswordChar : Besoin d'un renseignement

Bonsoir,

via un masque de saisie non ?

 

Vote positif 0 Vote négatif

Airone784

XLDnaute Occasionnel

• 23 Février 2012

• #4

Re : Propriété PasswordChar : Besoin d'un renseignement

C'est une TB dans une userform! Un masque de saisie en effet comme dit philippe68!

 

Vote positif 0 Vote négatif

Philippe68

XLDnaute Occasionnel

• 23 Février 2012

• #5

Re : Propriété PasswordChar : Besoin d'un renseignement

re,

En cherchant, j'ai trouvé ce lien : https://www.excel-downloads.com/threads/comment-faire-un-masque-de-mot-de-passe.9694/

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 23 Février 2012

• #6

Re : Propriété PasswordChar : Besoin d'un renseignement

Bonjour à tous

En reprenant le fichier du lien de Philippe 🙂, voici ce que ça pourrait donner.

 

Pièces jointes

• mdp.xls

  43 KB · Affichages: 54
• mdp.xls

  43 KB · Affichages: 53
• mdp.xls

  43 KB · Affichages: 63

Vote positif 0 Vote négatif

Airone784

XLDnaute Occasionnel

• 23 Février 2012

• #7

Re : Propriété PasswordChar : Besoin d'un renseignement

Bonjour,

Merci MJ13 je trouve ça très bien.

Par contre tu peux m'expliquer un peu ton code (je suis un débutant amélioré mais pas plus) car je ne maîtrise pas du tout ce que tu as fait et j'aimerais essayer de comprendre ceci notamment :

Code:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Merci beaucoup

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 23 Février 2012

• #8

Re : Propriété PasswordChar : Besoin d'un renseignement

Re

C'est pour pouvoir paramètrer le temps en millisecondes (ex: sleep 200). Tu peux le faire varier en fonction du temps d'affichage voulu.

 

Vote positif 0 Vote négatif

Airone784

XLDnaute Occasionnel

• 23 Février 2012

• #9

Re : Propriété PasswordChar : Besoin d'un renseignement

Merci MJ, ça j'ai compris MJ mais je cherche des infos sur les librairies et leur fonctionnement!!!

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 23 Février 2012

• #10

Re : Propriété PasswordChar : Besoin d'un renseignement

Bonjour Airone784, MJ13,

Je me suis inspiré du code de Michel pour proposer une "légère" amélioration : seule la dernière lettre frappée apparaît furtivement à l'écran au lieu du texte complet. Il suffit pour cela de :

- Supprimer

Code:

Private Sub TextBox1_Change()
TextBox1.PasswordChar = ""
UserForm1.Repaint
Sleep 100
TextBox1.PasswordChar = "*"
End Sub

- Ajouter

Code:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim Affichage As String, MotPasse As String
MotPasse = TextBox1
TextBox1.PasswordChar = ""
TextBox1 = String(Len(MotPasse), "*") & Chr(KeyAscii)
UserForm1.Repaint
Sleep 250
TextBox1.PasswordChar = "*"
TextBox1 = MotPasse
End Sub

Espérant que Michel ne m'en voudra pas.

Cordialement.

 

Pièces jointes

• Copie de mdp.xls

  38 KB · Affichages: 38

Vote positif 0 Vote négatif

Airone784

XLDnaute Occasionnel

• 23 Février 2012

• #11

Re : Propriété PasswordChar : Besoin d'un renseignement

Merci pour l'amélioration Papou-net. C'est top comme cela! 😉

 

Vote positif 0 Vote négatif

Philippe68

XLDnaute Occasionnel

• 23 Février 2012

• #12

Re : Propriété PasswordChar : Besoin d'un renseignement

re,

Tout le monde il est beau, tout le monde il est content alors 😕 😎

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 23 Février 2012

• #13

Re : Propriété PasswordChar : Besoin d'un renseignement

Philippe68 à dit:

re,

Tout le monde il est beau, tout le monde il est content alors 😕 😎

Cliquez pour agrandir...

Ah non, désolé, je ne ne suis pas content de moi. J'ai oublié de te saluer et de te citer Philippe68. Voilà qui est réparé (du moins je l'espère) !

Cordialement à tous.

 

Vote positif 0 Vote négatif

Philippe68

XLDnaute Occasionnel

• 23 Février 2012

• #14

Re : Propriété PasswordChar : Besoin d'un renseignement

Salut Papou-net 🙂

Papou-net à dit:

Ah non, désolé, je ne ne suis pas content de moi. J'ai oublié de te saluer et de te citer Philippe68. Voilà qui est réparé (du moins je l'espère) !

Cordialement à tous.

Cliquez pour agrandir...

Pas grave, il n'y a rien à réparer, puisque rien n'a été cassé 😛
Et puis je n'ai fais que donner un lien... 😎

 

Vote positif 0 Vote négatif

P

PMO2

XLDnaute Accro

• 23 Février 2012

• #15

Re : Propriété PasswordChar : Besoin d'un renseignement

Bonjour,

J'ai traité la TextBox
1) contenue dans une feuille
2) étant un contrôle d'un UserForm

Voir l'exemple dans le classeur en pièce jointe.

 

Vote positif 0 Vote négatif