Выполнить формулу с функцией VBA при сохранении

Question

У меня есть приведенный ниже код VBA для возврата последней сохраненной отметки времени в ячейке.

Формула работает только тогда, когда я вхожу в панель формул и нажимаю ввод. Я хочу, чтобы формула автоматически обновлялась при сохранении.

Function LastSavedTimeStamp() As Date
    LastSavedTimeStamp = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function

Answer 1

Сделать UDF изменчивым:

Function LastSavedTimeStamp() As Date
  Application.Volatile
  LastSavedTimeStamp = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function

Затем в модуль ThisWorkbook добавить:

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
    Application.Calculate
End Sub