Close application if...

[maba]

I wanted to find a way to check if user has any other open workbook, other case when user press close button is userform scritp could close whole excel.

I got problem if user has open workbook and I use method:

Private Sub Workbook_Open()
Application.Visible = false
laskuri.Show
End Sub

...program...

Private Sub CBsulje_Click()
laskuri.Hide
ActiveWindow.Close
Application.Visible = True
End Sub

Workbook which was open is hided (I can see taskmanager that excel.exe is running), if user try to open it again coming message that workbook is already open....

I have some mistake here, but didn't find where. So a bit help will be great.

Maba

[Leith Ross]

Hello Maba,

I am not sure if you want to quit Excel when you close the Workbook. You can uncomment that line to close Excel if you want.

Please Login or Register  to view this content.

Sincerely,
Leith Ross

[maba]

Hello Maba,

I am not sure if you want to quit Excel when you close the Workbook. You can uncomment that line to close Excel if you want.

Please Login or Register  to view this content.

Sincerely,
Leith Ross

Thanks Leith,

I want to close Excel if Excel wasn't open before that.
I need to know what is coming after if, who to check is there any other open window?

[code]Private Sub CBsulje_Click()
laskuri.Hide
ActiveWorbook.Close
Application.Visible = True

if...(there is other windows open) then
ActiveWorbook.Close
else
Application.Quit

'Uncomment the next line to close Excel
'Application.Quit
End Sub

Regards,
maba

[Leith Ross]

Hello Maba,

If I understand your post, you want to check if there are any other open workbooks when you close the workbook you have open.

Please Login or Register  to view this content.

This macro will check if anyother workbooks other than yours are still open and list them in a message box.

Sincerely,
Leith Ross

[maba]

Hello Maba,

If I understand your post, you want to check if there are any other open workbooks when you close the workbook you have open.

Please Login or Register  to view this content.

This macro will check if anyother workbooks other than yours are still open and list them in a message box.

Sincerely,
Leith Ross

Thanks Leith,

That looks exactly what I need, I just have to check that is working.

BR
maba