Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Locked/Protect in Workbook_open not working in X2002
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! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Locked/Protect in Workbook_open not working in X2002
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! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Protect sheet unchecking "Select locked cells" has undesiredresults | Excel Discussion (Misc queries) | |||
protect formulas in locked cells from changing if data is moved | Excel Discussion (Misc queries) | |||
Macros to protect worksheet and prevent locked cell selection | Excel Discussion (Misc queries) | |||
Locked cells with Protect Sheet. | Excel Discussion (Misc queries) | |||
Workbook_Open not working | Excel Discussion (Misc queries) |