Discussion :

[rossemma]

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 :

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

[Menhir]

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

[rossemma]

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

"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

[Menhir]

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.

[rossemma]

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

[rossemma]

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

Pourquoi ?

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