创建包含最后打印日期和页面的页脚的Excel宏最后保存日期

Question

我试图在excel 2013中使用vba编写一个宏，它将最后一个保存日期和最后一个打印日期放在页脚中。当我只打印文档时，最后一个打印日期会以正确的方式更改。但是，当我保存文档时，我的上次保存日期和上次打印日期会被更改。

如何在保存文档时阻止上次打印日期受到影响？

这是我一直在使用的代码：

Sub Footer()

ActiveSheet.PageSetup.LeftFooter = "&9" & "Last Saved: " & ThisWorkbook.BuiltinDocumentProperties(12) & Chr(13) & "Last Printed: " & ThisWorkbook.BuiltinDocumentProperties(10)     
ActiveSheet.PageSetup.RightFooter = "&9" & ActiveWorkbook.Path & Chr(13) & ActiveWorkbook.Name & Chr(13) & ActiveSheet.Name

End Sub