Group/ Un-group in Protected sheet not working Correctly

[kcroft88]

Hi, 2nd post of the day

I am using a macro to allow users to expand and close grouped columns when the sheet is protected, and its works fine UNTIL I save, close it and go back in. When back in the workbook is locked (that's what I want), but when I try to expand the grouped columns it says "you cannot use this command in a protected sheet....". If I then go into the macro, press play and go back to the sheet it then works fine in protected mode. is there an addition to my code to make it run automatically so it works as soon as the sheet is open?


Private Sub Workbook_Open()
With Worksheets("Master Sheet")
.Protect Password:="password", Userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub

Thanks in advance,

 

[RoryA]

That code needs to be in the ThisWorkbook module of the workbook so that it works automatically.

 

[kcroft88]

Rather obvious now you point it out I have moved it and it works great now

For future reference for code to work automatically does it always need to be in ThisWorkbook module? or would that have worked where I had it if the top line was modified and merged with the one below?

 

[RoryA]

That code is a Workbook event, and must be in ThisWorkbook. Event routines related to a specific object need to be in the code module for that object - for example, Worksheet events like Worksheet_Change or Worksheet_Activate must be in the code module for the relevant worksheet.