Conditional cell lock

Hi , I typed in the following code for this problem.But still am not able to get the desired results.Any help from anybody??

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
Dim WS As Worksheet
Set WS = Target.Parent
WS.Unprotect
For Each Cell In Target
    If Cell.Column = 3 Then
        If Cell = "LOCK" Then
            Range(Cells(Cell.Row, 1), Cells(Cell.Row, 7)).Locked = True
        ElseIf Cell = "UNLOCK" Then
            Range(Cells(Cell.Row, 1), Cells(Cell.Row, 7)).Locked = False
        End If
    End If
Next Cell
WS.Protect
End Sub

You can't use Target like that, Target refers to the cell(s) selected.

Try this amended code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Target.Address = "$D$2" Then Exit Sub

    Dim cl     As Range
    Dim rCol   As Range
    Dim WS     As Worksheet
    Set WS = Target.Parent
    Set rCol = WS.Range(Cells(5, 8), Cells(Rows.Count, 8).End(xlUp))
    WS.Unprotect
    For Each cl In rCol
        If cl.Value = Cells(2, 3).Value And Cells(2, 4).Value = "Locked" Then
            Range(Cells(cl.Row, 1), Cells(cl.Row, 8)).Locked = True
        Else: Range(Cells(cl.Row, 1), Cells(cl.Row, 7)).Locked = False
        End If
    Next cl
    WS.Protect
End Sub

The code I gave you checks each cell in Column H of the table of data to see if it matches C2, if it does it will lock or unlock the cells based on the selection in D2