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

[rossemma]

j'ai fait un code inverse mais il ne fonctionne pas, il cache toutes les feuilles sauf la feuille qui contient le graphique. PQ?

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
Private Sub CBUser_Click()
 
Dim ws As Worksheet
 
If TBPW.Value = PW Then
    For Each ws In ThisWorkbook.Worksheets
        If Not ws.CodeName = "sh_11xx" Or Not ws.CodeName = "sh_12xx" Or Not ws.CodeName = "sh_ab" Or Not ws.CodeName = "sh_amif" _
        Or Not ws.CodeName = "sh_amif" Or Not ws.CodeName = "sh_dthw" Or Not ws.CodeName = "sh_modif" Or Not ws.CodeName = "sh_bdtablien" _
        Or Not ws.CodeName = "sh_tablien" Or Not ws.CodeName = "sh_cpk" Then
            ws.Visible = False
        End If
    Next ws
    ThisWorkbook.Protect Password:=PW, Structure:=True, Windows:=False
Else
  TBPW.Value = "Insert Password..."
End If
 
End Sub

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

[riaolle]

j'ai fait un code inverse mais il ne fonctionne pas, il cache toutes les feuilles sauf la feuille qui contient le graphique. PQ?

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
Private Sub CBUser_Click()
 
Dim ws As Worksheet
 
If TBPW.Value = PW Then
    For Each ws In ThisWorkbook.Worksheets
        If Not ws.CodeName = "sh_11xx" Or Not ws.CodeName = "sh_12xx" Or Not ws.CodeName = "sh_ab" Or Not ws.CodeName = "sh_amif" _
        Or Not ws.CodeName = "sh_amif" Or Not ws.CodeName = "sh_dthw" Or Not ws.CodeName = "sh_modif" Or Not ws.CodeName = "sh_bdtablien" _
        Or Not ws.CodeName = "sh_tablien" Or Not ws.CodeName = "sh_cpk" Then
            ws.Visible = False
        End If
    Next ws
    ThisWorkbook.Protect Password:=PW, Structure:=True, Windows:=False
Else
  TBPW.Value = "Insert Password..."
End If
 
End Sub

Tout dépend du nom de tes feuilles. Ton code permet de masquer toutes les feuilles qui ont des noms de code différents de ceux cités dans la condition if.

[rossemma]

Voici la liste de mes sheets :


Mon code laisse visible seulement la feuille avec le graphique.
PQ??

[Patrice740]

Bonjour,

j'ai fait un code inverse mais il ne fonctionne pas, il cache toutes les feuilles sauf la feuille qui contient le graphique. PQ?

Parce qu'un graphique (Chart) n'est pas une feuille de calcul (Worksheet) :

Code :

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

1
2
3
4
Dim o As Object
 
  For Each o In ThisWorkbook.Sheets
    If Not o.CodeName = "...

[rossemma]

Patrice740 merci pour l'aide

mais en fait le graph doit rester visible ainsi que les feuilles reprises dans mon code à savoir :

Code :

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

1
2
3
If Not ws.CodeName = "sh_11xx" Or Not ws.CodeName = "sh_12xx" Or Not ws.CodeName = "sh_ab" Or Not ws.CodeName = "sh_amif" _
        Or Not ws.CodeName = "sh_amif" Or Not ws.CodeName = "sh_dthw" Or Not ws.CodeName = "sh_modif" Or Not ws.CodeName = "sh_bdtablien" _
        Or Not ws.CodeName = "sh_tablien" Or Not ws.CodeName = "sh_cpk" Then

cependant mon code cache toutes les feuilles sauf mon graph (donc pour ce dernier c'est ok et pas pour le reste)

j'espère être clair.

[Menhir]

j'ai fait un code inverse mais il ne fonctionne pas, il cache toutes les feuilles sauf la feuille qui contient le graphique. PQ?

Parce que tu as oublié les cours de logique (de mon temps, on faisait ça en 1ère) qui disent que la NON(A ET B) c'est égal à NON(A) OU NON(B) et non pas à NON(A) ET NON(B).

Pour en revenir à ton histoire de mot de passe, ça m'étonne toujours un peu ce que certains font à ce sujet.
En supposant que tes modules VBA soient eux-mêmes protégés (parce que sinon, ce serait vraiment laisser la clé dans la serrure), que se passe-t-il si, avec le UF ouvert, un utilisateur tape ? PW dans la fenêtre d'exécution ? Bingo ! Il récupère le mot de passe.

Mot de passe et VBA, ça n'a jamais fait bon ménage. C'est un avis que tu n'es pas obligé de partager mais l'expérience l'a forgé.
Si ton but est d'empêcher les utilisateurs de commettre une maladresse, il n'y a pas besoin de mot de passe.
Si ton but est de protéger les données contre toutes intrusions, oublie le VBA.

[rossemma]

mais c'est vrai, je suis bête :-)