Group/Ungroup when protected

[TonyGill]

Is there a way to be able to make the Group/Ungroup funtion work when w worksheet is protected/

 

[RoryA]

It is possible using code to allow existing group buttons to work but not to add or remove groups if that's what you want.

 

[TonyGill]

It is possible using code to allow existing group buttons to work but not to add or remove groups if that's what you want.

Can you share the code with me?

Thanks

 

[RoryA]

Is it just one sheet you want it to work for, or all of the sheets in the workbook? For all sheets, put this into the ThisWorkbook module of your workbook:

Private Sub Workbook_Open()
    Dim ws                    As Excel.Worksheet

    For Each ws In ThisWorkbook.Worksheets
        ws.EnableOutlining = True
        ws.Protect Password:="your password here", userinterfaceonly:=True
    Next ws
End Sub

 

[IwanGerbes]

Thank you Rory, works awesome!