Allow Groouping does not work on VBA sheet protection

[Celticfc]

I'm tring to allow users to group ungroup, the code below won't let them use this function.

Any ideas? Thank you.

Sub protectall()
Dim ws As Worksheet
For Each ws In Worksheets
ws.protect AllowFiltering:=True, AllowUsingPivotTables:=True
ws.EnableOutlining = True
Next ws
End Sub

 

[Johnny C]

At a guess you protect the sheet then try to modify the protection, try

ws.protect AllowFiltering:=True, AllowUsingPivotTables:=True, ws.EnableOutlining:=True