Help needed with locking cell after 1 change is made to cell

[andre4dee]

this is the code i have but it aint workin , any suggestions ?

rivate Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range
If Intersect(Target, Range("D16:L97")) Is Nothing Then Exit Sub
Select Case Target.Row
Case 16, 25, 34, 43, 52, 61, 70, 79, 88, 97
Target.Parent.Protect UserInterfaceOnly:=True
For Each Cell In Target
If Not IsEmpty(Cell) Then
Cell.Locked = True
End If
Next Cell
Case Else
Exit Sub
End Select
End Sub

 

[jimboy]

works fine for me.

It will only lock cells in this range D16:L97 and for these rows;
16, 25, 34, 43, 52, 61, 70, 79, 88, 97