VBA：更改无模式UserForm父窗口遇异常求助

环境信息 #

• 所有代码与UserForm均位于Excel加载项中
• 使用64位Office 365系统

需求 #

当无模式UserForm（UD_SearchImageNotes）处于激活状态时，将其父窗口切换至任意激活的、名称匹配*Image Data*格式的工作簿。

当前低效实现方案 #

此前通过激活工作簿时卸载并重载UserForm实现需求，但需要保存和恢复窗体字段，操作繁琐且低效：

' 事件类模块代码
Private Sub ExcelApp_WorkbookActivate(ByVal wbActivated As Workbook)
    ' … 条件判断与辅助逻辑 …
    Unload UD_SearchImageNotes
    UD_SearchImageNotes.Show vbModeless
End Sub

尝试的优化方案（未达预期） #

参考相关方案修改代码后，调用SetParent时UserForm直接关闭，未完成父窗口切换：

事件类模块代码 #

Private Sub ExcelApp_WindowActivate(ByVal wbBook As Workbook, ByVal wnWindow As Window)
    Dim lpHWnd As LongPtr, lpHWndActivated As LongPtr

    lpHWndActivated = wnWindow.hwnd
    lpHWnd = FindWindowA(vbNullString, "Search Image Notes")

    If lpHWnd > 0 And wbBook.Name Like "*Image Data*" Then
        If GetParent(lpHWnd) <> lpHWndActivated Then
            SetParent lpHWnd, lpHWndActivated
        End If
    End If
procFinish: 
    Set wbBook = Nothing
    Set wnWindow = Nothing
End Sub

标准模块辅助代码 #

Public Declare PtrSafe Function SetParent Lib "user32" (ByVal hWndChild As LongPtr, ByVal hWndParent As LongPtr) As LongPtr
Public Declare PtrSafe Function GetParent Lib "user32" (ByVal hWndChild As LongPtr) As LongPtr
Public Declare PtrSafe Function FindWindowA Lib "user32" (ByVal stClassName$, ByVal stWindowName$) As LongPtr

问题细节 #

• 事件处理器与FindWindowA可正常运行，但执行SetParent后UserForm直接关闭，未实现父窗口切换
• 原方案提问者曾遇到类似“打开新工作簿时UserForm关闭”的问题，通过“先创建新工作簿再打开”解决，但该方法不适用于切换现有工作簿的场景

恳请提供问题原因分析及可行解决思路。

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