Enabling Grouping / Outline On A Protected Sheet VBA

Hi all,

I've been trying to work out how to allow a user to collapse and open groups on a protected sheet. Having Googled and checked this site out, I've found a few things. Up until now, I've been using the following code:

Private Sub Workbook_Open()
    Dim ws As Worksheet
     
    For Each ws In Worksheets
         
        Select Case UCase(ws.Name)
        Case "RESOURCING"
            With ws
                .Protect Password:="donottouch", UserInterfaceOnly:=True
                .EnableOutlining = True
            End With
        Case Else
        End Select
         
    Next ws
     
End Sub

Now this works fine when you run it, however when the workbook is closed and reopened the ability to use the groups/outline function becomes locked as per a normally protected sheet.

Can anyone suggest a modification that will keep the groups unlocked at all times on the protected sheet?

TIA,

SamuelT

It will work fine when it's closed and reopened if users enable macros. If they don't, it won't.

Hi shg,

Thanks for the response. I've tried this solution on a few different PCs now, and even with Macros enabled it's still not working. The sheet remains protected, but the group collapsing functionality also becomes locked. Any suggestions?

Cheers,

Sam