Gliederung und Autofilter trotz Blattschutz
12.01.2018 10:58:44
Sandra
ich habe folgendes Makro in meiner Datei
Sub Workbook_Open_protect()
Dim i As Long
For i = 1 To Worksheets.Count
Sheets(i).Protect userinterfaceonly:=True, Password:="geheim"
Sheets(i).EnableOutlining = True
Sheets(i).EnableAutoFilter = True
Next i
End Sub
bisher hat das super funktioniert und tut es immer noch, allerdings nicht mehr automatisch.
Was hat sich geändert:
Mittlerweile habe meine Datei so umgebaut, das man sich nur noch über Buttons dadurch bewegen kann. Es wird also immer nur das aktive Tabellenblatt angezeigt, alle anderen Blätter sind dann ausgeblendet.
Jetzt läuft das Makro beim starten nicht mehr automatisch und ich kann die Gliederungen bzw. Autofilter wegen dem Blattschutz nicht benutzen. Wenn ich es manuell anstoße ist alles gut.
Es soll aber beim Öffnen der Datei wieder automatisch laufen.
Der Code ist in "DieseArbeitsmappe" eingepflegt. Was muss ich ändern?
Vielen Dank vorab