用户窗体始终置顶其他工作簿问题及跨工作簿代码适配需求

你的问题根源在于：用vbModeless显示的无模式窗体，默认是依附于整个Excel应用程序窗口的，而不是单个工作簿窗口。所以切换其他工作簿时，它会一直停留在所有窗口最上层，而你原来的代码只监听了当前工作簿内的工作表激活事件，切换工作簿时根本不会触发这段代码，自然无效。

下面给你两种可行的解决方案：

方案一：用API将窗体绑定到指定工作簿窗口 #

这种方法能让窗体真正“归属”到你的目标工作簿，切换其他工作簿时窗体会被新工作簿窗口覆盖，不会再置顶。

1. 先插入一个标准模块，粘贴以下API声明（兼容64位/32位Excel）：

#If VBA7 Then
    Declare PtrSafe Function SetParent Lib "user32.dll" (ByVal hWndChild As LongPtr, ByVal hWndNewParent As LongPtr) As LongPtr
    Declare PtrSafe Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
#Else
    Declare Function SetParent Lib "user32.dll" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
    Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
#End If

2. 修改你原来的Workbook_SheetActivate事件代码，在显示窗体后添加绑定逻辑：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name <> "HTFD" And Flight_Deck.Visible = True Then
        Unload Flight_Deck
    End If
    
    If Sh.Name = "HTFD" And Flight_Deck.Visible = False Then
        Flight_Deck.Show vbModeless
        ' 将窗体绑定到当前工作簿的窗口
        Dim hwndWorkbook As LongPtr
        hwndWorkbook = FindWindow("XLMAIN", ThisWorkbook.Windows(1).Caption)
        SetParent Flight_Deck.hWnd, hwndWorkbook
    End If
End Sub

方案二：监听Excel应用的工作簿激活事件 #

通过监听整个Excel应用的工作簿切换事件，在切换到其他工作簿时自动隐藏窗体，切回时再根据工作表状态显示。

1. 打开ThisWorkbook模块，添加以下代码：

' 声明模块级变量，监听Excel应用事件
Private WithEvents appExcel As Excel.Application

Private Sub Workbook_Open()
    ' 初始化事件监听
    Set appExcel = Application
End Sub

' 处理工作簿激活事件
Private Sub appExcel_WorkbookActivate(ByVal Wb As Workbook)
    ' 激活的不是当前工作簿时，隐藏窗体
    If Wb.Name <> ThisWorkbook.Name Then
        If Flight_Deck.Visible = True Then
            Unload Flight_Deck
        End If
    Else
        ' 切回当前工作簿时，根据当前工作表状态判断是否显示窗体
        If ActiveSheet.Name = "HTFD" Then
            If Not Flight_Deck.Visible Then
                Flight_Deck.Show vbModeless
            End If
        Else
            If Flight_Deck.Visible Then
                Unload Flight_Deck
            End If
        End If
    End If
End Sub

2. 保留你原来的Workbook_SheetActivate事件代码，处理同工作簿内的工作表切换逻辑。

两种方案都能解决你的问题，方案一更“彻底”，方案二逻辑更直观，你可以根据自己的需求选择~

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