Private Sub Worksheet_BeforeDoubleClick(ByVal Target1 As Range, Cancel As Boolean)
If Not Intersect(Target1, [A2:A5000]) Is Nothing And IsEmpty(Target1) Then
ActiveSheet.Unprotect Password:=Monpass
Target1.Value = Date: Cancel = True
Target1.Locked = True
ActiveSheet.Protect Password:=Monpass
End If
End Sub