Protection and Enable Outlining
 

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 !

Protection and Enable Outlining
 

I have had this same problem this week, that is if the error is'1004' range
or class method

I inserted

sheets("yoursheetname").select

I know it seems simply but it fixed it mine!

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200601/1

Protection and Enable Outlining
 

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