excel - 有没有办法检查不可见的打开的 Excel 工作簿？

Question

我有一个打开的工作簿，其中带有“保存关闭”按钮。我希望该按钮上的事件能够关闭整个 Excel 应用程序(如果它是最后打开的工作簿)。问题是，可能会打开未知的 individual.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