使用BuiltInDocumentProperties的用户定义函数已停止自动更新

Question

我成功使用了您的答案之一中的代码，以在excel项目中显示“上次保存的日期”。我使用的代码是：

Function LastModified() As Date

   LastModified = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")

End Function

它像一个咒语一样工作了大约一个月。但是，自那时以来，保存日期无法自动更新。我必须取消保护工作表的保护，手动运行宏（通常我只选择单元格并单击“ ENTER”）。我不知道excel文件中的任何结构类型更改都可能导致这种情况。有谁想到什么会阻止代码运行？

Answer 1

尝试使您的功能不稳定：

Function LastModified() As Date
    Application.Volatile
    LastModified = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")

End Function