Hallo,
ich habe eine Procedure gefunden mit der man die Gliederungelemente noch klicken kann obwohl der Blattschutz an ist.
Aber ich weis nicht wie ich den wieder ausschalten kann.
Sub BlattschutzEin()
'Blattschutz für alle Tabellenblätter EIN
Dim wks As Worksheet, wksStart As Worksheet
Dim iWks As Integer
Application.ScreenUpdating = False
Set wksStart = ActiveSheet
' dass trotz Blattschutz Gliederungselemente funktionieren.
For iWks = 1 To Worksheets.Count
Worksheets(iWks).Protect UserInterfaceOnly:=True, Password:="exelseb"
Worksheets(iWks).EnableOutlining = True
Next iWks
wksStart.Select
Application.ScreenUpdating = True
End Sub
' Ich dachte das Ausschalten müsste so gehen:
For Each wks In Worksheets
wks.Select
wks.Unprotect "exelseb"
Next wks
Gute Nacht miteinander Sebasitan