Sortieren u. Filtern trotz Schreibschutz
03.11.2022 06:50:23
Mike
ich verwende den nachfolgenden VBA-Code um in einem geschützten Tabellenblatt zu sortieren.
Sub Unit()
With ActiveSheet
.Unprotect ""
.Range("A:Y").Sort key1:=.Cells(2, 24), Header:=xlGuess, order1:=xlAscending
.Protect ""
End With
End Sub
Wie muss der Code ergänzt werden damit der Haken gesetzt bleibt bzw. das Filtern trotz Blattschutz funktioniert?
Gruß Mike