quitting worksheet then excel if....

[Guest]

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

 

[Guest]

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]

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