if you are looking for vba solution, try this

'created and edited by bala sesharao
Private Sub Worksheet_Change(ByVal Target As Range)
Dim mySheet As Worksheet
Set mySheet = Worksheets("Input")

mySheet.Protect
mySheet.Cells(2, 10).Locked = True
mySheet.Unprotect
End sub


all the best