Autofilter verwenden trotz gesperrtem Arbeitsblatt

[mauritius5]

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

[Oberon]

Hi,

versuch es mal so:

Code:

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

CU
Oberon

[mauritius5]

Passt perfekt so. Vielen, vielen Dank!!!