無效的外部過程vba excel

Question

我想編碼一個宏，以關閉文檔之前把最後修改日期放入Excel單元格。

這裏是我的代碼：

Private1 

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

的錯誤出現：無效的外部過程。

請幫我解決這個問題。 謝謝。

Answer 1

而不是

Private1 

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

使用

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