64位Office下VBA日历窗体Userform2无法关闭问题求助

这问题我之前帮好几个开发者排查过，64位Office里VBA窗体卸载/隐藏失效，大概率和32位API未适配64位环境或者窗体显示逻辑的阻塞有关，咱们一步步来解决：

1. 优先检查API的64位兼容性 #

如果你的日历窗体（Userform2）用到了Windows API（比如查找窗口、控制鼠标之类的），32位Office里的API声明在64位环境下会失效，直接导致窗体挂起、无法关闭。

举个例子，32位环境下的API声明：

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

必须改成64位兼容版本：

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr

关键改动：

• 加上PtrSafe关键字（64位Office强制要求）
• 把返回类型Long换成LongPtr（适配64位内存地址）

2. 调整窗体显示与关闭的逻辑顺序 #

如果你的Userform2是用Show vbModal（模态窗体）打开的，要确保关闭逻辑的顺序正确，避免上下文阻塞：

在日历窗体的「确认日期」按钮里，按这个顺序写代码：

Private Sub cmdSelectDate_Click()
    ' 1. 先把选中的日期传递给Userform1的TextBox1
    UserForm1.TextBox1.Value = Format(Me.calSelectedDate.Value, "yyyy-mm-dd")
    
    ' 2. 卸载当前日历窗体
    Unload Me
    
    ' 3. 可选：如果父窗体(Userform1)被模态窗体阻塞后未恢复，手动启用
    UserForm1.Enabled = True
End Sub

另外，避免在TextBox1的点击事件里嵌套模态窗体时，出现逻辑上的死锁（比如父窗体的事件未完成就打开子窗体，导致子窗体无法释放资源）。

3. 排查窗体事件中的阻塞代码 #

检查Userform2的QueryClose或Terminate事件，看是否不小心写了阻止窗体关闭的逻辑：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ' 错误示例：如果这里把Cancel设为1，会强制取消关闭操作
    ' Cancel = 1
End Sub

如果有这类代码，要么删除，要么加条件判断（比如只有在未选择日期时才取消关闭）。

4. 应急方案：用系统消息强制关闭窗体 #

如果以上方法都没用，可以用Windows API发送强制关闭消息，绕过VBA层面的阻塞：

' 先声明64位兼容的API
Private Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr
Private Const WM_CLOSE = &H10

' 在关闭按钮中调用
Private Sub cmdClose_Click()
    PostMessage Me.hwnd, WM_CLOSE, 0, 0
End Sub

这个方法直接向窗体发送系统级的关闭指令，能解决大部分因VBA逻辑阻塞导致的无法关闭问题。

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