如何检查另一个工作簿是否打开？

Question

我通过使用任务管理器来打开工作簿。 有时上一个任务没有完成，即该宏已经在另一个工作簿中运行。

我想检查是否有其他工作簿已经打开或正在运行宏； 由任务管理器关闭当前打开的工作簿。

我有如下简单的代码：

If thisworkbook.name <> activeworkbook.name then
    call sendemail ' don't need code
else
    Call Run_Dashboard
End if

Answer 1

Dim wb as Workbook
On Error Resume Next                       '//this is VBA way of saying "try"'
Set wb = Application.Workbooks(wbookName)
If err.Number = 9 then                     '//this is VBA way of saying "catch"'
    'the file is not opened...'
End If

Answer 2

Function Is_Workbook_Open(byval WB_Name as String) as Boolean
Dim WB as Workbook
For each WB in Application.Workbooks
    if WB.Name = WB_Name then
        Workbook_Open = True
        Exit Function
    End if
Next WB
End Function

如果打开了工作簿，则为True，没有错误处理。