MS Excel

 
Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
User Name:
Password:
Remember me



Go Back   Tutorialized ForumsBusiness ApplicationsMS Excel

Reply
Add This Thread To:
  Del.icio.us   Digg   Google   Spurl   Blink   Furl   Simpy   Y! MyWeb 
Thread Tools Search this Thread Rating: Thread Rating: 2 votes, 3.00 average. Display Modes
 
Unread Tutorialized Forums Sponsor:
  #1  
Old March 22nd, 2005, 10:07 PM
kbgato kbgato is offline
Contributing User
Tutorialized Newbie (0 - 499 posts)
 
Join Date: Mar 2005
Location: mexico
Posts: 1 kbgato New User: is a brand new recruit and a unknown entity at this point. 
Time spent in forums: < 1 sec
Reputation Power: 0
Modify Excel title bar

Is there a way to modify the excel's title bar, so instead of displaying "Microsoft Excel and the file's name" it shows my name or other information.
Tanks

Reply With Quote
  #2  
Old April 15th, 2005, 11:09 PM
DjohnB DjohnB is offline
Contributing User
Tutorialized Newbie (0 - 499 posts)
 
Join Date: Apr 2005
Posts: 1 DjohnB New User: is a brand new recruit and a unknown entity at this point. 
Time spent in forums: < 1 sec
Reputation Power: 0
How to modify Excels title bar

Hi,
Here are a couple of macros I use.
Enter them into "ThisWorkbook Item"
ie, once in the workbook, press Alt+F11 to activate the VBE
Locate the worlbook in the Project window
Double-click the project to display ite items, if necessary.
Double-click the ThisWorkbook item. - The VBE displays an empty code window for the ThisWorkbook object
In the Code window, select Workbook from the Object (left) drop down list, and enter the following vba code.
Note, I have a couple of lines of code that I enter to limit the scrolling area to stop people scrolling down to the bottom of the page, and also another line of code to limit access to only unlocked cells.

Dont forget to return the caption to "Excel and the file name" when you are finished.

Private Sub Workbook_Open()

'Change the caption from Excel and file name to whatever you want
Application.Caption = "My name and any other information here"

'Limits scroll area to A1:H7 in Sheet1..change sheet name if you have to
Worksheets("Sheet1").ScrollArea = "A1:H7"

'Limits access to only unlocked cells in SAheet1..change name if you have to
Worksheets("Sheet1").EnableSelection = xlUnlockedCells

End Sub



Private Sub Workbook_BeforeClose(Cancel As Boolean)

'Reset caption to standard caption.
Application.Caption = ""

End Sub

Reply With Quote
Reply

Viewing: Tutorialized ForumsBusiness ApplicationsMS Excel > Modify Excel title bar


Developer Shed Advertisers and Affiliates


Thread Tools  Search this Thread 
Search this Thread:

Advanced Search
Display Modes  Rate This Thread 
Rate This Thread:


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox
Forum Jump


Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
  
 

Powered by: vBulletin Version 3.0.5
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.

© 2003-2014 by Developer Shed. All rights reserved. DS Cluster - Follow our Sitemap