Ich habe eine Routine geschrieben (siehe unten), die alle Tabellenblätter ausser den ersten x (definiert über die globale Variable 'AnzWorksheetAllg', in diesem Fall = 2) unsichtbar machen soll.
Diese Routine bringt aber (nur manchmal, Umstände sind mir bisher nicht wirklich nachvollziehbar) einen Laufzeitfehler 1004 mit der Meldung: "Die Visible-Eigenschaft des Worksheet-Objektes kann nicht festgelegt werden"
Hat jemand eine Idee woran das liegen kann??
Sub Blätter_sperren()
Dim zaehler As Integer
Application.ScreenUpdating = False
With ThisWorkbook
For zaehler = 1 To .Sheets.Count
.Sheets(zaehler).Unprotect Password:=passwort
If zaehler > AnzWorksheetAllg Then
.Sheets(zaehler).Visible = xlSheetVeryHidden
End If
.Sheets(zaehler).Protect Password:=passwort
Next zaehler
End With
Application.ScreenUpdating = True
End Sub