#1   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 2
Default user name in footer

How do I include the name of the user who last updated a file in the footer?

E.g. last updated by xx / ddmmmyyyy
--
pen
  #2   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 11,501
Default user name in footer

Hi,

Maybe something along the lines of:-

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sht As Worksheet
For Each Sht In ThisWorkbook.Worksheets
Sht.PageSetup.RightFooter = Environ("Username")
Next Sht
End Sub

Mike

"Penelope" wrote:

How do I include the name of the user who last updated a file in the footer?

E.g. last updated by xx / ddmmmyyyy
--
pen

  #3   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 2
Default user name in footer

Thanks for your response... Can you tell me how/where to enter the lines...
I'm using Excel2003.... isn't there a drop-down menu or icon?
--
pen


"Mike H" wrote:

Hi,

Maybe something along the lines of:-

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sht As Worksheet
For Each Sht In ThisWorkbook.Worksheets
Sht.PageSetup.RightFooter = Environ("Username")
Next Sht
End Sub

Mike

"Penelope" wrote:

How do I include the name of the user who last updated a file in the footer?

E.g. last updated by xx / ddmmmyyyy
--
pen

  #4   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 11,501
Default user name in footer

Penelope,

ALT+F11 to open VB editor. Double click 'This Workbook'
On the right hand side panel select 'Workbook' from the left dropdown and
'Before Print' and paste it in there.

Mike

"Penelope" wrote:

Thanks for your response... Can you tell me how/where to enter the lines...
I'm using Excel2003.... isn't there a drop-down menu or icon?
--
pen


"Mike H" wrote:

Hi,

Maybe something along the lines of:-

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sht As Worksheet
For Each Sht In ThisWorkbook.Worksheets
Sht.PageSetup.RightFooter = Environ("Username")
Next Sht
End Sub

Mike

"Penelope" wrote:

How do I include the name of the user who last updated a file in the footer?

E.g. last updated by xx / ddmmmyyyy
--
pen

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 to: Excel footer which tells me which user last saved sheet AmandaJane Excel Discussion (Misc queries) 0 June 29th 06 06:48 AM
Showing "Created by User, Date, Time" in Footer Mark Plaideau Excel Discussion (Misc queries) 0 April 9th 06 11:29 PM
How do I format a cell, so the user must use a user calendar? nathan Excel Discussion (Misc queries) 1 January 16th 06 06:40 PM
How do I format a cell, so the user must use a user calendar? nathan Excel Discussion (Misc queries) 0 January 16th 06 05:26 PM
User name in Footer Brian Allen - McKEOWN INC. Excel Discussion (Misc queries) 8 March 30th 05 09:57 PM


All times are GMT +1. The time now is 09:21 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"