Office: (Office 2016) Sortieren trotz Blattschutz

Hallo,
ich möchte gerne einzelne Spalten sortieren. Also so das die Markierung erweitert wird und alles bis zur Spalte AD mit sortiert wird. Ich habe per Makro einen Blattschutz drin. Hier mein Makro:

Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True
Dim i As Long
For i = 1 To Worksheets.Count
Sheets(i).Protect userinterfaceonly:=True
Sheets(i).EnableOutlining = True 'für Gliederung
Sheets(i).EnableAutoFilter = True 'für Autofilter
Next i
End Sub

Wie kann ich nun sortieren ohne das ich jedes Mal den Blattschutz öffnen muss und riskier das die Formeln verschwinden. Ich habe 14 Arbeitsblätter und möchte es bei allen Arbeitsblättern so haben das es automatisch geschützt wird und ich drin sortieren kann.

Viele Grüße

 

Hallo MatzeP,

Sheets(i).Protect userinterfaceonly:=True, AllowSorting:=True

Mit freundlichenGrüßen
Karl