How to use group and ungroup in a protected worksheet

Wow...I'm new to VBA programming and need to know how to utilize the group and ungroup features for columns and rows in a protected (2007) worksheet???
I have tried to paste the program below in a module, save, close, reopen, lock, and the +- toggles still won't work...what am I missing???

Private Sub workbook_open()
dim wks as worksheet
for each wks in thisworkbook.worksheets
wks.enableoutlining = true
wks.protect password:="whatever", userinterfaceonly:=true
next wks
end sub

Try the following code. Change "password" to your password.

Please Login or Register  to view this content.

Thanks for trying Mumps1 but that didn'd do it either.

I have worked on this for hours trying to figure this out...I know it's going to be something I have overlooked.
Most everything I have read and seen on this subject write just about the same thing you suggested.
The attached picture is the error I keep getting

The picture attached to this thread is a screen shot of VB.......HELP!

Untitled.jpg

There are only two things that I can suggest. Make sure that the code is in the module for 'ThisWorkbook' and that you save your file and then re-open it.

Thanks again but it still doesn't work!!!!! How do I check to see if everything is correct for the to operate???
When I check the properties in the developer tab EnableOutlining = False.
I'm thinking there is a security setting or something that isn't set correctly.

Can someone send me a file that works on your computer to check on mine?????

Hi smorgan. I've used this code in a file and it works for me:

Please Login or Register  to view this content.

Hi Mumps1 thank you so much for all your help.
You are correct!!! It works well when written in the correct location.
I was trying to write it in a module. When I wrote it in ThisWorkbook it worked very well!!!
I knew it was something I was doing wrong. Thanks again

I'm glad it worked out for you.