Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(Me.[D2:G367], Target) Is Nothing Then Exit Sub
If Me.Cells(Target.Row, "C").Value <> Date Then Exit Sub
If Target.Locked Then Exit Sub
Application.EnableEvents = False
Me.Protect UserInterfaceOnly:=True, Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True
Target.Value = Time
Target.Locked = True
Me.EnableSelection = xlUnlockedCells
Application.EnableEvents = True
End Sub