Tracking "Date Last Saved"

  • Thread starter Thread starter GW
  • Start date Start date
G

GW

I am trying to show on the page (footer would be ok) the
date that a spreadsheet was last modified. The footer
only allows input of the current date and time. I want
something that shows when someone made changes to a
spreadsheet, not just viewed it. Basically need the info
in the "Properties" section to show up on the page. Any
ideas?
Thanks!!
 
Hi
if you want to insert the last save date in your header/footer insert
the following code in your workbook module

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In Me.Worksheets
With wkSht.PageSetup
.CenterFooter = Format _
(ActiveWorkbook.BuiltinDocumentProperties _
("Last save time"),"DD.MM.YYYY")
End With
Next wkSht
End Sub
 
Back
Top