Macro ergänzen Sortierung mit Blattschutz

Private Sub Workbook_Open()
With Sheets("Projekte")
.Unprotect Password:="kar"
.EnableOutlining = True
.EnableAutoFilter = True
.Protect Password:="kar", UserInterfaceOnly:=True, AllowFormattingRows:=True,  _
AllowFormattingColumns:=True
End With
End Sub

aber noch ohne Intgration der Sortierung. Ich habe mir jetzt in der Hilfe die Funktionen AllowSorting angeschaut, aber Excel hebt mir dann den kompletten Blattschutz auf. Wie muss ich den Befehl integrieren, damit der Benutzer nur Sortieren kann, aber die Zelleninhalte der gesperrten Zellen nicht löschen kann.
Vielen Dank und beste Grüße
Geri