Discussion :

[tiber33]

Bonjour,

Je souhaite créer une macro (nommons-la macro0) qui, en la lançant, après avoir taper un code prédéfini, me permet de vérouiller/dévérouiller certaines macros (disons macro1, macro2, macro3) tout en en laissant d'autres actives (macro4 et macro5).

Je suis complètement novice dans ce domaine et n'ai pas de pré-code à proposer, mais dans ma tête cela me semble assez simple...

[Theze]

Bonjour,

Et bien il te suffit que tes macros demandnte en argument le code prédéfini, si le code ne peut être passé, la macro ne sera pas lancée :

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
 
Sub Macro_0()
 
    Dim Code As String
 
    'ou autrement !
    Code = InputBox("Entrez le code !", "CODE")
 
    'si la boite pas remplie, fin
    If Code = "" Then Exit Sub
 
    'appel de la première macro en passant le code en argument
    Macro_1 Code
 
    'la suite...
 
End Sub
 
Sub Macro_1(Code As String)
 
    If Code <> "12345" Then
 
        MsgBox "Le code est érroné, fin de procédure..."
        Exit Sub
 
    End If
 
    'si le code est bon, on arrive ici et alors les lignes suivantes seront exécutées...
    'Les lignes de code ici...
 
End Sub

Hervé.

[tiber33]

Merci Theze, j'aime bien l'idée, assez simple et facile à intégrer au code déjà en place (qui est plutôt lourd..)

[tiber33]

Alors, après recherche, j'utilise plutôt cette fonction:

Ci-dessous la macro de vérouillage/dévérouillage:

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
 
Option explicit
Dim code1, code as string
 
Sub verrouillage()
 
code1 = GetSetting("Excel", "Module_de_Code", "code_")
 
If Len(code1) = 0 Then 'lancement de la macro si aucun code de verrouillage n'a été rentré
    code = InputBox("Entrer le code de vérouillage") 'La variable reçoit la valeur entrée dans l'InputBox pour vérouiller les macros
    SaveSetting "Excel", "Module_de_Code", "code_", code
    MsgBox "le code de vérouillage/dé-vérouillage est le : " & code 'rappel du code tapé
    Else
    code = InputBox("Entrer le code pour dé-verrouiller") 'La variable reçoit la valeur entrée dans l'InputBox pour dé-vérouiller les macros
    If code = code1 Then
        code = ""
        SaveSetting "Excel", "Module_de_Code", "code_", code
        Else
        MsgBox "Mauvais code"
    End If
 
End If
 
End Sub

Et là le code pour les macors que je veux vérouiller:

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
 
Option explicit
Dim code1 as string
 
Sub macro1()
 
code1 = GetSetting("Excel", "Module_de_Code", "code_")
 
If Len(code1) = 0 Then 'lancement de la macro si aucun code de verrouillage n'a été rentré
 
'code de la macro à éxécuter
 
    Else
    MsgBox "Macro vérouillée"
End If
 
End sub

Voilà, ça me semble propre et efficace