VBA code to auto-protect worksheets on Open

[GVK]

Hi, I am running the below code aiming to protect all worksheets while allowing for Group/Ungroup to work. The code works as intended but I would also like to be able to perform the below while the workbook/worksheet is password protected:

a. Allow filtering
b. Not allow 'Sort Smallest to Largest'
c. Not allow 'Sort Largest to Smallest'

Can anyone help with the change/s needed in the below code to also account for items a, b and c above?

Thank you very much in advance for your help.
------------------------------------------------------------------------------------------------------------------------------------
Sub ProtectAllWorksheets()
Dim ws As Worksheet
If ActiveWorkbook.Name = "[NAME]" Then
ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
ws.Protect Password:="[PASSWORD]", UserInterfaceOnly:=True
ws.EnableOutlining = True
Next ws
ScreenUpdating = True
Else
End If
End Sub

 

[GVK]

A follow-up - amending previous code to the below, indeed allows for Filtering while a sheet is password protected and does not allow sorting from the Data ribbon. Sorting is however still allowed from within the drop down filter and I want this NOT to be allowed either.

Is that possible?

Thank you.
---------------------------------------------------------------------------------------------------------------------------------------
Sub ProtectAllWorksheets()
Dim ws As Worksheet
If ActiveWorkbook.Name = "[NAME]" Then
ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
ws.Protect Password:="[PASSWORD]", UserInterfaceOnly:=True, AllowFiltering:=True, AllowSorting:=False
ws.EnableOutlining = True
Next ws
ScreenUpdating = True
Else
End If
End Sub

 

[GVK]

Actually the latest code posted above solves the issue.