Macro VBA pour changer de mot de passe

Bonjour Pierre, bonjour le forum,

Toutes mes excuses d'avoir tardé à te répondre, mais après notre dernière discussion j'ai du partir en réunion et après il était un peu tard.

Pour modifier le mot de passe, j'utilise ce code qui est lié au bouton "Valider" du formulaire. Si j'ai bien compris, je dois faire une compilation du code que tu m'as proposé, modifié bien entendu, et du mien ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub CmbValide_Click()   Unload Me   mdp = Sheets("Passe").Cells(1, 1).Value If AncMdp.Value = mdp Then Sheets("Passe").Cells(1, 1).Value = NouvMdp.Value mdp = NouvMdp.Value   Else   MsgBox "L'ancien mot de passe n'est pas valable"   End If   End Sub

---

Tu ne peux pas enregistrer le nouveau mot de passe à la place de l'ancien avant d'avoir déprotégé les feuilles avec l'ancien et de les avoir protégées à nouveau avec le nouveau mot de passe. Sinon, comment feras-tu pour les déprotéger par la suite puisque tu auras supprimé le mot de passe qui permet de les déprotéger.

Tu peux copier ma procédure dans un module standard, et avant d'écraser l'ancien code par le nouveau, tu appelles cette procédure au départ de l'évènement sur le bouton et tu lui passe les deux MDP.

A l'intérieur de la procédure de déprotection/protection, tu devras peut-être gérer la liste des feuilles à protéger car celle que je t'ai donnée protège toutes les feuilles du classeur.

La manière de t'y prendre pour déterminer les feuilles à traiter dépendra de la conception de ton classeur. Ca peut être une liste des feuilles dans une feuille cachée, ou bien en fonction du name ou mieux du codename. C'est un peu à toi de voir...

Mais mon code n'enregistre t-il pas le nouveau mot de passe à la place de l'ancien ?

Je ne sais pas si c'est la neige qui m'a congelé le cerveau, mais je ne comprends pas ce que tu attends de mon code.
Bon, je vais prendre un café, ça ira mieux ensuite. Je ne suis pas complètement réveillé. :)

Si, mais avant de supprimer l'ancien mdp, tu dois déprotéger tes feuilles avec... c'est une question de logique

Oui bien sûr. Allez je vais prendre mon café et je te montres ce que j'ai fait.

J'ai commencé à faire ça, Est-ce le bon début ? (code dans un module)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub ProtectMDP(AncMdp As String, NouvMdp As String)   mdp = Sheets("Passe").Cells(1, 1).Value If AncMdp.Value = mdp Then Sheets("Passe").Cells(1, 1).Value = NouvMdp.Value mdp = NouvMdp.Value   Sheets("Chèques_vacances").Unprotect AncMdp Sheets("Chèques_vacances").Protect NouvMdp, UserInterfaceOnly:=True   Else   MsgBox "L'ancien mot de passe n'est pas valable"   End If End Sub

---

Oui, ça c'est bon (je n'avais pas vu ce code...)

La ligne mdp = NouvMdp.Value ne sert à rien.

Je suppose que ta feuille "Passe" est veryhidden, et je suppose aussi que tu as verrouilé ton code VBA par un mot de passe. Sinon, l'utilisateur pourra entrer dans ton code et voir ce qui s'y passe.

Oui la feuille "Passe" est en VeryHidden, tous les codes Vba sont bloqués par un mot de passe.

J'ai quand même pensé à ça. Je termine mon code et je fais quelques essais.

Merci beaucoup pour l'aide que tu m'as déjà apporté.

Voilà j'ai terminé d'écrire le code du module :

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

Sub ProtectMDP(AncMdp As String, NouvMdp As String)   mdp = Sheets("Passe").Cells(1, 1).Value If AncMdp.Value = mdp Then Sheets("Passe").Cells(1, 1).Value = NouvMdp.Value   Sheets("Chèques_vacances").Unprotect AncMdp Sheets("Chèques_vacances").Protect NouvMdp, UserInterfaceOnly:=True   Sheets("Petits_voyages").Unprotect AncMdp Sheets("Petits_voyages").Protect NouvMdp   Sheets("Grands_voyages").Unprotect AncMdp Sheets("Grands_voyages").Protect NouvMdp   Sheets("Prêt").Unprotect AncMdp Sheets("Prêt").Protect NouvMdp   Sheets("CESU").Unprotect AncMdp Sheets("CESU").Protect NouvMdp   Else   MsgBox "L'ancien mot de passe n'est pas valable"   End If End Sub

