Using Group/Ungroup in protected worksheets

[Linus_99]

Hello,

I'm trying to protect a worksheet so that cells are protected but users can still group & ungroup sub-totals by using the Group/Ungroup symbols that appear at the margins.

When using the Protect command, I can't see a way to allow this to happen.

Does anyone know how this can be done for Excel 2003/2007 ?

Thanks

 

[RoryA]

If you put the code into the Workbook_Open event (in the ThisWorkbook module) it will run automatically when you open the workbook.

 

[LeeBillington]

So what code will i have to put in? like the full thing.. because a few haven't been working for me?

 

[RoryA]

For example the code in post 21. Remember that it must be in the ThisWorkbook module.

 

[LeeBillington]

Did exactly that, and changed the name to the worksheet it needs to be linked too.. and it still wont let me close the grouping "-" "+" when protected! :\

Entered this..


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


With Worksheets("Pickrates")
.Protect Password:="", Userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub

 

[RoryA]

Can you put a workbook somewhere (eg Dropbox or OneDrive)? You can remove all the data but I need to see the code and structure as you it actually is now.

 

[LeeBillington]

https://www.dropbox.com/s/58k5h3pywpg0tdj/Pickrates.xls?dl=0

I've cleared everything ive done.. so if you can add it then send it back.. it will be much appreciated!

 

[RoryA]

That wasn't really the idea - I wanted to see the code you had so I could tell you why it wasn't working.

 

[LeeBillington]

I entered the code, closed the workbook then reopened it.. then it worked. I then opened the tracker and set a password.. and it went back to not working again!?

 

[RoryA]

Did you add the password to the code as well?

 

[LeeBillington]

Nevermind its working! woo .. thanks see a previous comment that said he closed it and it worked.