Добрый вечер! Есть форма, запускается при открытии файла, приложение excel при этом скрывается (Application.Visible = False). Хотелось бы при закрытии формы нажатием на "крестик" закрывать и excel без ущерба возможно открытым параллельно файлам excel (т.е. сделать проверку, есть ли открытые файлы помимо текущего и если есть - закрывать только книгу с моей формой и делать excel видимым, если нет - закрывать само приложение).
Помогите, пожалуйста, корректно написать такую процедуру!
Sub CloseWorkbook()
k = 0
Dim wb As Workbook: Application.ScreenUpdating = False
For Each wb In Workbooks
If wb.Windows(1).Visible = True Then k = k + 1 'вот тут первая загвоздка, потому как все книги скрываются как только запускается моя форма
Next wb
If k > 1 Then
Application.Visible = True
ActiveWorkbook.Close
Else: Application.Quit
End If
End Sub
Помогите, пожалуйста, корректно написать такую процедуру!
Sub CloseWorkbook()
k = 0
Dim wb As Workbook: Application.ScreenUpdating = False
For Each wb In Workbooks
If wb.Windows(1).Visible = True Then k = k + 1 'вот тут первая загвоздка, потому как все книги скрываются как только запускается моя форма
Next wb
If k > 1 Then
Application.Visible = True
ActiveWorkbook.Close
Else: Application.Quit
End If
End Sub