Ungültige externe Prozedur vba excel

Question

Ich versuche ein Makro zu schreiben, um das letzte Änderungsdatum in eine Excel-Zelle zu setzen, bevor das Dokument geschlossen wird.

Hier ist mein Code:

Private1 

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

Der Fehler kommt: Ungültige Außen Verfahren.

Bitte helfen Sie mir, dies zu beheben. Danke.

Answer 1

Statt

Private1 

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

Verwendung

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