Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Adding "last saved date" to header
I currently have the following code in order to capture the 'last saved
date', however I need to also add the 'last saved TIME'. What do I need to add to this in order to capture the time as well? Thanks in advance for any help! Cheryl ================================================== Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ActiveSheet.PageSetup.LeftHeader = "Last Update:" & Date End Sub ================================================== |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Adding "last saved date" to header
Hi CherylH,
Just replace the word' date' with 'Now' ActiveSheet.PageSetup.LeftHeader = "Last Update:" & Now HTH, -- Pranav Vaidya VBA Developer PN, MH-India If you think my answer is useful, please rate this post as an ANSWER!! "CherylH" wrote: I currently have the following code in order to capture the 'last saved date', however I need to also add the 'last saved TIME'. What do I need to add to this in order to capture the time as well? Thanks in advance for any help! Cheryl ================================================== Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ActiveSheet.PageSetup.LeftHeader = "Last Update:" & Date End Sub ================================================== |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Adding "last saved date" to header
The following code checks that active workbook's Last Save Time property to
get the save date. If the document has not been saved the macro exits without doing anything. Sub LastSave() Dim wb As Workbook Dim ws As Worksheet Dim dp As DocumentProperty Dim strLastSave As String Dim dtmDate As Date On Error GoTo Err_LastSave Set wb = ActiveWorkbook Set dp = wb.BuiltinDocumentProperties("Last Save Time") strLastSave = dp.Value If IsDate(strLastSave) Then dtmDate = CDate(strLastSave) Else dtmDate = 0 End If dtmDate = DateSerial(Year(dtmDate), Month(dtmDate), _ Day(dtmDate)) For Each ws In wb.Worksheets ws.PageSetup.CenterHeader = "Last Saved On " & dtmDate Next ws Exit_LastSave: Set wb = Nothing Set ws = Nothing Set dp = Nothing Exit Sub Err_LastSave: Err.Clear Resume Exit_LastSave End Sub -- Kevin Backmann "CherylH" wrote: I currently have the following code in order to capture the 'last saved date', however I need to also add the 'last saved TIME'. What do I need to add to this in order to capture the time as well? Thanks in advance for any help! Cheryl ================================================== Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ActiveSheet.PageSetup.LeftHeader = "Last Update:" & Date End Sub ================================================== |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Is there a "last saved on date/user" macro/function for Excel 2003 | Excel Discussion (Misc queries) | |||
"Last Saved" date in Excel 2000 | Excel Worksheet Functions | |||
Solution "Your changes could not be saved" "The document may be read-only or encrypted" | Excel Discussion (Misc queries) | |||
how do I insert "last saved date" in as a field in excel? | Excel Worksheet Functions | |||
.csv drops "0" when saved, even if file was set as "text". | Excel Discussion (Misc queries) |