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