Last Saved Date
Perfect, Thank You.
"Niek Otten" wrote:
Sheets("Sheet1").Range("A1").Value = Date & " " & Time
--
Kind regards,
Niek Otten
"Sloth" wrote in message
...
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
|