View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
JMB
 
Posts: n/a
Default Having footer reflect date of last edit/revision?

To get it to retain the desired date/time you'll have to hardcode it. You
could use a macro to change the footers when you need to.

Sub Macro1()
Dim WkSht As Worksheet

For Each WkSht In Worksheets
WkSht.PageSetup.LeftFooter = _
"Last Revised: " & Date & " " & Time
Next WkSht
End Sub


"Pheasant PluckerĀ®" wrote:

Hi there,

I have a spreadsheet that uses a custom footer as follows;

"Last Revised: & [Date} & [Time]"

However using this custom footer when this spreadsheet is viewed with Print
Preview the date always reflects the current system date/time not the date
the spreadsheet was last edited/updated/revised which is what I want.

Also if the spreadsheet is just opened to be viewed when closing the
spreadsheet I am prompted;

"Do you want to save the changes you made to 'Spreadsheet'?"

....which can be confusing as sometimes it can be difficult to know whether
changes were made or not!

Not only that but it is impossible to verify which version people are using
as the date/time reflects the time it was opened on their systems.

ISTR that it did not always behave like that but I could of course be
mistaken...

Is there a way to have this footer reflect the date the spreadsheet was
actually edited/updated/revised and retain that date/time until such times
as it is actually edited/updated/revised and not just viewed?

Thanks & regards,
-=pp=-