[Lydia[_2_]]

I created and used the following code in Excel 2000 with
no problems:

Private Sub Workbook_Open()

If Worksheets("BudgetForm").Protect = False Then
Worksheets("BudgetForm").Range("g16:g19").Locked = False
Worksheets("BudgetForm").Range("h16:h19").Locked = False
Worksheets("BudgetForm").Range("h25:h29").Locked = False
Worksheets("BudgetForm").Range("g31:g47").Locked = False
Worksheets("BudgetForm").Protect Contents:=True,
Objects:=True, Scenarios:=True
End If
ActiveWorkbook.Protect Structu=True, Windows:=False
Range("A1").Select
End Sub

But since I have upgraded to Excel 2002, I get an error
message when opening the workbook. The highlighted code is
the second line.

Any help is appreciated!

[Rob Bovey]

Hi Lydia,

The fact that this code worked in Excel 2000 was a bug. The Protect
method of the Worksheet object can't be used to determine whether a
worksheet is protected or not. There are specific properties to query for
each type of worksheet protection applied, for example:

If Worksheets("BudgetForm").ProtectContents = False Then

End If

--
Rob Bovey, MCSE, MCSD, Excel MVP
Application Professionals
http://www.appspro.com/

* Please post all replies to this newsgroup *
* I delete all unsolicited e-mail responses *


"Lydia" wrote in message
...
I created and used the following code in Excel 2000 with
no problems:

Private Sub Workbook_Open()

If Worksheets("BudgetForm").Protect = False Then
Worksheets("BudgetForm").Range("g16:g19").Locked = False
Worksheets("BudgetForm").Range("h16:h19").Locked = False
Worksheets("BudgetForm").Range("h25:h29").Locked = False
Worksheets("BudgetForm").Range("g31:g47").Locked = False
Worksheets("BudgetForm").Protect Contents:=True,
Objects:=True, Scenarios:=True
End If
ActiveWorkbook.Protect Structu=True, Windows:=False
Range("A1").Select
End Sub

But since I have upgraded to Excel 2002, I get an error
message when opening the workbook. The highlighted code is
the second line.

Any help is appreciated!