如果是最后一本工作簿,请关闭excel吗？

Question

我有一个打开的工作簿,按钮"SaveClose".我希望该按钮上的事件关闭整个Excel应用程序,如果它是最后打开的工作簿.问题是,有可能是未知的personal.xlsb打开或任何其他宏工作簿打开不可见,我想知道是否有任何其他可行的Excel工作簿打开.是否检查不可见的工作簿？如果它是最后一个工作簿,关闭excel应用程序,如果没有关闭活动工作簿,这是我得到的:

Sub CloseForceSave()

'Save the workbook.
ThisWorkbook.Save

'If this is the only workbook opened in the current session, then...
If Workbooks.Count = 1 Then "or Workbooks.Count = 2" to account for personal.xlsb
'...quit Excel
Application.Quit
'Else...
Else
'...close the active workbook
ThisWorkbook.Close
End If

End Sub

Answer 1

当我这样做时，我只是忽略任何隐藏的工作簿。如果只有一本带有可见窗口的工作簿，我会退出该应用程序。我不知道有什么比循环更好的计数方法，但我从来没有打开足够的工作簿，这不会成为性能问题。

Function VisibleWorkbookCount() As Long

    Dim wb As Workbook
    Dim wd As Window
    Dim lReturn As Long

    For Each wb In Application.Workbooks
        For Each wd In wb.Windows
            If wd.Visible Then
                lReturn = lReturn + 1
                Exit For
            End If
        Next wd
    Next wb

    VisibleWorkbookCount = lReturn

End Function