更改事件（VBA Excel）在调用时间戳时

Question

我正在尝试使用Excel VBA中的工作表更改事件，但它似乎没有按照我的想法工作。我正在尝试在第4列中标记日期+时间，当我进行更改时第2列。但是，它不起作用。此外，我正在尝试（同时）保护工作表，但是，关闭。我将不胜感激，有人可以指导我解决这些问题。

附上活动（请告诉我错误）谢谢。

Private Sub Worksheet_Change(ByVal Target As Range)
    ActiveSheet.Unprotect Password:="avalon"
        If Target.Column = 2 Then
            Application.EnableEvents = False
            Cells(Target.Row, 4).Value = Date + Time
            Application.EnableEvents = True
        End If
    ActiveSheet.Protect Password:="avalon"
End Sub

Pic of the report to solve

VBA Code