---

Par contre lorsque je clique sur le bouton "Valider" de mon formulaire, j'ai ce message d'erreur "Erreur de compilation - Argument non facultatif"

Code:

---

1 2 3 4 5

Private Sub CmbValide_Click() Unload Me ProtectMDP End Sub

---

Tu as la proc suivante

Code:

---

Sub ProtectMDP(AncMdp As String, NouvMdp As String)

---

Tu dois donc lui passer deux arguments (l'ancien mdp et le nouveau mdp)... Je suppose qu'ils sont dans des contrôles de ton formulaire

Euh non ! Je les ai supprimé :calim2:

Ok. Mais où sont-ils alors?

Il faut bien que tu les aies quelque part pour pouvoir les utiliser. Tu dis depuis un petit temps que l'utilisateur saisit l'ancien et le nouveau mot de passe dans un userform... :roll:

Pourrais-tu donner le code complet du userform? Parce que là, on perd un peu son temps toi et moi.

Eh bien j'ai fait la bêtise de les supprimer par une mauvaise manip !
Je vais le refaire, désolé.

Voilà, le code ressemblé à ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub CmbValide_Click()   Unload Me   mdp = Sheets("Passe").Cells(1, 1).Value If AncMdp.Value = mdp Then Sheets("Passe").Cells(1, 1).Value = NouvMdp.Value mdp = NouvMdp.Value   Else   MsgBox "L'ancien mot de passe n'est pas valable"   End If   End Sub

---

Pose-toi tout de même la question de voir comment tu pourrais demander à un utilisateur de saisir deux mots de passe si tu n'as pas de contrôles textbox pour la saisie?

Prends un peu de recul par rapport à ce que tu essaies de coder, parce que là, tu codes "le nez dans le guidon" sans aucune réflexion par rapport à ce que tu fais, sans tentatives apparentes de comprendre les solutions que l'on te propose (ce n'est pas un reproche ad hominem, c'est un simple constat).

Essaie de tracer sur une feuille de papier la trame de ce que tu dois réaliser:

• saisir deux mots de passe (userform);
• vérifier que l'ancien mdp est correctement saisi;
• pour chaque feuille qui doit être verrouillée, la déverouiller avec l'ancien MDP et la verrouiller avec le nouveau.

Normalement, suite à ce genre de travail de préparation de ta part, une aide de qualité te sera donnée en deux ou trois messages max, alors qu'on frise la quarantaine de messages sur cette discussion, sans compter l'autre discussion de hier (celle avec la c*** de protéger des cellules par label), et d'autres si je ne me trompe en regardant l'historique de tes discussions.

Ces remarques sont simplement énoncées pour TE permettre de gagner du temps dans la recherche de réponses qualifiées à tes problèmes... ;)

[EDIT]
Dans le code que tu donnes à 10:47, il n'y a de nouveau pas le passage par la proc de déverouillage/verrouillage, on ne voit pas trace des textbox, tes variables n'ont pas l'air d'être déclarées... Bref, on retourne +/- 20 messages en arrière. C'est impossible de t'apporter de l'aide dans ces conditions, je suppose que tu peux comprendre cela... Je t'ai pourtant donné le code dans un de mes messages, où il fallait simplement que tu appelles la procédure que je t'ai fournie en lui passant les deux mdp.

Je ne vois pas ce que je peux faire d'autre.

Je t'ai mis le code tel qu'il existait avant ma suppression.
Je suis entrain de travailler sur le nouveau en essayant d'appliquer tes recommandations. Dès que j'ai fini, je te le soumettrai.

