Я использую макрос для печати метки времени в столбце AJ, когда что-либо в диапазоне A: AH изменяется, но это отключает функцию отмены в Excel. Я также использую другое событие worksheet_change, которое автоматически переводит текст в верхний регистр, но не отключает функцию отмены. Почему этот код отключает отмену и есть ли способ обойти это? Спасибо за любую помощь
Private Sub Worksheet_Change(ByVal Target As Range)
' Code to print timestamp in Column AJ following a change in a corresponding row
Dim WorkRng As Range, row As Long
Dim rng As Range
Set WorkRng = Intersect(Range("A:AH"), Target)
If Not WorkRng Is Nothing Then
Application.EnableEvents = False
For Each rng In WorkRng
row = rng.row
If Not rng.Value = "" Then
Cells(row, "AJ").Value = Now
Cells(row, "AJ").NumberFormat = "mm/dd/yyyy hh:mm:ss"
Else
Cells(row, "AJ").Value = Now
Cells(row, "AJ").NumberFormat = "mm/dd/yyyy hh:mm:ss"
End If
Next
Application.EnableEvents = True
End If
End Sub