Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Excel / Setup / January 2006

Tip: Looking for answers? Try searching our database.

Insert current author's name in cell or footer in Excel??

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
dneal53 - 30 Jan 2006 14:18 GMT
I have created a spreadsheet for my department to use to list their projects
for each week.  Just wondering if there is an automatic way to have the
various author's names inserted in the footer or in a cell without them
needing to do it.  Any suggestions would be appreciated...
David McRitchie - 30 Jan 2006 16:50 GMT
Does that equate to the person submitting to print with the name
they want to use   ---    application.username
or are you trying to do something for security purposes as to who
printed it  from a network logon, a little less beyond their control
(printing easily bypassed/modified).

Some references  on my site:
 http://www.mvps.org/dmcritchie/excel/userid.htm
 http://www.mvps.org/dmcritchie/excel/pathname.htm
 http://www.mvps.org/dmcritchie/excel/property.htm

My own choice would be installing a macro to be invoked by user
before printing.   I prefer this to automatically including when printing
anything because one might occasionally print someone else's
material or want a different format..

Header
 left:  (blank)
 middle:  title
 right:  username
Footer
 left:  full pathname -- modified for readability
 middle:   Page  x  of  xx
 right:    date and time     as in   yyyy-mm-dd hh:mm

Read about the following code with your modification to include username
    http://www.mvps.org/dmcritchie/excel/pathname.htm#footer
I would assign the following code to a toolbar button (smilyface)

Sub PutFileNameInFooter()
 'Documented in  http://www.mvps.org/dmcritchie/excel/pathname.htm
 'alternative -- lowercase for pathname  Sheetname as is within square brackets
 'also using an 8 point font,  lettercase of Sheetname is unchanged in this
 'example because you have control and can change it within the workbookbook
 'Use of WITH provide a prefix for names that begin with a period
 With ActiveSheet.PageSetup
    '-- modified to include username -- special request 2006-01-30
   .RightHeader = application.username
   .LeftFooter = "&8" & _
      LCase(Application.ActiveWorkbook.FullName) & "  &A "
   If .RightFooter = "" Then .RightFooter = "Page  &P  of  &N"
 End With
End Sub

If unfamiliar with macros see
 http://www.mvps.org/dmcritchie/excel/getstarted.htm
for help in searching newsgroups
 http://www.mvps.org/dmcritchie/excel/xlnews.htm
and use of your real name would be more friendly.

---
HTH,
David McRitchie, Microsoft MVP - Excel    [site changed  Nov. 2001]
My Excel Pages:  http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page:        http://www.mvps.org/dmcritchie/excel/search.htm

> I have created a spreadsheet for my department to use to list their projects
> for each week.  Just wondering if there is an automatic way to have the
> various author's names inserted in the footer or in a cell without them
> needing to do it.  Any suggestions would be appreciated...

Rate this thread:






 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.