VBA - Allow Grouping/Ungrouping

[iainmartin100]

Hi,
I'm running the below code which protects all worksheets in a document, I want to allow the user to be able to click and use the grouping buttons also [+/-], what am I doing wrong in the below.

Application.ScreenUpdating = False
For Each wSheet In Worksheets
wSheet.Protect Password:="Safe", UserInterfaceOnly:=True
.EnableOutlining = True
Next wSheet

Application.ScreenUpdating = True

Many thanks for looking & hopefully solving

 

[mikerickson]

I think you want to .EnableOutlining before you Protect the sheet.

For Each wSheet In Worksheets
    With wSheet
        .EnableOutlining = True
        .Protect Password:="Safe", UserInterfaceOnly:=True
    End With
Next wSheet