Try this.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A:IV"), Target) Is Nothing Then
Exit Sub
End If
ActiveSheet.Protect Contents:=False
Target.Locked = True
ActiveSheet.Protect Contents:=True
End Sub


Gord Dibben MS Excel MVP