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