date et heure avec double clik VBA

Bonjour,

J'ai mis se code dans ma feuille excel afin d'avoir la date et l'heure en cliquan dessus mais je n'arrive pas a verouiller cette cellule apres le double clique

Merci

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
If .Column = 4 Or .Column = 7 Then .Value = Now
End With
Cancel = True
End Sub