Macro VBA pour changer de mot de passe

**NEC14** · 27/02/2018, 09h04

Bonjour à toutes et à tous,

Dans des macros, j'ai ce type de ligne et bien entendu son contraire, la remise en protection.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ActiveSheet.Unprotect "CLAS"

Ma question est la suivante : Est-il possible à l'aide d'un formulaire (UserForm) de modifier ce mot de passe "CLAS" dans tous les codes présents du projet ?
On demanderai à l'utilisateur l'ancien mot de passe et ensuite de saisir un nouveau mot de passe.

Merci par avance pour vos réponses
Amicalement
René

PS : Pour le moment, si je devais changer le mot de passe, je devrais m'y prendre en 15 fois, puisqu'il existe 15 macros.
A moins qu'il y ait une méthode me permettant de changer ce mot de passe en une seule fois. C'est à dire un module pouvant être appliqué à toutes mes macros.

**mattgui** · 27/02/2018, 10h07

Bonjour,

J'ai réalisé cela il y a quelque temps, d'un point de vue "sécurité" ce n'est pas fou mais ça peut être suffisant.

En utilisant une variable publique en tant que mdp de ton protect/unprotect cela pourrais faire l'affaire. D'autant plus que tu peux la récupérer facilement à l'aide d'un userform.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public mdp as string
Sub protect()
 
ActiveSheet.Unprotect mdp ' ou ActiveSheet.protect mdp
 
End Sub

Après tu n'as plus qu'à créer l'Userform pour récupérer la chaîne de ton mdp.
Pour stocker l'ancien mot de passe, je ne pense pas que tu puisses garder ça en mémoire après la fermeture du classeur (pas à ma connaissance en tout cas). La solution que je te propose est de stocker ce mdp dans une cellule d'une feuille cachée. Pas top niveau sécurité, mais si tu n'as pas besoin de plus, c'est suffisant ... Du coup après tu n'as qu'à faire un test pour vérifier l'ancien mdp.

Voilà, en espérant avoir trouvé une solution à ton problème.

Cdt,

Matt

**NEC14** · 27/02/2018, 10h27

Bonjour Mattgui,

Merci pour ta réponse. Je peux utiliser le même principe pour re-protéger la feuille après dé-protection ?

Voici un code complet où j'utilise la protection et la dé-protection d'une feuille de calcul : J'ai le même code dans 5 autres feuilles.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect "CLAS"
Dim An2 As Byte, N As Integer
An2 = DatePart("ww", Date, 2, 2)
An = Year(Now())
    Range("F3") = "CLAS" & "-" & "CHV" & "-" & An & "-" & An2
    ActiveSheet.Protect "CLAS"
End Sub

**mattgui** · 27/02/2018, 10h31

Dans l'idée oui, il s'agit presque de la même action !
Après, je t'ai donné des pistes pour le réaliser par toi même mais si c'est flou, je peux détailler un peu plus avec du code ... A ta convenance

Dans le code que tu m'as donné, la seule modification à faire c'est de déclarer une variable string en public. Si le mot de passe ne doit pas changer entre le début et la fin de l'exécution de ta macro, il n'y a aucune raison pour que cela ne fonctionne pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public mdp as string
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect mdp
Dim An2 As Byte, N As Integer
An2 = DatePart("ww", Date, 2, 2)
An = Year(Now())
    Range("F3") = "CLAS" & "-" & "CHV" & "-" & An & "-" & An2
    ActiveSheet.Protect mdp
End Sub

Cdt

**NEC14** · 27/02/2018, 10h40

Merci pour ton aide, je vois le principe.

Si j'ai bien compris, "ActiveSheet.Unprotect mdp" devrait être stocké dans un module, ce qui me permettrais de le modifier qu'une seule fois pour toutes mes feuilles. Est-ce bien ça ?

**mattgui** · 27/02/2018, 10h47

C'est surtout la déclaration publique de ta variable mdp qui doit se faire dans un module. Comme ça tu pourras l'utiliser dans tous tes subs/private subs ... Après, tu fais ta sauce

