Beveiligen alle bladen, fout verborgen blad

[peter16]

Middels onderstaande macro beveilig ik alle in het bestand aanwezige werkbladen tegelijkertijd.

cnt = ActiveWorkbook.Sheets.Count
For i = 1 To cnt
Sheets(i).Select
ActiveSheet.Protect
Next i

Ik krijg echter een foutmelding als er in het bestand ook verborgen bladen aanwezig zijn. Wie weet hoe ik dat kan omzeilen? (verborgen bladen hoeven niet perse ook beschermt te worden maar de macro moet er niet op vast lopen).

Alvast weer bedankt.

Peter

 

[TheM]

Je zou dat kunnen doen dmv van een IF dus dan wordt het zoiets als dit:

cnt = ActiveWorkbook.Sheets.Count
For i = 1 To cnt
Sheets(i).Select
If Sheets(i).visible = -1 Then
ActiveSheet.Protect
End If
Next i

Hopelijk werkt dit. En anders probeer dan eens -1 tussen aanhalingstekens te zetten.

De groeten,
Mark

 

[peter16]

aanpassing

Na de volgende aanpassing en een hele korte snelle test lijkt het te werken.

cnt = ActiveWorkbook.Sheets.Count
For i = 1 To cnt
If Sheets(i).Visible = -1 Then
Sheets(i).Select

ActiveSheet.Protect
End If
Next i

End Sub

Bedank.