Help with locking Cells

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.
 
R

RADO

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.
Click to expand...
creating financial statements
 
J

JON JON

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.
Click to expand...
creating financial statements
 
Top