Depends on how you want to select a range. This is just one cell. If you go back to J1 and change the value, you should receive a request.
Private Sub Worksheet_Change(ByVal Target As Range)
Range("J1").Select
Selection.Locked = True
ActiveSheet.Protect Contents:=True
Range("K1").Select
End Sub
Cells are not locked until the worksheet is protected. By default, all cells are set to Locked, so you will need to unlock the cells that you want to change.
Jeffo source
share