vba excel外部过程无效

我正在尝试编写一个宏代码，以便在关闭文档之前将上次修改的日期放入excel单元格

这是我的密码：

Private1

 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
     Range ("A1" = ThisWorkbook.BuiltinDocumentProperties("Last Save Time"))
 End Sub

出现错误：外部过程无效

请帮我修一下。 谢谢。

代替

Private1

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Range ("A1" = ThisWorkbook.BuiltinDocumentProperties("Last Save Time"))
End Sub

使用

---

删除Private1行。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Range("A1") = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
End Sub