code unprotect et visible qui bloque

Version imprimable

Bonjour
cela bloque à la ligne for each ..

pq ?

Peut être parce que ce ne sont pas les noms des onglets tels qu'ils apparaissent dans le classeur mais les noms VBA.
Je voudrais utiliser ces derniers.

Merci.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Private Sub CBUnprotect_Click() Dim ws As Worksheet If TBPW.Value = "1234" Then ThisWorkbook.Unprotect Password:="1234" For Each ws In ThisWorkbook.Worksheets(Array("sh_month", "sh_update", "sh_check")) With ws .Visible = True End With Next ws Unload frm_StartAdmin Else TBPW.Value = "" End If End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CBUnprotect_Click()
 
Dim ws As Worksheet
Dim Liste As Variant
Dim Pos As Long
 
Liste = Array("sh_month", "sh_update", "sh_check")
 
If TBPW.Value = "1234" Then
    ThisWorkbook.Unprotect Password:="1234"
 
    For Pos = LBound(Liste) To UBound(Liste)
        Set ws = ThisWorkbook.Worksheets(Liste(Pos))
        ws.Visible = True
    Next Pos
    Unload frm_StartAdmin
Else
    TBPW.Value = ""
End If
End Sub

Il me semble superflu de passer par la variable ws (à moins que ton code soit plus vaste que ce que tu présentes) mais je l'ai laissé pour rester dans l'esprit de ce que tu as écrit.

06/02/2020, 16h18
rossemma

lorsque je tape le PW et que je clique sur le bouton, il me répond :

Citation:

"erreur exécution 9 - l'indice n'appartient pas à la sélection"

les noms sh_month, sh_check et sh_update ne sont pas les noms qui apparaissent dans les onglets du classeur mais bien les noms dans le code VBA
06/02/2020, 16h38
Menhir

Citation:

Envoyé par rossemma

les noms sh_month, sh_check et sh_update ne sont pas les noms qui apparaissent dans les onglets du classeur mais bien les noms dans le code VBA

Essaye avec les noms qui apparaissent dans les onglets.
07/02/2020, 15h08
rossemma

et si je veux utiliser les noms tels que dans VBA, comment dois je écrire le code ?

J'ai modifié mon code mais il bloque à la ligne if ws.codename

Pourquoi ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CBUnprotect_Click()
 
Dim Ws As Worksheet
 
If TBPW.Value = "1234" Then
    ThisWorkbook.Unprotect Password:="1234"
 
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.CodeName = sh_month Or sh_update Or sh_check Then
            Ws.Visible = True
        End If
    Next Ws
 
    Unload frm_StartAdmin
Else
    TBPW.Value = ""
End If
 
End Sub

10/02/2020, 10h24
Menhir

Citation:

Code:

If Ws.CodeName = sh_month Or sh_update Or sh_check Then

Etant donné que sh_month, sh_update et sh_check sont des chaines caractères et non des variables, il faut les mettre entre guillemets.
De plus, chaque élément lié par un Or doit être une expression logique. Il faut donc répéter le Ws.CodeName = pour chaque comparaison.