Le ActiveSheet.unprotect mdp ,lui, peut être utilisé où tu le souhaites, c'est justement l'avantage ! Comme ça lorsque tu change la valeur de mdp, tous tes subs/private subs où se trouvent ta variable mdp sont affectés

Cdt

**Pierre Fauconnier** · 01/03/2018, 08h14

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

**Pierre Fauconnier** · 01/03/2018, 07h56

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

**NEC14** · 01/03/2018, 08h04

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

**NEC14** · 28/02/2018, 10h03

Bonjour dysorthographie,

Merci beaucoup pour ton aide, mais je t'avoue que ton code à l'air très compliqué et je n'y comprends pas grand chose.

Merci mattgui mais je rencontre toujours des soucis. A l'ouverture du fichier toutes mes feuilles sont bien protégées (celles devant l'être), mais lorsque je change de feuille j'ai un message m'indiquant que la feuille est protégée et cela à chaque fois que je manipule les feuilles. Ce n'est pas pratique.
"Erreur d'exécution 1004 - Mot de passe non valide. Vérifiez que la touche VERR.MAJ n'est pas activée et que vous respectez la bonne casse"

Je continue à chercher.

**NEC14** · 28/02/2018, 13h04

Eh bien je ne trouve pas la solution à mon problème. A l'ouverture du fichier toutes mes feuilles sont bien protégées (celles devant l'être), mais lorsque je change de feuille j'ai un message m'indiquant que la feuille est protégée et cela à chaque fois que je manipule les feuilles. Ce n'est pas pratique.
"Erreur d'exécution 1004 - Mot de passe non valide. Vérifiez que la touche VERR.MAJ n'est pas activée et que vous respectez la bonne casse"

Voici le code lié au bouton du formulaire, là j'ai déjà un soucis. En effet à l'ouverture du fichier je peux changer de mot de passe, mais je ne peux plus le faire en cours d'utilisation, Le message "L'ancien mot de passe n'est pas valable" apparaît, je dois obligatoirement fermer le fichier et recommencer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub CmbValide_Click()
Unload Me
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

Voici le code pour l'initialisation du mot de passe (dans un module)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Public mdp As String
Sub init_mdp()
mdp = Sheets("Passe").Cells(1, 1).Value 'Va chercher le mot de passe stocké dans la feuille "Passe" dans la cellule A1 (la feuille est rendu invisible = xlveryhidden)
End Sub

Code dans ThisWorkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Workbook_Open()
Call init_mdp
Sheets("Chèques_vacances").Protect mdp
Sheets("Petits_voyages").Protect mdp
Sheets("Grands_voyages").Protect mdp
Sheets("Prêt").Protect mdp
Sheets("CESU").Protect mdp
End Sub

Les codes liés aux feuilles

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
45
46
47
48
49
50
51
52
53
54
55
56
57
 
Private Sub Worksheet_Activate()
ActiveSheet.Unprotect mdp
Dim An2 As Byte, N As Integer
An2 = DatePart("ww", Date, 2, 2)
An = Year(Now())
    Range("F3") = "CLAS" & "-" & "CHV" & "-" & An & "-" & An2
    ActiveSheet.Protect mdp
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect mdp
If Not Application.Intersect(Target, Range("F15")) Is Nothing Then
If Range("F15") = "" Then
    N = Range("H3")
    N = N
    Range("H3") = N
    Else
    N = Range("H3")
    N = N + 1
    Range("H3") = N
End If
End If
    ActiveSheet.Protect mdp
End Sub
 
Private Sub CmbValide_Click()
Dim Lig As Long, DerLig As Long
Dim ShtS As Worksheet, ShtF As Worksheet
 
Set ShtS = Sheets("Chèques_vacances")
Set ShtF = Sheets("Rec_CV")
 
Application.ScreenUpdating = False
ShtF.Unprotect mdp
 
DerLig = ShtF.Cells(Rows.Count, "A").End(xlUp).Row + 1
For Lig = 2 To DerLig
 
