Office: Automatischen Schreibschutz setzen mit Freigabe zum Filtern.

Hallo zusammen.
Ich benötige mal eure Hilfe. Ich habe ein Makro bekommen, was eigentlich genau dass macht, was ich brauche.

Es setzt den Schreibschutz für beschriebene Zellen in einem bestimmten Bereich. Nur leider setzt es die Option nicht, dass das Filtern weiter erlaubt ist.
Kann wohl mal jemand das Makro so erweitern, dass ich anschließend auch filtern kann??


Private Sub CommandButton1_Click()
A = MsgBox("Wollen Sie die neuen Datensätze endgültig speichern?", vbYesNo)

Dim rngZelle As Range

With Worksheets("Sprengbuch")
.Unprotect "123"
For Each rngZelle In .Range("A22:bb64000")
If rngZelle.Value <> "" Then rngZelle.Locked = True
Next rngZelle
.Protect "123"
End With
End Sub


Danke schon mal vorab für die Mühe...

Bis bald....Roland