Gestion de mot de passe

[Thomas]

Bonjour le forum,

je cherche un moyen de gérer des mots de passe.
mais je suis un peu limité en VBA (même tres 😱 ) car j'imagine que ce que je cherche a faire n'est pas tres poussé en VBA.

exemple dans une feuille excel je saisie des users ainsi que le mot de passe (user en 'B' et mot de passe en 'C')

ce que je cherche a faire est à l'aide d'un USF je selectionne un user
et si je souaite modifier le mot de passe je dois saisir le mot de passe connu dans ma feuille

avec une command du genre si le contenu du textbox est égal à la valeur de la colonne 'c' pour la ligne = au nom du user (selectionné dans mon combobox1)
alors USF3.show

et la dans ce usf3 mettre 2 text box avec un control sur la touche valide qui ferait If textbox1 = textbox2 then.....et là coller le contenu du text box dans la cellule (c (de la ligne correspondant au user selectionné).

PS: avec des ********* dans tout les textbox afin de ne pas voir le password.

D'avance merci pour votre aide
Thomas [file name=Password.zip size=13462]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Password.zip[/file]

 

[Papy Novice]

Bonjour Thomas,
Je pense que si tu tapes Mot de passe dans Rechercher, tu devrais y trouver ton bonheur par la grâce de l'excellent _Thierry que je salue.
Jean

 

[PascalXLD]

Bonjour

Regardes si cela te convient

Je t'ai tout mis sur un seul UF au lieu de 3

Si tu veux vraiment tes 3 tu modifies légèrement le code

Bon courage [file name=Password_20050411153911.zip size=14416]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Password_20050411153911.zip[/file]

 

[Thomas]

Un grand merci,

Je cherchais dans l'historique mais je ne trouvais pas.

ceci est exactement ce qu'il me fallait

Pour les userform 1 2 ou 3 cela me va.

je dois intégrer cela dans un USF existant chez moi

Comment as tu fais pour masquer avec des ******.??

et pourquoi as-tu opté pour un :

For x = 2 To Sheets('Feuil1').Range('B65536').End(xlUp).Row
Me.ComboBox1.AddItem Sheets('Feuil1').Range('B' & x)

plutot qu'un :

For x = 3 To 6
ComboBox1.AddItem Sheets(1).Range('b' & x)

si je te demande cela c'est dans le but de m'améliorer.
de ce que je connais cela permet d'agrandir la liste.

et si oui il serait même possible d'ajouter des Users ainsi que des mots de passe a l'aide d'un autre USF en utilisant une fonction derlignedonné + 1??

Encore une foi merci
Thomas

 

[PascalXLD]

Re

Pour

Comment as tu fais pour masquer avec des ******.??

Tu as dans les propriétés du textbox Paswordchar où tu choisis ton caratères et donc qui apparait

Pour

et pourquoi as-tu opté pour un

cela permet de pas bloquer la macro sur les lignes 3 à 6 mais d'ouvri à plus de ligne si tu en rajoutes

Bonne journée

 

[PascalXLD]

Re

Un exemple pour ajouter des personnes en plus de modifier les pwd existants

[file name=Password_20050411173128.zip size=14018]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Password_20050411173128.zip[/file]

 

[Thomas]

Merci pour tes reponses,

j'ai apporté une modification a ton dernier fichier car il écrit toujours sur la derniere ligne (dans le cas d'un ajout de user)

je ne le poste pas pour toi car je sais que tu n'en as pas besoin mais pour un debutant comme moi cela peu toujours servir

une bonne soirée et un grand merci pour ce forum.
Thomas® [file name=Password_20050411173129.zip size=16226]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Password_20050411173129.zip[/file]

 

[PascalXLD]

oups excuse et oui j'avais oublié le +1 voilà ce que c'est de ne pas tester

mais tu peux faire plus simple

tu peux remplacer ceci

MaLigne = Sheets('Feuil1').Range('B65536').End(xlUp).Row
Plus1 = MaLigne + 1
If Me.Tbx_Pass.Value = Me.Tbx_ConfirmPass.Value Then
Sheets('Feuil1').Range('B' & Plus1) = Me.Tbx_User
Sheets('Feuil1').Range('C' & Plus1) = Me.Tbx_Pass
Else
MsgBox 'Le nouveau mot de passe doit être ecrit de la même façon'
Exit Sub
End If

par

MaLigne = Sheets('Feuil1').Range('B65536').End(xlUp).Row + 1
If Me.Tbx_Pass.Value = Me.Tbx_ConfirmPass.Value Then
Sheets('Feuil1').Range('B' & MaLigne) = Me.Tbx_User
Sheets('Feuil1').Range('C' & MaLigne) = Me.Tbx_Pass
Else
MsgBox 'Le nouveau mot de passe doit être ecrit de la même façon'
Exit Sub
End If


Voilà avec encore toutes mes excuses

 

[Thomas]

Re,

merci pour tes infos

mais je t'enpris il ne faut pas t'excuser. sans ton aide je serai encore entraint de luter.

Bonne journée
Thomas®