File Open List in floating box

**nigelog** · 05-28-2008, 05:27 AM

Hi
is it possible to display the files open (the contents of the Windows drop down menu from standard toolbar) in a display that can be viewed at all times on a workstation. My reason for this is to monitor the files I have open to avoid trying to open a second copy and getting error reports from macros within. These error reports seem to frighten some of the users here and rather than read them and act accordingly they go for coffee and say thier system is down. It is my intention once I can get a system working, to introduce these people to monitor what they already have open, and more importantly what they do not need open at any particular time. Any help appreciated

**royUK** · 05-28-2008, 05:42 AM

Wouldn't it be more effective to put some error trapping in your code to determine if a file is open?

**dominicb** · 05-28-2008, 05:48 AM

Good morning nigelog

Have a look at the attached file. When you click on the button a small userform will open that shows all open workbooks within the current instance of Excel.

There are two buttons ; Refresh and Close. Double click on any of the files listed to jump to that file. This form can remain open on screen while the user carries on working.

HTH

DominicB

**nigelog** · 05-28-2008, 06:06 AM

Hi Domonicb

sounds perfect for my requirements, however I have a problem downloading excel attachements from the forum for some reason. Would you mind resending as zip I think I have a few days left on my evaluation licence for zip. rgds Nigel

**dominicb** · 05-28-2008, 06:12 AM

Hi nigelog

Have a look at my post again - I have added the zipped version.

DominicB

**nigelog** · 05-28-2008, 06:25 AM

Hi Dominicb,
its what I'm looking for but when I press the reset button to repopulate as files opened it starts to display duplicates. Just pressing refresh within your sheet does same. Is there a way to automate refresh and avoid duplicates?

Hi RoyUK, your suggestion makes sense (and I will probably go that route) but the ability to see for a while who has what open by a cursory look at their screen will hopefully trim down what these individuals have open unneccessarily.

Many thanks

**dominicb** · 05-28-2008, 06:30 AM

Hi nigelog

*tsk* Forgot to clear the listbox before adding items - just added that button as an afterthought, hence not thinking ahead.

Try this one instead.

HTH

DominicB

**royUK** · 05-28-2008, 06:37 AM

Don't worry about buying Wionzip, get Alzip for free

http://www.altools.com/Downloads/ALZip.aspx

**dominicb** · 05-28-2008, 06:43 AM

Hi nigelog

Originally Posted by nigelog

Is there a way to automate refresh

Try adding this code to your ThisWorkbook module.

Please Login or Register  to view this content.

Hi Roy

Originally Posted by royUK

Don't worry about buying Wionzip, get Alzip for free
http://www.altools.com/Downloads/ALZip.aspx

Hmmm, might try that one myself ...

HTH

DominicB

**royUK** · 05-28-2008, 07:19 AM

Hi Dom

I've been using it for a couple of years & replaced both Winzip & Winrar with it.

Other useful free applications there as well including a useful ftp program

**nigelog** · 05-28-2008, 07:51 AM

Hi Roy, it was worth asking the question for the zip programme. Many thanks

Hi Domnicb

have it up and running in main menu file and like the way if a file is opened from a form button on the menu it automatically appears in the listing. If you then open a further file from a hyperlink within that, it does not appear until you refresh. I can live with that. One further question though, the File Manager appears automatically in the centre of the screen, can I dictate where it is positioned as I need it in top left corner. Many thanks nigel

**dominicb** · 05-28-2008, 08:20 AM

Hi nigelog

You'll need to tinker with the userform properties to do that - I can't give you the numbers to use because it depends on the resolution of your screen, and what size monitor you have.
Set the userform property StartUp Position to 0-Manual.
Then play with the properties Left and Top.

I got them to the bottom left of my screen (19" widescreen display, 1280 x 768) by setting Top to 400, and Left to 750.

HTH

DominicB