Gruppe
Allgemein
Problem
Der Blattschutz soll gesetzt und das Arbeiten mit dem AutoFilter weiterhin ermöglicht werden.
StandardModule: basMain
Sub BlattSchutz()
ActiveSheet.EnableAutoFilter = True
Tabelle1.Protect userinterfaceonly:=True
End Sub