Gliederung trotz Blattschutz (VBA)

Private Sub Workbook_Open()
'Makro bewirkt, daß die Gliederungsfunktionen in
'dem WS trotz des Blattschutzes genutzt werden können
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
.Protect password:="Password", UserInterfaceOnly:=True
.EnableOutlining = True
End With
Sheets("Start").Select
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Seit heute morgen funktioniert das ganze nicht mehr. Weder springt Excel beim Öffnen in das vorgegebene WS ("START"), noch kann ich die Gliederungsfunktionen in den definierten WS nutzen.
Merkwürdigerweise funktioniert aber in den enstprechenden Dateien das Springen von einem WS zum anderen über VBA-Code. Hat jemand eine Idee, woran das liegen könnte? Das ist mir völlig schleierhaft.
(Das Password hat sich nicht geändert :-) )
Vielen Dank für Eure Hilfe im voraus.
Torsten