Necesito bloquear celda una vez que se llena con fecha y hora

Buenos días,

En el siguiente código, esta macro una vez que selecciono un valor de las celdas "H" y "J", la macro me rellena las columnas "I" y "K" con la fecha y hora. Necesito agregar a este código una opción que me permita bloquear la "I" y la "K" al rellenarse con la fecha y hora y que no se puedan editar a menos de que se borre el valor de las columnas H y J, se vuelva a seleccionar un nuevo valor y se actualice la fecha y hora.

Gracias!

Private Sub Worksheet_Change(ByVal Target As Range)
tiempo = Date & " " & Time
Set isect = Application.Intersect(Target, Range("H2:H5000,J2:J5000"))
If Not isect Is Nothing Then
If isect.Value <> "" Then
isect.Offset(0, 1).Value = tiempo
End If
Set isect = Application.Intersect(Target, Range("H2:H5000,J2:J5000"))
If Not isect Is Nothing Then
If isect.Value = "" Then
isect.Offset(0, 1).Value = ""
End If
End If
End If
End Sub