quitting worksheet then excel if....

[JNW]

I have a program used to fill out forms in our department. When logging out
of the program (commandbutton) I can either close the workbook, or quit the
application.

What I would like to know: Is there a way to check to see if there are any
other workbooks open? If yes then close my program workbook. If no then
quit excel.

Thank you

[Rowan Drummond]

Try something like:

Sub bks()
Dim i As Integer
Dim wkb As Workbook
For Each wkb In Application.Workbooks
If wkb.Name <> "PERSONAL.XLS" Then
i = i + 1
End If
Next wkb
If i > 1 Then
ThisWorkbook.Close True
Else
ThisWorkbook.Save
Application.Quit
End If
End Sub

Hope this helps
Rowan

JNW wrote:
> I have a program used to fill out forms in our department. When logging out
> of the program (commandbutton) I can either close the workbook, or quit the
> application.
>
> What I would like to know: Is there a way to check to see if there are any
> other workbooks open? If yes then close my program workbook. If no then
> quit excel.
>
> Thank you

[JNW]

Thank you for the reply!

Because it is one of those days... "Personal.xls" - is this the name of the
workbook I want to close?

Thanks again.



"Rowan Drummond" wrote:

> Try something like:
>
> Sub bks()
> Dim i As Integer
> Dim wkb As Workbook
> For Each wkb In Application.Workbooks
> If wkb.Name <> "PERSONAL.XLS" Then
> i = i + 1
> End If
> Next wkb
> If i > 1 Then
> ThisWorkbook.Close True
> Else
> ThisWorkbook.Save
> Application.Quit
> End If
> End Sub
>
> Hope this helps
> Rowan
>
> JNW wrote:
> > I have a program used to fill out forms in our department. When logging out
> > of the program (commandbutton) I can either close the workbook, or quit the
> > application.
> >
> > What I would like to know: Is there a way to check to see if there are any
> > other workbooks open? If yes then close my program workbook. If no then
> > quit excel.
> >
> > Thank you
>

[Rowan Drummond]

No Personal.xls is a hidden workbook that holds the user's personal
macros. This book is opened automatically every time Excel starts so if
you want to check that only one visible workbook is open you should
exclude Personal.xls from your workbook count.

Hope this makes sense
Rowan

JNW wrote:
> Thank you for the reply!
>
> Because it is one of those days... "Personal.xls" - is this the name of the
> workbook I want to close?
>
> Thanks again.
>
>
>
> "Rowan Drummond" wrote:
>
>
>>Try something like:
>>
>>Sub bks()
>> Dim i As Integer
>> Dim wkb As Workbook
>> For Each wkb In Application.Workbooks
>> If wkb.Name <> "PERSONAL.XLS" Then
>> i = i + 1
>> End If
>> Next wkb
>> If i > 1 Then
>> ThisWorkbook.Close True
>> Else
>> ThisWorkbook.Save
>> Application.Quit
>> End If
>>End Sub
>>
>>Hope this helps
>>Rowan
>>
>>JNW wrote:
>>
>>>I have a program used to fill out forms in our department. When logging out
>>>of the program (commandbutton) I can either close the workbook, or quit the
>>>application.
>>>
>>>What I would like to know: Is there a way to check to see if there are any
>>>other workbooks open? If yes then close my program workbook. If no then
>>>quit excel.
>>>
>>>Thank you
>>