Balttschutz und Gliederung
21.11.2006 16:35:58
Kolja
hab versucht mit folgendem Makro mein Dokument so einzurichten, dass sowohl Blattschutz als auch Gliederung funktioniert (Excel 2003)
Private Sub Workbook_Open()
Dim Sh As Object
For Each Sh In Sheets
If TypeName(Sh) = "Worksheet" Then
With Sh
.Protect UserInterfaceOnly:=True
.EnableOutlining = True ' Für Gliederung
.EnableAutoFilter = True ' Für AutoFilter
End With
End If
Next
End Sub
Das hat auch wunderbar einen Tag lang geklappt. Seit dem klappts nicht mehr. Dafür fragt er schon direkt nachem Öffnen nach dem Blattschutzkennwort. Gibt man es an (Fall a) kriegt man Zugriff auf die Seite, gibt man nicht (Fall b) an auch. Egal was man macht, in beiden Fällen ist der Blattschutz weiterhin aktiv, und die Gliederung funktioniert nicht (mit dem Hinweis das der Blattschutz aktiv ist). Will man den nun aufheben, so kann man das in Fall a) ohne das Passwort und in Fall b) mit Passwort. Speichert man die Datei nachdem man den Blattschutz aufgehoben hat, schliesst sie und öffnet sie neu, so ist (oh Wunder) der Blattschutz wieder aktiv.
Jemand ne Gute Idee worans liegt und wie ich es abstellen kann?