Clever-Excel-Forum - Autofilter verwenden trotz gesperrtem Arbeitsblatt

Code:
Sub Filtern()

    ActiveSheet.Unprotect Password:="IWB"

    Selection.AutoFilter

    Range("A16").Select

    ActiveSheet.Protect Password:="IWB"

End Sub

Liebe Leute

Hab einer Schaltfläche den obigen Code hinzugefügt Auf Klick wird das Blatt entsperrt, der Befehlt Autofilter ausgeführt und danach das Blatt wieder gesperrt.
Im Blatt kann anschliessend allerdings nicht mehr gefiltert werden.

Das Ziel wäre, den Code soweit zu ergänzen, dass nach dessen Ausführung auch tatsächlich gefiltert werden kann. Der Rest des Arbeitsblattes soll allerdings mit dem PW "IWB" gesperrt bleiben.

Könnt ihr mir helfen?

Herzlichen Dank und liebe Grüsse
mauritius5

Hi,

versuch es mal so:

Code:
ActiveSheet.Protect AllowFiltering:=True, Password:="IWB"

CU
Oberon

Passt perfekt so. Vielen, vielen Dank!!!