In meiner Datei sind auch einige Blätter ausgeblendet - die sollen auch nicht geschützt werden... eght das?
Public Sub Schützen()
Dim ws As Worksheet
For Each ws in ThisWorkbook.Worksheets
If ws.Visible = True Then
ws.Protect
End If
Next ws
End Sub
Ohne Garantie, da ungetestet. Kurz mit dem Tablet geschrieben.