How to locked within a range?

[daniel50096230]

I would like to locked the cells between row 1 to 30 and column 1 to 4,how should I code it?

For i = 1 To 30
  For j = 1 To 14
  ActiveSheet.Cells(i, j).Select
 ActiveSheet.Cells(i, j).Locked = True
 
     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=False
Next j
Next i

 

[Fazza]

Hi Daniel.

The macro recorder is helpful for this sort of thing. Regards, Fazza

range("A1:D30").locked=true

or

range(cells(1,1),cells(30,4)).locked=true

 

[daniel50096230]

Thanks for your help...:D

 

[Fazza]

You're most welcome, Daniel.