Ведение журнала в Excel (кросспост)

На днях один из сотрудников решил поиграться с VB и excel. Подкинул очень полезный и интересный скрипт о ведении логов изменений в книге Excel. Статью можно прочитать тут

В ходе тестирования пришли к выводу, что удобней было бы видеть не изменение самого значения, а изменения формулы. Для этого параметр Target.value необходимо изменить на Traget.FormuleLocal в строках:

if Not IsError(Target) Then sValue = Target.Value Else sValue = "Err" If Not IsError(Target) Then sLastValue = Target.Value Else sLastValue = "Err"

Параметр FormuleLocal возвращает занчени формулы, если была задана формула в ячейке; значение константы, если была константа; или пустую ячеку.

При использовании данного скрипта отключается возможность отметь изменения через ctrl+z