Увы и ах. Спасибо, что попытались!

Поясню (на всякий случай). Р7 - это "Р7-Офис" — российский пакет приложений для совместной работы с офисными документами. В нем нет поддержки макросов VBA

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewCellValue$, OldComment$
Dim ce1l As Range
Dim cRd As Integer
Dim cCd As Integer

If Intersect(Target, Range("B5:AA500")) Is Nothing Then Exit Sub

For Each cell In Intersect(Target, Range("B5:AA500"))

On Error Resume Next

cRd = cell.Row
cCd = cell.Column
Cells(cRd, 29) = Format(Now, "DD.MM.YYYY hh:mm:ss")
Cells(cRd, 29).Value = Now
Cells(cRd, 29).Columns.AutoFit
Cells(cRd, cCd).Font.Color = vbRed

Next cell

End Sub

интересует вероятная стоимость!

Добрый день!

А есть реальные примеры работы макросов в "Р7" ? В интернете информации крайне мало, интересует запуск макроса по событию.