Lock row button

[weakinexcel]

Hi I wish to do this in VBA.

I have a set of data running from row 1 to 200 and column A to E.

I wish to have a lock row button, this means that every time i click on one of the cell in column C, the row of the cell will be locked after i click on the button.

Eg. I click,
1st: C3
2nd: the lock button

The whole row of C3 will be lock.

Is there a way to do that?

 

[cerfani]

Sub Button_Click()
    If Intersect(Range("C:C"), Selection) Is Nothing Or Selection.Count > 1 Then Exit Sub

    ActiveSheet.Unprotect

    'clear previous locked cells
    ActiveSheet.UsedRange.Locked = False

    Rows(Selection.Row).Locked = True
    ActiveSheet.Protect
End Sub

you can try something like that... code is untested and may have errors but the idea is there