Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Criptage de mot de passe

D

Dom

Guest
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
 
T

Titi de Monac (lol)

Guest
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
 
D

Dom

Guest
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
 
D

Dom

Guest
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
 

Discussions similaires

Réponses
5
Affichages
484
Compte Supprimé 979
C
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…