vba - 引用并打开外部 xlsm 库时强制退出

Question

我有三个文件，一个是app.xlsm ，另一个是lib.xlsm , 而 app.xlsm使用 lib.xlsm作为引用(在工具 -> 引用中指定)。第三个，third.xlsm有以下代码:

Private Sub Workbook_Open()
    prompt = MsgBox("If you click Ok, Excel will force close." & vbCrLf & _
            "If you click Cancel, you can work with the file", vbOKCancel)
    If prompt = vbOK Then
        Application.DisplayAlerts = False
        thisworkbook.Close True
        Application.Quit
    End If
End Sub

假设我有 app和 lib打开。现在当我打开 third ，然后在提示符处单击确定， app关闭但 lib保持打开状态。 IE。 Excel 不会强制关闭。

我需要 Excel 关闭所有文件而不保存它们并静默关闭。

非常感谢。

Answer 1

如果您在这种情况下遍历打开的工作簿会发生什么，即

Private Sub Workbook_Open()
    Dim wb As Workbook
    prompt = MsgBox("If you click Ok, Excel will force close." & vbCrLf & _
            "If you click Cancel, you can work with the file", vbOKCancel)

    If prompt = vbOK Then
       For Each wb In Application.Workbooks
         If wb.Name <> ThisWorkbook.Name Then wb.Close False
       Next
    End If
    ThisWorkbook.Saved = True
    Application.Quit
End Sub

关闭所有 Excel 实例的热核选项

Private Sub Workbook_Open()
        Dim wb As Workbook
        prompt = MsgBox("If you click Ok, Excel will force close." & vbCrLf & _
                "If you click Cancel, you can work with the file", vbOKCancel)

        If prompt = vbOK Then
           For Each wb In Application.Workbooks
             If wb.Name <> ThisWorkbook.Name Then wb.Close False
           Next
        End If
        X2 = Shell("powershell.exe kill -processname excel", 1)
End Sub