Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 1
Default 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   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 22,906
Default 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   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 1
Default 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   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 22,906
Default 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
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
How do I display the 'Date Modified' in an Excel worksheet header DC Solah Excel Discussion (Misc queries) 3 July 10th 06 06:03 PM
save workbook as current date using a macro ExcelJon Excel Discussion (Misc queries) 2 June 21st 06 03:05 AM
How to add a modified date in header(excel)? Thanga Excel Discussion (Misc queries) 4 February 28th 05 11:09 PM
How do I enter the date last modified in the footer of an Excel d. Last modified date in footer Excel Discussion (Misc queries) 1 February 7th 05 12:12 AM
Date issue between Windows and Macintosh version dlg1967 Excel Discussion (Misc queries) 4 January 19th 05 04:51 PM


All times are GMT +1. The time now is 11:41 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"