Excel 2003：如何在显示第二个Userform时继续运行宏

核心问题根源 #

UserForm默认以**模态（vbModal）模式显示，这种模式会暂停后续代码执行，必须关闭窗体后宏才会继续走流程。要实现窗体显示时宏持续运行，只需将窗体改为非模态（vbModeless）**显示即可。

具体修改与代码优化 #

1. 关键修改：调整UserForm显示模式 #

把原代码里的UserForm2.Show替换为：

UserForm2.Show vbModeless

添加vbModeless参数后，窗体弹出后宏会继续执行后续的保存、关闭工作簿等逻辑。

2. 修正原代码的其他潜在问题 #

原代码存在几个易导致报错的细节，一并修正：

• 路径拼接缺少斜杠：ActiveWorkbook.Path & "prova.xls"改为ActiveWorkbook.Path & "\prova.xls"，避免路径格式错误。
• 未声明变量ws：在代码开头添加Dim ws As Worksheet，符合VBA变量声明规范。
• 重复设置Application.EnableEvents = False：只需在操作前设置一次，操作结束后恢复。
• 工作簿引用逻辑矛盾：打开prova.xls却引用test.xls，建议直接通过打开语句赋值工作簿对象，避免引用错误。
• 移除滥用的On Error Resume Next：该语句会隐藏所有错误，不利于调试，除非有明确的错误处理需求。

修正后的完整代码 #

Private Sub CommandButton1_Click()
    Dim Awk2 As Workbook: Set Awk2 = ThisWorkbook
    Dim Bwk1 As Workbook
    Dim ws As Worksheet
    
    Application.EnableEvents = False
    ' 直接将打开的工作簿赋值给Bwk1，避免后续引用出错
    Set Bwk1 = Workbooks.Open(Filename:=Awk2.Path & "\prova.xls")
    
    For Each ws In Bwk1.Worksheets
        Select Case ws.Name
            Case "sheet1"
                ' 此处可添加sheet1的专属处理逻辑
            Case Else
                With ws
                    .Range("A2:A50") = "1" ' 加.确保引用当前工作表的单元格
                End With
        End Select
    Next ws
    
    ' 非模态显示UserForm，宏继续执行后续代码
    UserForm2.Show vbModeless
    
    Application.DisplayAlerts = False
    Bwk1.Save
    Bwk1.Close
    Application.DisplayAlerts = True
    
    Application.EnableEvents = True ' 恢复Excel事件触发
End Sub

注意事项 #

• Excel 2003对非模态窗体的支持有限，窗体显示期间可能无法操作部分Excel功能，但不影响宏的后台执行。
• 如果需要在UserForm2关闭后再执行保存关闭操作，可在UserForm2的QueryClose事件中编写对应的逻辑，替代当前的非模态设置。

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