авторPrivate Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub

Dim rng As Range, c As Range

On Error Resume Next

With Application: .ScreenUpdating = False: .EnableEvents = False: End With

Set rng = Intersect(Target, [B:B])
rng.Offset(, -1) = Now

With Application: .ScreenUpdating = True: .EnableEvents = True: End With
End Sub
объясните пожалуйста где в этом коде происходит проверка изменялась ли ячейка.
Я загнал этот код себе в макрос
авторPublic Sub proverka()

Dim Rng As Range

Set Rng = Worksheets("Лист1").Range("B1:B10")

Worksheet_Change Rng

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub

On Error Resume Next

With Application: .ScreenUpdating = False: .EnableEvents = False: End With

Intersect(Target, [B:B]).Offset(, -1) = Now

With Application: .ScreenUpdating = True: .EnableEvents = True: End With
End Sub


Получилось вроде что и описано. Если в Rng попадают ячейки из B, напротив них заносится дата. Может не так понял...

А попал я сюда искав решение следующей задачи:
требуется написать макрос, который при закрытии документа будет смотреть, был ли он изменен и в специальный журнал заносить дату последнего изменения. Загвоздка именно в том что я не знаю как проверить изменялся ли файл.
Самое умное, что пока придумал - использовать usedrange , передрать все что попадает в диапазон в вариантный массив или скрытый лист и поячеечно проверять до тех пор пока не выйдут изменения. Но мне кажется это не очень грамотно, тем более что Excel спрашивает перед выходом сохранить изменения или нет, а значит знает были они произведены!
Подскажите пожалуйста если не трудно.