关闭任何打开的用户表单

Question

经过仔细搜索和一些（过度）思考后，我得出结论，我无法回答看似简单的问题。

我有一个包含许多（20 多个）用户表单的 excel 文档。如果您按下一个按钮（不在用户表单中，而只是在 Excel 工作表上）重新开始，它应该关闭当时打开的任何用户表单。

我尝试使用unload me，但是当没有任何打开的用户表单时，我当然得到了一个错误。 然后我尝试添加on error resume next，认为如果没有用户表单，它会跳过该行，因此不会给出错误，而是继续我想要它做的事情。 （打开一个新的用户表单）。

它确实不再给我错误，但它也没有关闭任何打开的用户表单（当有一个打开时）。

所以我在这里，希望有人可以帮助我，因为我不知道该怎么做。我可以列出我想的所有用户表单，但我想应该可以更快更自动地运行吗？

更多信息：不可能同时打开多个用户窗体。 // 我要创建的按钮会关闭所有用户表单（如果有）并引导用户返回主菜单。

提前致谢！ 川流

Answer 1

当您想卸载所有表单时尝试调用以下命令

Sub UnloadAllForms(Optional dummyVariable As Byte)
'Unloads all open user forms
    Dim i As Long
    For i = VBA.UserForms.Count - 1 To 0 Step -1
        Unload VBA.UserForms(i)
    Next
End Sub

Answer 2

希望这是我在过去 5 年中编写的最糟糕的代码，但它会关闭您在 Excel 中可能拥有的任何呼吸形式（并且会杀死任何变量等）：

Public Sub CloseAll()
    End
End Sub

谨慎使用！

From the MSDN End Statement:

• End 语句会突然停止代码执行，而不调用 Unload、QueryUnload 或 Terminate 事件或任何其他 Visual Basic 代码。

• 您在表单和类模块的Unload、QueryUnload 和Terminate 事件中放置的代码不会执行。

• 从类模块创建的对象被销毁，使用 Open 语句打开的文件被关闭，程序使用的内存被释放。

• 其他程序持有的对象引用无效。

• End 语句提供了一种强制程序停止的方法。对于 Visual Basic 程序的正常终止，您应该卸载所有窗体。

• 只要没有其他程序持有对从您的公共类模块创建的对象的引用并且没有代码执行，您的程序就会关闭。