关闭其他Excel文件时UserForm1意外关闭的问题求助

我有一个xlsm文件，打开时会自动启动UserForm1，并将Excel主窗口设为不可见。打开另一个xls文件时，UserForm1能正常保持打开状态，但关闭这个xls文件时，UserForm1也会跟着关闭，这不符合我的需求。

复现步骤 #

• 打开目标xlsm文件，此时UserForm1启动，Excel主窗口隐藏
• 打开任意一个xls文件
• 关闭该xls文件，UserForm1随之关闭，不符合预期

复现代码 #

ThisWorkbook 代码段 #

Sub Workbook_Open()
    showLoginForm
End Sub

UserForm1 代码段 #

Private Sub CommandButton1_Click()
    UserForm1.Hide
End Sub

Private Sub EditMode_Click()
    Application.Visible = True
    ThisWorkbook.Windows(1).Visible = True
    ThisWorkbook.Sheets(1).Activate
    Me.Hide
End Sub

标准模块（Module）代码段 #

Sub showLoginForm()
    If isSheetVisible Then
        ' 仅隐藏当前工作簿，保留其他工作簿可见
        ThisWorkbook.Windows(1).Visible = False
    Else
        ' 无其他可见工作簿，隐藏Excel主窗口
        Application.Visible = False
        ThisWorkbook.Windows(1).Visible = False
    End If
    UserForm1.Show vbModeless
End Sub

Function isSheetVisible() As Boolean
    ' 检查当前工作簿外是否存在可见工作簿
    Dim wb As Workbook
    
    For Each wb In Application.Workbooks
        If Not wb Is ThisWorkbook Then
            Dim win As Window
            For Each win In wb.Windows
                If win.Visible Then isSheetVisible = True
            Next
        End If
    Next
End Function

问题根源 #

当你关闭最后一个可见的外部工作簿时，Excel会自动将Application.Visible切换回False，而无模态（vbModeless）窗体的显示状态会和Excel主窗口的可见性绑定，导致窗体被强制关闭。

修复步骤 #

1. 添加Application级别的工作簿关闭监听

在一个标准模块中添加以下代码，用于监听所有工作簿的关闭事件：

Public WithEvents appExcel As Application

Private Sub appExcel_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
    ' 跳过当前xlsm文件的关闭事件
    If Wb Is ThisWorkbook Then Exit Sub
    
    ' 预判关闭该工作簿后，是否还有其他可见的外部工作簿
    Dim hasVisibleWB As Boolean
    hasVisibleWB = False
    
    For Each wb In Application.Workbooks
        If Not wb Is ThisWorkbook And Not wb Is Wb Then
            For Each win In wb.Windows
                If win.Visible Then
                    hasVisibleWB = True
                    Exit For
                End If
            Next
            If hasVisibleWB Then Exit For
        End If
    Next
    
    ' 如果关闭后没有其他可见工作簿，强制保持Excel主窗口隐藏，并确保UserForm1显示
    If Not hasVisibleWB Then
        Application.Visible = False
        If Not UserForm1.Visible Then
            UserForm1.Show vbModeless
        End If
    End If
End Sub

2. 初始化事件监听

修改ThisWorkbook中的Workbook_Open过程，初始化Application事件：

Sub Workbook_Open()
    Set appExcel = Application
    showLoginForm
End Sub

3. 优化窗体显示（可选）

在showLoginForm过程中添加TopMost属性，确保UserForm1始终在最上层：

Sub showLoginForm()
    If isSheetVisible Then
        ThisWorkbook.Windows(1).Visible = False
    Else
        Application.Visible = False
        ThisWorkbook.Windows(1).Visible = False
    End If
    UserForm1.Show vbModeless
    UserForm1.TopMost = True ' 确保窗体始终在最前端
End Sub

原理说明 #

通过监听工作簿的关闭事件，提前判断关闭后是否还有其他可见工作簿。如果没有，就强制将Excel主窗口设为隐藏，并重新显示UserForm1（如果已被关闭），从而避免窗体因Excel主窗口状态变化而被关闭。

内容的提问来源于stack exchange，提问作者chn112