ShtF.Range("A" & DerLig) = ShtS.Range("F3").Value
ShtF.Range("B" & DerLig) = ShtS.Range("H3").Value
ShtF.Range("C" & DerLig) = ShtS.Range("F15").Value
ShtF.Range("D" & DerLig) = ShtS.Range("F13").Value
ShtF.Range("E" & DerLig) = ShtS.Range("F19").Value
ShtF.Range("F" & DerLig) = ShtS.Range("G19").Value
ShtF.Range("G" & DerLig) = ShtS.Range("H19").Value
ShtF.Range("H" & DerLig) = ShtS.Range("D23").Value
ShtF.Range("J" & DerLig) = ShtS.Range("B23").Value
ShtF.Range("K" & DerLig) = ShtS.Range("B32").Value
ShtF.Range("L" & DerLig) = ShtS.Range("F5").Value
ShtF.Range("M" & DerLig) = ShtS.Range("C36").Value
ShtF.Range("N" & DerLig) = ShtS.Range("F36").Value
Next Lig
ActiveWindow.SelectedSheets.PrintOut copies:=2, Collate:=True
ShtF.Protect mdp
Application.ScreenUpdating = True
End Sub

**mattgui** · 28/02/2018, 13h14

Bonjour à toi,

Je ne vois pas où est le problème en soit. As-tu des informations sensibles sur ton classeur ? Si oui, pourrait-tu le "banaliser" et le placer en pièce jointe ? Il sera alors plus simple de vérifier la source du problème.

Cdt

**NEC14** · 28/02/2018, 13h33

Echéanciers CLAS.xlsm

voici le fichier. Le mot de passe est "CLAS". Il n'y a rien de sensible.

**Pierre Fauconnier** · 01/03/2018, 16h32

Mon code est proposé pour gérer la modification du mot de passe sur les feuilles.

Après, tu lances ce code à l'ouverture du fichier, à l'activation d'une feuille, par clic sur un bouton, ça n'a guère d'importance.

**Pierre Fauconnier** · 01/03/2018, 15h56

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)

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

**NEC14** · 01/03/2018, 16h17

Merci Pierre pour ta patience et ton aide.

La touche F8 de mon clavier ne fonctionnant pas, je vais essayer avec F5

**NEC14** · 12/03/2018, 12h32

Bonjour le forum,

Je reviens vers vous pour donner suite à cette discussion. Après avoir mis en place le code proposé par Pierre, je rencontre quelques problèmes.

Lorsque je ferme le formulaire me permettant de modifier le mot de passe, rien ne se passe, l'ancien mot de passe n'est pas remplacé par le nouveau. J'ai pourtant bien suivi les recommandations qui m'ont été faites, alors je ne comprends pas.

Je vous mets le fichier en pièce jointe à toute fin utile (mot de passe du code "RLC")

Merci par avance pour votre aide

Echéanciers CLAS.xlsm

**NEC14** · 13/03/2018, 07h52

Bonjour le forum,

J'ai tenté de chercher la solution hier soir mais sans succès. Je ne comprends pas pourquoi ça ne fonctionne pas. Je vais poursuivre mon investigation, si vous avez une idée à me soumettre, je l'accueillerai avec gratitude.
Merci par avance
Amicalement
René

Invité · 13/03/2018, 17h13

Voilà!

**NEC14** · 14/03/2018, 07h47

Bonjour le forum, bonjour dysorthographie,

Merci beaucoup pour ton aide, tu m'as enlevé une sacrée épine du pied. J'espère pouvoir te rendre un service à mon tour.
J'ai regardé ce qu'est le cryptage de Vigenère, que je ne connaissais, cela m'a l'air très complexe.

Je te réitère mes remerciements en te souhaitant une agréable journée
Amicalement
René

Ps : Juste une dernière question : Si je rends la feuille "Passe" invisible, Est-ce que cela va empêcher la mise à jour du mot de passe ?

J'ai également remarqué que si l'on tape les 3 mêmes mots de passe, il n'y a pas de message d'alerte et l'enregistrement se fait quand même comme si le mot de passe était nouveau.

Macro VBA pour changer de mot de passe [XL-2010]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager