Enabled outline in a worksheet protected

**jmaterano** · 09-19-2010, 01:26 PM

Hello How are you?

How do I do if I protect a sheet in a workbook but I want to outline enabled in a worksheet?

Thanks for your answers!

Best regards!

**davesexcel** · 09-19-2010, 01:46 PM

Can you not enable formats in the protection option?

**romperstomper** · 09-19-2010, 03:13 PM

You have to use code to set the EnableOutlining property of the sheet and then protect it with the Userinterfaceonly:=true option. Note that this has to be done each time you open the workbook - sample code:

activesheet.enableoutlining = true
activesheet.protect userinterfaceonly:=true

**jmaterano** · 09-19-2010, 05:57 PM

Thank you very much for your answer, that's what I needed.

I have only one question, how I can do to apply to all sheets of a book?

Best regards from Venezuela.

Juan

**romperstomper** · 09-19-2010, 06:17 PM

You would need a loop:

Sub EnableGrouping()
   DIm wks as worksheet
   for each wks in thisworkbook.worksheets
      wks.enableoutlining = true
      wks.protect userinterfaceonly:=true
   next wks
End Sub

and then call that sub from the Workbook_Open event or an Auto_Open routine.

**jmaterano** · 09-20-2010, 04:29 PM

Thanks a lot it works nice!

**romperstomper** · 09-20-2010, 05:44 PM

Glad to help.

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save