Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Last Saved Date
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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Last Saved Date
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean) Application.EnableEvents = False Cancel = True If SaveAsUI Then sFile = Application.GetOpenFilename("Excel Files (*.xls), *.xls") If sFile < False Then ThisWorkbook.SaveAs sFile With Sheets("Sheet1") .Range("A1").Value = _ ThisWorkbook.BuiltinDocumentProperties("Last Save Time") .Range("A2").Value = _ ThisWorkbook.BuiltinDocumentProperties("Author") .Range("A3").Value = Environ("username") End With End If Else ThisWorkbook.Save With Sheets("Sheet1") .Range("A1").Value = _ ThisWorkbook.BuiltinDocumentProperties("Last Save Time") .Range("A2").Value = _ ThisWorkbook.BuiltinDocumentProperties("Author") .Range("A3").Value = Environ("username") End With End If Application.EnableEvents = True End Sub -- HTH RP (remove nothere from the email address if mailing direct) "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 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Last Saved Date
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 |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Worksheet Revision Date only once that day | Excel Discussion (Misc queries) | |||
search for latest date | Excel Worksheet Functions | |||
How do I insert the date the file was saved in the MS Excel foote. | Excel Discussion (Misc queries) | |||
How to insert date last saved into the sheet (not the footer) | Excel Worksheet Functions | |||
Using formulas to determine date in one cell based on date in anot | Excel Worksheet Functions |