vba 如何判断 当前窗体是否被关 ，IsLoaded不能用

在VBA中，如果你想要检查当前窗体是否已经被关闭，标准的`IsLoaded`属性并不总是可用，特别是当窗体已经从内存中卸载时。在这种情况下，你可以通过其他方式来检测：

1. **Private Declare Function**：VBA允许你声明和使用Windows API函数。可以尝试使用`FindWindow`函数来查找窗体的句柄，如果找不到，那么窗体很可能已经关闭。例如：

   Private Declare Function FindWindow Lib "User32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
   Function IsFormClosed(FileName As String) As Boolean
       Dim hWnd As Long
       If FindWindow("YourFormClass", FileName) = 0 Then
           IsFormClosed = True
       Else
           IsFormClosed = False
       End If
   End Function

将`"YourFormClass"`替换为你窗体的实际类名。

2. ** WithEvents** 结构：如果你的窗体是通过事件处理程序创建的，你可以在窗体的模块中创建一个 WithEvents 对象，并监听它的 `OnLoad` 和 `OnUnload` 事件。当窗体加载或卸载时，事件会触发相应的代码块，借此确认状态。

请注意，上述方法可能会因为安全性和性能原因受到限制，特别是在处理大量或频繁的窗口查询时。因此，在实际应用中需要权衡。