Criptage de mot de passe

[Dom]

Re-bonjour à tous,

Un autre petit problème,

Dans la macro qui suit, j'aimerais cripter le mot de passe saisi par l'utilisateur, c'est à dire : si le mot de passe est "fg14Z", il faut faire apparaître dans la boite Input des "points" à la place de chaque lettre ou chiffre.

J'ai su faire çà en Turbo P il y a bien longtemps, mais je deviens vieux !!!

If Selection.Interior.ColorIndex <> xlNone Then
Set ff = Worksheets("Test").Columns("D").Find(what:=ActiveCell.Address)
If ff = ActiveCell.Address Then
Worksheets("Test").Range("E21").Value = ff.Offset(columnoffset:=-1)
Entree1 = InputBox("Entrez votre code utilisateur")
If Entree1 = "" Then Exit Sub
Entree2 = InputBox("Entrez votre mot de passe")
If Entree2 = "" Then Exit Sub

Gros bisous à tous

@ + Dom

 

[Titi de Monac (lol)]

Bonjour Dom, le Forum

Si tu utilises une InputBox tu n'auras pas la possibilité d'utiliser la propriété "PasswordChar".

Il faut passer par une TextBox dans un UserForm qui elle peut se paramétrer comme suit :

Private Sub UserForm_Initialize()
TextBox1.PasswordChar = "*"
End Sub

Tu peux jetter un oeil à cette démo :

=> Fichier Télécargeable Lien supprimé (29k)


=> Fil de Discussion Lien supprimé

Bonne Après Midi
@+Thierry

 

[@+Thierry]

Re

Arf juste pour remettre mon Nick en ordre, sorry pour le dérangement !

@+Thierry

 

[Dom]

Ok merci pour ton aide

Mais :

1- Je ne comprends pas dans la macro "Option Explicit"
2- Pourquoi n'y-a-t-il que des majuscules dans les mots de passe
3-En tant qu'admin, si je rentre un nouvelle utilisateur dans "Interface" avec un niveau 1 ou 2, il n'est pas possible pour autant de rentrer dans les feuilles de calcul

@ + Dom

 

[Dom]

Re-bonjour Thierry

Oups, n'utilisant pas beaucoup les UsersForms, je ne cherchais pas où il fallait. Mais un clic droit sur une UsersForms permet de visualiser son code
Suis-je Bête

@ + dom