Protection and Enable Outlining

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Vlado Sveda - 25 Jan 2006 07:32 GMT

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 !

Reply to this Message

Crowbar - 25 Jan 2006 14:43 GMT

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!

Reply to this Message

Dave Peterson - 25 Jan 2006 15:19 GMT

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.

> Hi Gurus !
>
[quoted text clipped - 16 lines]
>
> Thank you for your answers in advance !

Signature

Dave Peterson

Reply to this Message