如何重新打开已隐藏/卸载的VBA Userform？解决frmSetup返回问题

嘿，我完全懂你的困扰——VBA的UserForms集合确实只能追踪当前活动的窗体，没法直接查到之前被卸载的那个操作窗体。不过咱们可以用一个简单的公共变量来搞定这个需求，核心思路就是提前记录用户正在操作的窗体名称，这样在确认弹窗（frmSetup0）里用户选择“否”时，就能精准重新加载对应的窗体了。

下面是具体的实现步骤：

1. 创建公共变量存储当前窗体名称 #

首先，新建一个标准模块（不是窗体模块），在里面定义一个公共字符串变量，用来保存当前打开的非frmSetup0的窗体名称：

' 标准模块（比如Module1）中的代码
Public CurrentActiveSetupForm As String

这个变量要放在标准模块里，因为窗体模块的变量在窗体卸载后会被清空，而标准模块的变量在程序运行期间会一直保留值。

2. 在每个操作窗体的初始化事件中记录名称 #

对于每个frmSetupi（i≥1，也就是带取消按钮的那些窗体），在它们的Initialize事件里，把当前窗体的名称赋值给公共变量：

' 以frmSetup1为例，其他frmSetupi同理
Private Sub UserForm_Initialize()
    CurrentActiveSetupForm = Me.Name
End Sub

这样用户打开任何一个操作窗体时，这个变量都会自动更新为当前窗体的名称。

3. 处理取消按钮的点击逻辑 #

在每个操作窗体的取消按钮点击事件里，先卸载当前窗体，再弹出frmSetup0确认弹窗：

' 以frmSetup1的取消按钮为例
Private Sub cmdCancel_Click()
    Unload Me ' 卸载当前操作窗体
    frmSetup0.Show vbModal ' 弹出确认弹窗（模态窗口，确保用户先处理这个弹窗）
End Sub

4. 在frmSetup0中处理用户选择 #

假设frmSetup0有两个按钮：“是”（确认退出）和“否”（返回之前的操作窗体），分别编写它们的点击事件：

' frmSetup0的“是”按钮事件
Private Sub cmdYes_Click()
    Unload Me ' 用户确认退出，直接卸载确认弹窗
End Sub

' frmSetup0的“否”按钮事件
Private Sub cmdNo_Click()
    Unload Me ' 先卸载确认弹窗
    ' 根据之前记录的窗体名称，重新加载对应的操作窗体
    If CurrentActiveSetupForm <> "" Then
        UserForms.Add(CurrentActiveSetupForm).Show vbModal
    End If
End Sub

额外注意事项 #

• 如果你的操作窗体是通过Show方法打开的，确保用vbModal模态方式，避免多个窗体同时打开导致变量混乱。
• 如果需要支持多个窗体同时打开的场景（不过你的需求里是取消时才打开frmSetup0，所以应该不会），可以改用集合来记录所有打开的窗体，但单个公共变量在你的场景下已经足够简洁好用。

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