Protect Three Columns

[barim]

Hello,

I would like to protect 3 columns using VBA. Protection should go as long as there is data.

I measure the end of my data in column A and to find the last row I use:

LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

Now, to protect 3 columns I used this code, but it doesn't work.

ws.Unprotect Password:="123"
ws.Cells.Locked = False
ws.Range("C" & LastRow).Locked = True
ws.Range("D" & LastRow).Locked = True
ws.Range("E" & LastRow).Locked = True
ws.Protect Password:="123", UserInterFaceOnly:=True

I appreciate any help on this.

 

[pgc01]

ws.Range("C" & LastRow).Locked = True

Hi

You are locking the last cell in column C.
Don't you want to lock all the cells above too?

 

[barim]

Thanks for the response pgc01, yes, I would like to lock all the cells above. Actually, I found a solution by locking the whole column,

Columns("C").Locked = True

I would really like to lock only where data ends. What would be solution to that?

Thanks again for your response.

 

[pgc01]

Try:

Sub lockSomeCells()
Dim ws As Worksheet
Dim LastRow As Long

Set ws = Worksheets("Sheet1")
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

ws.Unprotect Password:="123"
ws.Cells.Locked = False
ws.Range("C1:E" & LastRow).Locked = True
ws.Protect Password:="123", UserInterFaceOnly:=True

End Sub