如何让父文件调用的UserForm在所有工作簿可见并支持InputBox选单元格？

1. 设置UserForm为无模态显示 #

默认UserForm以模态（vbModal）方式打开，会绑定父工作簿窗口，切换其他工作簿时UserForm会被隐藏。改成无模态模式即可让它在所有窗口保持可见：

' 在父文件中调用UserForm的代码
UserForm1.Show vbModeless

2. 可选：强制UserForm始终置顶（更稳定） #

若无模态模式下仍出现被遮挡的情况，可通过Windows API让UserForm始终保持在所有窗口最上层：
首先在UserForm的代码模块顶部添加API声明：

#If VBA7 Then
    Private Declare PtrSafe Function SetWindowPos Lib "user32" (ByVal hWnd As LongPtr, ByVal hWndInsertAfter As LongPtr, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#Else
    Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
#End If

Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1

然后在UserForm的Initialize事件中添加置顶代码：

Private Sub UserForm_Initialize()
    ' 让UserForm始终置顶
    SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

3. 支持InputBox选择单元格 #

在UserForm的按钮或事件中调用单元格选择InputBox时，先激活目标工作簿，再使用Application.InputBox（指定type:=8表示允许选择单元格）：

Private Sub btnSelectCell_Click()
    Dim targetWb As Workbook
    Dim selectedRange As Range
    
    ' 获取目标工作簿
    On Error Resume Next
    Set targetWb = Workbooks(txtTargetFileName.Text)
    On Error GoTo 0
    
    If Not targetWb Is Nothing Then
        ' 激活目标工作簿，确保InputBox能在该窗口中选择单元格
        targetWb.Activate
        ' 调用单元格选择InputBox
        Set selectedRange = Application.InputBox("请选择目标单元格", Type:=8)
        ' 后续处理选中的单元格，比如输出地址
        If Not selectedRange Is Nothing Then
            MsgBox "选中的单元格地址：" & selectedRange.Address(External:=True)
        End If
    Else
        MsgBox "目标工作簿未打开！"
    End If
End Sub

注意事项 #

• 无模态UserForm的代码逻辑要避免长时间阻塞操作，否则会影响Excel的交互性。
• 使用API置顶后，直接关闭UserForm即可，不会影响其他窗口正常操作。

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