[VBA-E]Gestion de mot de passe

Version imprimable

Bonjour!
Maintenant que j'ai récuppéré mon super programme de macro, je suis confronté à un nouveau problème (eh oui encore)

Lors du lancement de la macro, un mot de passe est requis, voici comment je gère ce mot de passe: (avec une userform et une textbox)
Code:

1 2 3 4 5 6 7 8 Private Sub CommandButton1_Click() 'bouton OK MotDePasse = UserForm1.TextBox1.Text If MotDePasse = "tartampion" Then MsgBox ("Mot de passe correct") Else MsgBox ("Mot de passe pas bon!") End If End Sub
Bon j'ai vraiment simplifié parcequ'en fait c'est un peu plus compliqué mais tout vous montré n'aurait pas été utile!

Ce que je voudrais c'est rajouter un bouton "changer le mot de passe" qui ouvre une autre userform avec trois textbox
-textbox1 --> ancien mot de passe
-textbox2 --> nouveau mot de passe
-textbox3 --> confirmation du nouveau mot de passe

A priori, rien de bien compliqué! j'ai presque réussi mais le problème, c'est que quand on clique sur le CommandButton "fermer" d'une autre de mes userform, le nouveau mot de passe n'est plus enregistré...

Code du fameux CommandButton "fermer"
Code:

1 2 3 Private Sub CommandButton1_Click() End End Sub
Si vous pouviez me donner une piste ce serait bien gentil !!! Et gentil, je sais que vous l'êtes ;)

Merci d'avance!!!!

17/04/2007, 12h28
Invité

Bonjour Yolak,

Dans le code affecté à votre formulaire qui permet de modifier le mot de passe avez-vous prévu l'enregistrement de votre fichier :

Code:

ThisWorkbook.Save

Amicalement.

Non mais en rajoutant cette ligne (qui semble fonctionner) le mot de passe n'est pas retenu.

Je vais vous donner le code de manière plus explicite:

code du module (permet l'initialisations de plusieurs variables)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Initialisation()
 
    'Initialisation des variables globales
    compteur_publique_listbox = 0
    compteur_ajout_d_article = 0
    nb_sachets = 0
    securite_retrait = 0
    total_bol1 = 0
    total_bol2 = 0
    total_bol3 = 0
    total_bol4 = 0
    total_bol5 = 0
    Acceuil.Show
    ThisWorkbook.Save
 
 
End Sub

Code de l'userform "MotDePasse" (comporte un bouton "ok", un bouton "abandonner", un bouton "changer le mot de passe" et une textbox)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub CommandButton1_Click() 'bouton ok
    Dim MotDePasseEntre, message As String
 
        'Mot de passe de démarrage de l'application
        MotDePasseEntre = TextBox1.Text
 
        'MotDePasseUtilisateur est une variable globale déclarée dans le module d'initialisation
        If MotDePasseEntre = MotDePasseUtilisateur Then
 
            MotDePasse.Hide
            Call Initialisation
 
        'Si l'utilisateur clique sur le bouton annuler, on quitte l'application
        ElseIf MotDePasseEntre = "" Then
            Exit Sub
 
        Else
        'En cas de mauvaise saisie du mot de passe:
            message = MsgBox("Mot de passe non valide", vbOKOnly + vbCritical, "Erreur!")
            End
        End If
 
End Sub
 
Private Sub CommandButton2_Click() 'bouton abandonner
    End
End Sub
 
Private Sub TextBox1_Change() 'cryptage de la saisie
    TextBox1.PasswordChar = "*"
End Sub
 
Private Sub CommandButton3_Click() 'bouton "changer de mot de passe"
    MotDePasse.Hide
    ChangementDeMotDePasse.Show

Code de la userform "changement de mot de passe" (elle comporte 3 textbox, un bouton "ok" et un bouton "abandonner"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Private Sub CommandButton1_Click() 'bouton OK
    Dim AncienMotDePasse, NouveauMotDePasse, Confirmation As String
    Dim message
 
    'Affectation des saisie dans les textbox
    AncienMotDePasse = TextBox1.Text
    NouveauMotDePasse = TextBox2.Text
    Confirmation = TextBox3.Text
 
    'vérification des saisie et changement de mot de passe
    If AncienMotDePasse = MotDePasseUtilisateur And Confirmation = NouveauMotDePasse Then
 
        MotDePasseUtilisateur = NouveauMotDePasse
 
        message = MsgBox("Mot de passe modifié", vbInformation + vbOKOnly, "Information")
        ChangementDeMotDePasse.Hide
        Call Initialisation
 
    End If
 
End Sub
 
'Dès  qu'un caractère est entré dans la textbox1, les deux autres textbox deviennent accessibles
Private Sub TextBox1_Change()
 
    TextBox1.PasswordChar = "*"
    If TextBox1.TextLength > 0 Then
        Frame1.Enabled = True
        TextBox2.Enabled = True
        TextBox3.Enabled = True
        Label2.Enabled = True
        Label3.Enabled = True
 
    End If
End Sub
 
'Cryptage des saisies dans les textbox
Private Sub TextBox2_Change()
    TextBox2.PasswordChar = "*"
End Sub
 
Private Sub TextBox3_Change()
    TextBox3.PasswordChar = "*"
End Sub

Pour info, mon projet comporte plusieurs userform en plus des deux cités ci-dessus. "Acceuil" est une de ces userform supplémentaire

En espérant que c'est clair (si non j'en suis confus ^^)
Et merci d'avance ;)

17/04/2007, 18h31
edelweisseric

Bonjour à tous

Où est stocké le 1er MDP ? dans une cellule, dans du code, dans un fichier txt, ou autre ?

A la lecture du code, j'ai l'impression que le nouveau MDP n'est pas stocké à la place de l'ancien.

A+

Eric
18/04/2007, 07h53
Yolak

Effectivement je n'ai pas du tout géré le stockage du mot de passe!
Dois-je le faire dans un fichier .txt ??

J'ai donc utilisé cette idée de fichier texte et voilà le code que j'ai tapé:

code du module
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Motdepasse_txt() Dim Fichier As NewFile Dim Data Open ("C:\Documents and Settings\******\Bureau\******\*******\******\motdepasse.txt") For Input As #1 Line Input #1, Data MotDePasseUtilisateur = Data Close #1 Call Export End Sub
code de l'userform "changement de mot de passe"
Code:

1 2 3 4 5 6 7 Open ("C:\Documents and Settings\******\Bureau\****\****\****\motdepasse.txt") For Output As #1 Write #1, MotDePasseUtilisateur Close #1 message = MsgBox("Mot de passe modifié", vbInformation + vbOKOnly, "Information") ChangementDeMotDePasse.Hide Call Motdepasse_txt
Seulement je suis confronté à un problème:

Lorsque le mot de passe est recopié dans le fichier texte, des guillemets s'ajoutent bêtement, du coup faut ajouter des guillemets lors de la saisie du mot de passe pour qu'il soit valide!

à part ça, ça fonctionne!
Merci pour l'idée :)

18/04/2007, 08h51
Yolak

Code:

MotDePasseSansGuillemets= Replace(MotDePasseUtilisateur , Chr(34), "")

J'ai rajouté cette ligne pour supprimer les guillemets ;)

Merci à tous à bientôt je suppose ;)
18/04/2007, 09h12
Yolak

