Thread: How to protect worksheet and have the "Group and Outline" func usable?

This might help:

http://www.ozgrid.com/Excel/outlining-protected.htm

Thanks ncmay!

I tried putting in the code etc, but it still does not want to work!! Maybe i'm doing something wrong?

Try pasting the following in the "ThisWorkbook" module:

Code:

Private Sub Workbook_Open()

Dim sh As Worksheet
For Each sh In Worksheets
On Error Resume Next
    With sh
       .Protect Password:="", UserInterfaceOnly:=True
       .EnableSelection = xlUnlockedCells
       .EnableOutlining = True
    End With
   Next

End Sub

It worked perfectly!!!

Thank you!!!