VBA To Re-lock a specific cell after 30 seconds

[simora]

I am Unlocking a cell, but I need to automatically Re-Lock that cell after 30 seconds;
I also need to be able to change other cells after I unlock my cell during that 30 second window.
This code Unlocks the cell. How do I re-Lock it after the desired time while still having access to my worksheet ?

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Me.Range("J2:J65536")) Is Nothing Then
         If Target.Value > 0 Then
            Target.Offset(0, 3).Locked = False           
         End If
End If