Keep ungroup-group feature in a locked worksheet

[alinda]

Hi all,

I would like to ask you help on the following.
I am the owner of an extensive Excel model. For this model, I would like to use the following options when the worksheet is locked:
1) Be able to group-ungroup columns
2) Be able to use AutoFilter

In VBA I used the following macro:

Private Sub workbook_open()
ActiveSheet.Unprotect "blabla"
Cells.Locked = True
EnableOutlining = True
Protect Password:="blabla", userinterfaceonly:=True, AllowFiltering:=True
End Sub

Both Group-Ungroup and Filtering work perfectly once I lock the worksheet after running the macro. If I save the file however, and open the file again, the filtering still works but the group-ungroup does not.

What is the reason and the solution for this, making the group-ungroup work again?

Many thanks!!!

Best, Alinda

[Mordred]

Hello alinda,

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here