Help with locking Cells

  • Thread starter Thread starter rthomsen
  • Start date Start date
R

rthomsen

Hi

I am trying to lock and unlock cells in an Excel 97 App via VB code. I
have the following function

Private Sub Workbook_Open()

ActiveSheet.Unprotect password:=Worksheets("sheet2").Range("PWD")

Worksheets("sheet1").Range("A1:BH22").Locked = True
Range("CompletedBy").Locked = False

ActiveSheet.Protect password:=Worksheets("Sheet2").Range("PWD"),
userinterfaceonly:=True
End Sub

Setting the Locked property works fine using a reference like "A1:B
H22" but fails when using a named range.

Does anyone have any idea why I cannot use a named range in this code.
 
It seems to me it should work fine... are you sure you spelled the name of
the range correctly? are you sure that the name exists and has a valid
reference?

RADO


rthomsen said:
Hi

I am trying to lock and unlock cells in an Excel 97 App via VB code. I
have the following function

Private Sub Workbook_Open()

ActiveSheet.Unprotect password:=Worksheets("sheet2").Range("PWD")

Worksheets("sheet1").Range("A1:BH22").Locked = True
Range("CompletedBy").Locked = False

ActiveSheet.Protect password:=Worksheets("Sheet2").Range("PWD"),
userinterfaceonly:=True
End Sub

Setting the Locked property works fine using a reference like "A1:B
H22" but fails when using a named range.

Does anyone have any idea why I cannot use a named range in this code.


------------------------------------------------



~~Now Available: Financial Statements.xls, a step by step guide to
Click to expand...
creating financial statements
 
Range(ActiveWorkbook.Names("CompletedBy")).Locked = False

rthomsen said:
Hi

I am trying to lock and unlock cells in an Excel 97 App via VB code. I
have the following function

Private Sub Workbook_Open()

ActiveSheet.Unprotect password:=Worksheets("sheet2").Range("PWD")

Worksheets("sheet1").Range("A1:BH22").Locked = True
Range("CompletedBy").Locked = False

ActiveSheet.Protect password:=Worksheets("Sheet2").Range("PWD"),
userinterfaceonly:=True
End Sub

Setting the Locked property works fine using a reference like "A1:B
H22" but fails when using a named range.

Does anyone have any idea why I cannot use a named range in this code.


------------------------------------------------



~~Now Available: Financial Statements.xls, a step by step guide to
Click to expand...
creating financial statements
 
Back
Top