Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Date last modified - for entire workbook
I am using the following code in a workbook: Private Sub Workbook_Open() ActiveSheet.PageSetup.CenterFooter = _ "Last Modified: " & ThisWorkbook.BuiltinDocumentProperties("last save time").Value End Sub It does a great job of changing the "Last Modified: " footer for each worksheet based on the last time I saved the document. However, I am seeing that the footer message on other worksheets will not change if I am not viewing those worksheets while I save. Is there any way to modify this code so that the footer messages on all worksheets will change when I save the workbook? -- AndrewPace ------------------------------------------------------------------------ AndrewPace's Profile: http://www.excelforum.com/member.php...o&userid=33417 View this thread: http://www.excelforum.com/showthread...hreadid=560097 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Date last modified - for entire workbook
Andrew
Private Sub Workbook_Open() Dim ws As Worksheet Set wkbktodo = ActiveWorkbook For Each ws In wkbktodo.Worksheets ws.PageSetup.CenterFooter = "Last Modified: " & _ ThisWorkbook.BuiltinDocumentProperties("last save Time").Value Next ws End Sub Gord Dibben MS Excel MVP On Mon, 10 Jul 2006 18:27:21 -0400, AndrewPace wrote: I am using the following code in a workbook: Private Sub Workbook_Open() ActiveSheet.PageSetup.CenterFooter = _ "Last Modified: " & ThisWorkbook.BuiltinDocumentProperties("last save time").Value End Sub It does a great job of changing the "Last Modified: " footer for each worksheet based on the last time I saved the document. However, I am seeing that the footer message on other worksheets will not change if I am not viewing those worksheets while I save. Is there any way to modify this code so that the footer messages on all worksheets will change when I save the workbook? |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Date last modified - for entire workbook
Works perfectly. Thank you!!! :) -- AndrewPace ------------------------------------------------------------------------ AndrewPace's Profile: http://www.excelforum.com/member.php...o&userid=33417 View this thread: http://www.excelforum.com/showthread...hreadid=560097 |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Date last modified - for entire workbook
Thanks for the feedback.
Gord On Tue, 11 Jul 2006 11:52:03 -0400, AndrewPace wrote: Works perfectly. Thank you!!! :) Gord Dibben MS Excel MVP |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I display the 'Date Modified' in an Excel worksheet header | Excel Discussion (Misc queries) | |||
save workbook as current date using a macro | Excel Discussion (Misc queries) | |||
How to add a modified date in header(excel)? | Excel Discussion (Misc queries) | |||
How do I enter the date last modified in the footer of an Excel d. | Excel Discussion (Misc queries) | |||
Date issue between Windows and Macintosh version | Excel Discussion (Misc queries) |