Parcontre, le mot de passe est facilement trouvable puisqu'il suffit d'ouvrir le fichier texte contenant le mot de passe lol

Comment je peux faire pour rendre inaccessible le fichier texte par tout utilisateur (à part moi)?
18/04/2007, 11h00
edelweisseric

Bonjour à tous
Bonjour Yolak

Et oui, et en plus il faut que les 2 fichiers soient sur le même ordi (ou presque = réseaux)

Le plus simple est de stocker les mdp directement sur le fichier "maître", dans une feuille protégée avec un mdp bien sur, et cachée. Juste pour les mauvais curieux pas "bons" en VBA, car de toutes façons, le mdp sera forcément dans le code VBA, pour modifier la feuille.

Tu ne m'as pas répondu à la question : où sont stockés, au début, les mdp ?

Si ils sont dans une procédure, tu peux également les modifier. Le seul intérêt : pas d'augmentation de la taille du fichier final, quoiqu' une feuille supplémentaire a un poids négligeable.

A+

Eric
18/04/2007, 11h05
Yolak

Citation:

Le plus simple est de stocker les mdp directement sur le fichier "maître", dans une feuille protégée avec un mdp bien sur, et cachée.

Heuu comment on fait ça?

Citation:

où sont stockés, au début, les mdp ?

Ben dans le fichier texte!
18/04/2007, 11h51
edelweisseric

1 pièce(s) jointe(s)

Bonjour à tous

Juste un petit exemple joint.
Tu as les noms dans la colonne A avec le mdp en B. Tu peux combiner les 2
Il te reste à l'améliorer pour ton fichier, et des mdp.
Il y a peut être plus simple.

A+

Eric

Citation:

Citation:
Le plus simple est de stocker les mdp directement sur le fichier "maître", dans une feuille protégée avec un mdp bien sur, et cachée.

Heuu comment on fait ça?

Bon lol j'ai vraiment fait ça à l'arrache mais ça marche ;)

Code de la feuille cachée:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Worksheet_Activate() Dim mdp As String If Sheets("Feuille_mdp").Visible = True Then Sheets("Feuille_mdp").Visible = False mdp = InputBox("Entrez le mot de passe", "accès restreint") If mdp = "******" Then Sheets("Feuille_mdp").Visible = True Else MsgBox ("Vous n'avez pas les droits pour avoir accès à la page") End If End If End Sub
code de This WorkBook:
Code:

1 2 3 Private Sub Workbook_Open() Sheets("Feuille_mdp").Visible = False End Sub
Merci beaucoup pour les conseils!
Cette fois je clique sur résolu et j'espère ne plus avoir de problèmes!!!
++ :yaisse2:

18/04/2007, 12h46
edelweisseric

1 pièce(s) jointe(s)

Bonjour à tous

Un petit + joint

A+

Eric
18/04/2007, 13h23
ouskel'n'or

Tiens, je "t"'ai mis une boîte de dialogue pour saisir un mot de passe ;)