asked on
How to determine if there are more than one excel applications running
I have an Excel workbook that we use as a form. I have added a button that when clicked if this is the only form open Excel closed completely, but if Excel has another workbook opened it will only close the form.
ActiveWorkbook.Saved = True
If Workbooks.Count >= 2 Then Application.Quit '2 needed to include personal.wkb
ThisWorkbook.Close
This works but only if the user opens another Excel file from the menu bar (OPEN FILE) within the form. If Excel or another Excel file is opened by a shortcut, or other means, the code doesn't see it and cause the application to quit.
Is this possible?
Thank you.
ActiveWorkbook.Saved = True
If Workbooks.Count >= 2 Then Application.Quit '2 needed to include personal.wkb
ThisWorkbook.Close
This works but only if the user opens another Excel file from the menu bar (OPEN FILE) within the form. If Excel or another Excel file is opened by a shortcut, or other means, the code doesn't see it and cause the application to quit.
Is this possible?
Thank you.
Microsoft Excel
Last Comment
thandel
ASKER CERTIFIED SOLUTION
THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
ASKER
Yes you understand my issue. Your code is pretty much what I have now and when another workbook is opened from outside of the Excel "Form" the workbook count doesn't refelct this and thus is always closing excel via the application quit.
What I have is a bit different though in that it quits the application if there's only 1 workbook open. If there's more than that, then it just closes the workbook. Your version, I assume due to a logic oversight, has it the other way around, if there's 2 or more workbooks then it closes the application.
Did you try my code? Candidly, I haven't, but I don't see a reason why it wouldn't work. Excel doesn't care (or shouldn't) how another workbook is opened.
Did you try my code? Candidly, I haven't, but I don't see a reason why it wouldn't work. Excel doesn't care (or shouldn't) how another workbook is opened.
ASKER
I need two because I think the personal.xls is effecting it. When I only open this form its reports that 2 are open.
OK, fine, but you have:
If Workbooks.Count >= 2 Then Application.Quit
So if you have 2 or more open, then quit the application (which is what is happening right?)
I think what you mean is
If Workbooks.Count <= 2 Then Application.Quit
if there are 2 or FEWER, then quit, otherwise, just close the workbook.
If Workbooks.Count >= 2 Then Application.Quit
So if you have 2 or more open, then quit the application (which is what is happening right?)
I think what you mean is
If Workbooks.Count <= 2 Then Application.Quit
if there are 2 or FEWER, then quit, otherwise, just close the workbook.
ASKER
Hmmm my current code is:
ActiveWorkbook.Saved = True
If Workbooks.Count <= 2 Then Application.Quit
ThisWorkbook.Close
Sorry above code was posted incorrecly. My mistake, sorry about that.
ActiveWorkbook.Saved = True
If Workbooks.Count <= 2 Then Application.Quit
ThisWorkbook.Close
Sorry above code was posted incorrecly. My mistake, sorry about that.
ASKER
OK so I tried your code but changed the 1 to a 2 .... and its working... perhaps the if then else resolved this. Thank you!