I think I'd specify the password, too:

Option Explicit
Private Sub Workbook_Open()
With Worksheets("sheet1")
.Protect Password:="hi", userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub

If the passwords for all the sheets are the same, you could just loop through
the sheets. If the passwords are different, you'll need to account for this,
too.

Vlado Sveda wrote:

Hi Gurus !

I have (successfully) used in my code (7-8 month ago) :

Private Sub Workbook_Open()

Dim Sh As Worksheet

For Each Sh In ActiveWorkbook.Sheets
Sh.EnableOutlining = True
Next Sh

End Sub

... but now it doesn't work ;-(

Could you please help me ? What am I doing wrong ?
I have Office 2002, SP3 (from About Microsoft Excel window)

Thank you for your answers in advance !

--

Dave Peterson