Excel Macro: Preventing Username and Date Appearance Before Actual Cell Modification

Hello,
I am asking you for help.
I have a macro that, when a cell in column 3, 4, or 5 is modified, inserts the modified date and username in the corresponding cell in columns A and B. The problem is that you can double-click the cell in column 3, 4, or 5 to the date and username have already appeared. How to modify a macro so that the date and username appear only after the actual modification of the cell.

Option Explicit

Private Sub WorkSheet_Change (ByVal Target As Range)
Dim and As Integer

i = Target.Row
If Target.Column = 3 Or Target.Column = 4 Or Target.Column = 5 Then
Range ("A" & i) .Value = Environ ("Username")
End If

If Target.Column = 3 Or Target.Column = 4 Or Target.Column = 5 Then
Range ("B" & i) .Value = Date & "" & Time ()
End If

End Sub

Try this:

Thanks to everyone for your help. That was it.

I am asking you again for help. Namely, I would like the cells in columns A and B to be locked by default and only unlocked before saving the username and date, after modifying a given record.


Option Explicit
Private a

Private Sub Worksheet_SelectionChange (ByVal Target As Range)

If Not Intersect (ActiveCell, Range ("C: E")) Is Nothing Then a = ActiveCell

End Sub
Private Sub WorkSheet_Change (ByVal Target As Range)
Dim and As Integer

i = Target.Row
If Target.Column = 3 Or Target.Column = 4 Or Target.Column = 5 Then
If Target.Cells a Then
Range ("A" & i) .Value = Environ ("Username")
Range ("B" & i) .Value = Date & "" & Time ()
End If
End If

End Sub

Enable protection on cells from columns A and B, by formatting cells -> protection -> check "Block" (in cells to be filled by users, uncheck this option). In the Ten_skoroszyt module, enter the code:


If necessary, rename the sheet and enter the security password between the quotation marks (if necessary).

Thank you for your help.