Group/Ungroup Protected Worksheets with Multiple Tabs

Hi,

I have a workbook where I have multiple tabs, and will occasional add more, that are identical and contain the same type of data just for different companies. The file is very complex for users within my company so I need to protect the formulas so they are not overwritten however I must have the ability to group/ungroup (currently the file is columns A-BQ). I've found the VBA code to allow this to happen once I protect the formula however it only works on a single tab, all other tabs do not allow it when I protect. I have tried entering it as a module for every worksheet as well as for "ThisWorkbook", nothing seems to work.

Below is the VBA that works on a single tab. How on earth can I get this to work on every tab?? I'm banging my head because I can only find single worksheets when I search online. I really hope that somebody is able to help.

Thank you in advance!

Please Login or Register  to view this content.

Something like this:

Please Login or Register  to view this content.

Untested, but something like:

Please Login or Register  to view this content.

Is this resolved?

Sounds like you'd be better persevering with resolving the problem(s) you have rather than go looking for a new set .

You have been given two pretty much identical solutions so, in theory, I would expect them to do what you want.

Note that the Active sheet may not what you expect it to be. The Active sheet when you open the workbook will be whatever was selected/in use when the workbook was last saved and closed.

Did the solution(s) provided resolve the initial problem?