当所有宏停止运行时隐藏无模式窗体

很高兴能帮到你！针对你遇到的无模式窗体在宏结束后无法自动隐藏/卸载的问题，我整理了几个实用的解决方案，你可以根据自己的场景选择：

如果你的宏是严格按顺序执行的，这是最直接的方法——在最后一个完成的宏的结尾处添加窗体操作代码：

• 若想暂时隐藏窗体（后续还能复用），使用：
  UserForm1.Hide
• 若要彻底卸载窗体释放资源，使用：
  Unload UserForm1

注意：如果宏存在异步执行、并行触发的情况，这个方法就不适用了，但顺序执行的场景下足够简单高效。

这种方法更灵活，适合宏执行逻辑复杂的场景：

1. 先在标准模块里定义一个全局变量，用来标记宏的运行状态：
   Public IsMacroRunning As Boolean
2. 在每个宏的开头设置IsMacroRunning = True，结尾设置IsMacroRunning = False；如果宏可能抛出错误，记得在错误处理块里也把这个变量设为False
3. 在无模式窗体上添加一个Timer控件，设置合适的检查间隔（比如500毫秒，即0.5秒），然后在定时器的触发事件里写：

   Private Sub Timer1_Timer()
       If Not IsMacroRunning Then
           Me.Hide ' 或者用 Unload Me 彻底卸载
           Timer1.Enabled = False ' 停止定时器，避免无效检查
       End If
   End Sub
   

4. 最后在显示窗体的时候，记得开启定时器：UserForm1.Timer1.Enabled = True

如果你的项目比较复杂，想让代码更易维护，可以用面向对象的方式处理：

1. 创建一个类模块（比如命名为MacroRunner），封装宏的运行逻辑并定义完成事件：

   Public Event MacroCompleted()
   
   Public Sub RunSequentially()
       ' 按顺序执行你的宏
       MacroStep1
       MacroStep2
       MacroStep3
       ' 所有宏完成后触发事件
       RaiseEvent MacroCompleted
   End Sub
   

2. 在窗体的代码模块里，声明类实例并绑定事件：

   Private WithEvents macroRunner As MacroRunner
   
   Private Sub UserForm_Initialize()
       Set macroRunner = New MacroRunner
       ' 启动宏序列
       macroRunner.RunSequentially
   End Sub
   
   Private Sub macroRunner_MacroCompleted()
       Me.Hide ' 或者 Unload Me
       Set macroRunner = Nothing ' 释放类实例资源
   End Sub
   

额外提醒：如果使用Unload方法，要确保窗体上的所有临时数据、控件资源都已经妥善处理，避免内存泄漏问题。

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