EDIT : Dans mon code je passe bien par une vérification de l'ancien mot de passe, non ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Unload Me   mdp = Sheets("Passe").Cells(1, 1).Value 'Ici je dis que mdp est égale à la valeur se trouvant dans la cellule A1 de la feuille "Passe"   If AncMdp.Value = mdp Then 'Ici, si le mot de passe tapé dans la TextBox AncMdp est bon alors...   Sheets("Passe").Cells(1, 1).Value = NouvMdp.Value 'Le mot de passe tapé dans la TextBox NouvMdp remplace l'ancien mot de passe   mdp = NouvMdp.Value 'mdp devient le nouveau mot de passe   Else   MsgBox "L'ancien mot de passe n'est pas valable"

---

Désolé mais je n'arrive à rien. Dés que je tente quelque chose, je me retrouve avec des messages d'erreur.
Je vais arrêter un moment et reprendre plus tard, peut-être aurai-je les idées plus claires, parce que là, rien du tout.:calim2:

Dans un module standard, tu places ces deux procédures

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

Sub ChangePassWord(OldPwd As String, NewPwd As String) Dim ws As Worksheet   For Each ws In ThisWorkbook.Worksheets If ws.ProtectContents Then ws.Unprotect OldPwd ws.Protect NewPwd, UserInterfaceOnly:=True End If Next End Sub     Sub UpdatePassWords() Dim OldPwd As String, NewPwd As String Dim CurrentPwd As String   usfPwd.Show OldPwd = usfPwd.tboOldPwd NewPwd = usfPwd.tboNewPwd Unload usfPwd CurrentPwd = Range("CurrentPassWord").Value If CurrentPwd = OldPwd Then ChangePassWord OldPwd, NewPwd Range("CurrentPassWord").Value = NewPwd Else MsgBox "L'ancien mot de passe saisi est incorrect", vbExclamation End If End Sub

---

Tu crées un userform et tu le nommes usfPwd
Dans ce dernier, tu places deux textbox nommés tboOldPwd et tboNewPwd. Tu y places aussi un bouton nommé btnSubmit. Dans le code du userform, tu as simplement le code du bouton qui masque le userform

Code:

---

1 2 3

Private Sub btnSubmit_Click() Me.Hide End Sub

---

Dans une feuille du classeur, tu nommes une cellule CurrentPassword. Elle contiendra le mot de passe actuel qui permet de déverrouiller les feuilles.

La procédure UpdatePassWords du module standard gère la modification du mot de passe. Démarre-là en pas à pas en te plaçant dedans puis F8. Tu verras ainsi les étapes.

Cette procédure va

• afficher le userform;
• sur clic du bouton submit, le masquer;
• récupérer les MDP saisis;
• décharger le userform;
• lancer la procédure ChangePassWord qui va boucler sur les feuilles, tester celles qui sont protégées et modifier le mdp s'il échet.

Evidemment, toutes tes feuilles protégées au départ doivent l'être avec le même mot de passe, qui est celui stocké dans la cellule "CurrentPassword" (Feuil5!a1)

Merci Pierre, mais je ne comprends pas tout. (La touche F8 de mon clavier ne fonctionne pas)

Comment il gère le remplacement de l'ancien mot de passe par le nouveau ? J'ai fait un test et l'ancien reste toujours

Dois-je conserver mes codes ou bien les remplacer par les tiens ?

Désolé d'être aussi nul.

Pour le faire fonctionner, tu peux te placer dans la procédure UpdatePasswords puis presser F8 (pas-à-pas) ou F5 (lancement de la proc).

C'est elle qui gère le tout (appel du userform, récupération des deux mdp saisis, appel de la proc de modification des mots de passe sur les feuilles verrouillées puis sauvegarde du nouveau mot de passe)

Par la suite, il sera possible de lancer cette proc sur clic d'un bouton, mais teste déjà que cela fonctionne et que tu comprends le code proposé.

Tu dois remplacer tous tes codes par les miens. Je t'ai mis un fichier qui contient tout ce qu'il faut. Tu peux copier les modules et le userform de mon fichier vers le tien lorsque tu est dans l'environnement VBE (un simple glisser-déplacer des modules de mon fichier vers le tien dans l'arborescence des projets en VBA suffit)

Citation:

---

Envoyé par NEC14

[...]Désolé d'être aussi nul.

---

On est tous passé par là... Essaie le mode pas-à-pas pour bien comprendre chaque étape. C'est comme cela qu'on apprend ;)