group/ungroup protected sheets?

G

Gord Dibben

You must have the Data>Group and Outline area pre-set.

Then you add event code to the worksheet module.

Private Sub Worksheet_Activate()
With Me
.Protect Password:="justme", userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub

This will allow showing and hiding detail on a protected sheet.


Gord Dibben MS Excel MVP
 
B

brenelder

Gord Dibben wrote on 03/25/2010 13:46 ET :
You must have the Data>Group and Outline area pre-set.

Then you add event code to the worksheet module.

Private Sub Worksheet_Activate()
With Me
.Protect Password:="justme", userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub

This will allow showing and hiding detail on a protected sheet.


Gord Dibben MS Excel MVP
Gord
I have very limited experience in visual basic and I am trying to create a
form
to distribute. Is there a way to run the code automatically when the file is
opened. I do not want the users to go into visual basic and run the code.
(unless there is something that i am missing, but that seems to be the only
way
i can get it to work).

Thanks
Brendan
 
G

Gord Dibben

The code I posted is event code which runs when the specific worksheet is
activated by clicking on the sheet tab.

All the code does is allow changing G & O the sheet when sheet is selected.

All other protection remains in effect.

Right-click on the sheet tab and "View Code".

Copy/paste the code into that sheet module.

Alt + q to return to Excel.

Switch sheets forth and back to see results of code.


Gord
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top