mit dem folgenden Code wird dem WS "ÜBERSICHT" beim Öffnen der Datei ein Blattschutz vergeben und trotzdem kann die Gliederungsfunktion in dem WS verwendet werden:
Private Sub Workbook_Open()
With Worksheets("ÜBERSICHT")
.Protect password:="PW", UserInterfaceOnly:=True
.EnableOutlining = True
End With
End Sub
Nun möchte ich aber, daß beim Öffnen der Datei abgefragt wird, ob der Blattschutz "PW" gesetzt ist (Der Blattschutz soll nun manuell und nicht automatisch beim Öffnen der Datei gesetzt werden). Wenn ja, dann sollen die Funktionen UserInterfaceOnly und EnableOutlining hinzugefügt werden. Offensichtlich habe ich aber (hoffentlich nur im Augenblick :-) ) ein Brett vor'm Kopf und krieg das nicht hin. Könnt Ihr mir helfen?
Vielen Dank vorab.
Gruß
Torsten