Själva makrot är ganska odramatiskt om du använder BuiltinDocumentProperties

( _ i slutet av en rad betyder bara att koden fortsätter på nästa rad.  _

Det får inte riktigt plats annars)

Sub tjoho()

ActiveWorkbook.Worksheets("Blad1").Range("A1").Value = _

ActiveWorkbook.BuiltinDocumentProperties("Last Author")

ActiveWorkbook.Worksheets("Blad1").Range("B1").Value = _

ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")

ActiveWorkbook.Worksheets("Blad1").Range("B1").NumberFormat = "yyyy/mm/dd hh:mm;@"

End Sub

Sen får du bara se till att starta det med händelsen/Triggern "Workbook_BeforeSave"

Öppna VBA-editorn (Ctrl+F11) och dubbelklickar på "ThisWorkbook" i projektutforskaren (Ctrl+R). Då får du upp en tom modul där du väljer "Workbook" och Before save

Och klistra in koden från tidigare så att det blir:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

ActiveWorkbook.Worksheets("Blad1").Range("A1").Value = _

ActiveWorkbook.BuiltinDocumentProperties("Last Author")

ActiveWorkbook.Worksheets("Blad1").Range("B1").Value = _

ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")

ActiveWorkbook.Worksheets("Blad1").Range("B1").NumberFormat = "yyyy/mm/dd hh:mm;@"

End Sub

Obs att det här är tid och namn för FÖREGÅENDE sparning. Vill du ha den sparning som "utlöser" makrot får du istället ändra "trigger-raden" till:

Private Sub Workbook_AfterSave(ByVal Success As Boolean)