Gruppe
Allgemein
Bereich
Blattschutz
Thema
Blattschutz setzen und dennoch mit AutoFiltern
Problem
Der Blattschutz soll gesetzt und das Arbeiten mit dem AutoFilter weiterhin ermöglicht werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub BlattSchutz()
ActiveSheet.EnableAutoFilter = True
Tabelle1.Protect userinterfaceonly:=True
End Sub