constante password problème

Version imprimable

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:

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

02/04/2020, 14h08
riaolle

Bonjour,

Citation:

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.
02/04/2020, 14h23
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?
02/04/2020, 14h31
riaolle

Citation:

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.

Citation:

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.

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

Code:

Public Const PW = "1234"

voici le code dans mon usf :
Code:

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?

02/04/2020, 14h57
rossemma

cela fonctionne maintenant
Merci

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:

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

02/04/2020, 15h04
riaolle

J'ai fait un test chez moi avec :

Code:

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.

Citation:

Envoyé par 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:

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.

02/04/2020, 15h16
rossemma

1 pièce(s) jointe(s)

Voici la liste de mes sheets :
Pièce jointe 552288

Mon code laisse visible seulement la feuille avec le graphique.
PQ??
02/04/2020, 15h28
Patrice740
Bonjour,

Citation:

Envoyé par 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?

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

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

Patrice740 merci pour l'aide

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

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.

02/04/2020, 15h39
Menhir

Citation:

Envoyé par 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?

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.
02/04/2020, 16h35
rossemma

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