Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
mango
 
Posts: n/a
Default make hidden window or workbook visible without specify the name

dear all,
it is for presentation.
may i know any other way to make my workbook visible without specify the
workbook name? because i have 10 workbooks need to do like this. i open each
workbook 1 at a time so no clash between. i am thinking of using same
shortcut key to make it visible without specify the workbook name

first i make it invisible. here of course i need to specify the workbook name.

MyPath2 = "\\server\temp\ctc.xls#'Debtors & Milestone highlights'!a1"
Set xlx = Workbooks.Open("\\servertemp\ctc.xls", UpdateLinks:=0)
ActiveWorkbook.FollowHyperlink (MyPath2)
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
ActiveWindow.Visible = False

later when need it will use shortcut key to show. here can i make it visible
without specify the name so that i need not to create 10 different sub doing
the same task.
i want to use the same sub for 10 workbook so is there a way no need to
define the workbook here. any coding to make invisible window or workbook to
become visible without need to specify the name?


Sub make_visible()
Range("A1").Select
Windows("ctc.xls").Visible = True
End Sub


  #2   Report Post  
Dave Peterson
 
Posts: n/a
Default

If your xlx variable still holds the reference to the workbook, maybe something
like:

Dim xlx As Workbook
Dim myWindow As Window
'I used the activeworkbook for testing.
'Set xlx = ActiveWorkbook
For Each myWindow In xlx.Windows
myWindow.Visible = False
Next myWindow


If you put:
Dim xlx as workbook
at the top of your module (out of the scope of any procedure), then unless you
reset your project (or clear that variable some other way), then xlx should
still point to your workbook.


mango wrote:

dear all,
it is for presentation.
may i know any other way to make my workbook visible without specify the
workbook name? because i have 10 workbooks need to do like this. i open each
workbook 1 at a time so no clash between. i am thinking of using same
shortcut key to make it visible without specify the workbook name

first i make it invisible. here of course i need to specify the workbook name.

MyPath2 = "\\server\temp\ctc.xls#'Debtors & Milestone highlights'!a1"
Set xlx = Workbooks.Open("\\servertemp\ctc.xls", UpdateLinks:=0)
ActiveWorkbook.FollowHyperlink (MyPath2)
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 1
ActiveWindow.Visible = False

later when need it will use shortcut key to show. here can i make it visible
without specify the name so that i need not to create 10 different sub doing
the same task.
i want to use the same sub for 10 workbook so is there a way no need to
define the workbook here. any coding to make invisible window or workbook to
become visible without need to specify the name?

Sub make_visible()
Range("A1").Select
Windows("ctc.xls").Visible = True
End Sub


--

Dave Peterson
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
Can Excel open each workbook in a seperate window JVC Dude Setting up and Configuration of Excel 2 January 15th 05 02:01 AM
Resize the workbook window is impossible Valeria Excel Discussion (Misc queries) 1 December 29th 04 12:30 PM
unhide hidden window or workbook mango Excel Worksheet Functions 1 December 21st 04 10:59 AM
Stubborn toolbars in Excel 007 Excel Discussion (Misc queries) 9 December 11th 04 03:02 PM
better search: "make worksheet visible" christo Excel Discussion (Misc queries) 1 December 1st 04 01:20 AM


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