Discussion :

[rossemma]

Bonjour,

Bonjour,
J'ai ce bout de code qui coince au niveau de la ligne PW.
Afin de ne pas encode à chaque SUB le password, j'aurais voulu le mettre en constante et donc dans un module j'ai tapé CONST PW = "1234".
Mais cela bloque quand même. PQ?
Merci pour votre aide.

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
Private Sub CBAdmin_Click()
 
Dim ws As Worksheet
 
If TBPW.Value = PW Then
    ThisWorkbook.Unprotect Password:=PW
    For Each ws In ThisWorkbook.Worksheets
            ws.Visible = True
    Next ws
    Unload frm_Admin
Else
    TBPW.Value = "Insert Password..."
End If
 
End Sub

[riaolle]

Bonjour,

Afin de ne pas encode à chaque SUB le password, j'aurais voulu le mettre en constante et donc dans un module j'ai tapé CONST PW = "1234".

Dans quel module ? Est-ce le même que celui où tu as la fonction que tu nous montres ?
Si ce n'est pas le même, le module ne la connaîtra pas.
Voici un tuto qui l'explique : https://silkyroad.developpez.com/VBA/LesVariables/#LV
Pour qu'une variable puisse être utilisée dans tous les modules, il faut la déclarer en Public.

[rossemma]

mon code est dans le code de l'USERFORM
Const est dans un module standard.

si j'ai bien compris, si je veux mettre mon PW comme constante je dois l'indiquer dans un module en PUBLIC (PUBLIC PW = "1234")
et mettre mon code de l'USF également dans un module

ok?

[riaolle]

Pour que la variable soit utilisable dans toutes les macros du projet, il faut utiliser l'instruction Public et la variable doit impérativement être placée en tête d'un module standard.

Donc oui, il faut mettre l'instruction Public devant ta constante et faire cela dans un module.

et mettre mon code de l'USF également dans un module

NON ! Le code du UserForm doit rester sous le UserForm.
Le tuto explique bien "Pour que la variable soit utilisable dans toutes les macros du projet". Donc ça sera ok pour les macros du UserForm aussi.

[rossemma]

j'ai mis ce code dans un module standard que j'ai nommé Déclarations

Code :

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

Public Const PW = "1234"

voici le code dans mon usf :

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
Private Sub CBAdmin_Click()

Dim ws As Worksheet

If TBPW.Value = PW Then
    ThisWorkbook.Unprotect Password:=PW
    For Each ws In ThisWorkbook.Worksheets
            ws.Visible = True
    Next ws
    Unload frm_Admin
Else
    TBPW.Value = "Insert Password..."
End If

End Sub

quand je tape 1234 dans TBPW, il le reconnait et considère comme vrai dans le IF MAIS il coince à la ligne qui suit (en gras). PQ?

[rossemma]

cela fonctionne maintenant
Merci

[riaolle]

J'ai fait un test chez moi avec :

Code :

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

ActiveWorkbook.Unprotect ("1234")

Le code tourne mais n'engendre rien. J'avoue que je ne sais pas bien si on peut déprotéger un classeur si on l'a déjà ouvert. Je ne sais même pas si c'est possible "à la main".
Je ne sais pas comment fonctionne la fonction Unprotect pour un classeur. Pour une feuille, je sais l'utiliser, mais pour un classeur, pas d'idées.