G
Guest
I did a search on this subject and found the following code (among others,
but I liked this the best). I am new to VBA and was wandering if someone
could help me out. I noticed that since it runs before you save it is really
posting the second to last save date. I figured out that you can do this
when the sheet calculates, or when the sheet opens, etc., but I wanted to
know what I could replace
ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
with, that would show the current time instead.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sheet1").Range("A1").Value =
ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
Sheets("Sheet1").Range("A2").Value =
ThisWorkbook.BuiltinDocumentProperties("Author")
Sheets("Sheet1").Range("A3").Value = Environ("username")
End Sub
but I liked this the best). I am new to VBA and was wandering if someone
could help me out. I noticed that since it runs before you save it is really
posting the second to last save date. I figured out that you can do this
when the sheet calculates, or when the sheet opens, etc., but I wanted to
know what I could replace
ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
with, that would show the current time instead.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sheet1").Range("A1").Value =
ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
Sheets("Sheet1").Range("A2").Value =
ThisWorkbook.BuiltinDocumentProperties("Author")
Sheets("Sheet1").Range("A3").Value = Environ("username")
End Sub