A way to programmitically lock cells?

[RPIJG]

Is there a way to programmatically lock cells in a worksheet

 

[Harald Staff]

Record a macro while doing it and you're almost there.

HTH. Best wishes Harald

 

[RPIJG]

I did this, but now I have a reference to range error, what's wrong wit
this?


Code
-------------------
ActiveWorkbook.Worksheets("Sales Invoice").Range("B257").Select
Selection.Locked = True
Selection.FormulaHidden = False
Worksheets("Customer Invoice").Range("B256").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveWorkbook.Worksheets("Sales Invoice").Range("C19").Selec
-------------------


I did have ActiveWorkbook.Worksheets("Custome
Invoice").Range("B257").Select for that line, and it gave the sam
problem...do I have to activate the worksheet

 

[Harald Staff]

I said "almost". The errors would probably have to do with either selecting
(unnecessary, you almost never have to select or activate anything) or with
non-existing sheet names (you fix that). For the former, edit down to

Worksheets("Sales Invoice").Range("B257").Locked = True
Worksheets("Customer Invoice").Range("B256").Locked = True

HTH. Best wishes Harald

 

[RPIJG]

Thanks, that fixed the problem up perfectly, thanks Haral