将Excel用户表单显示为任务栏中的按钮

Question

我想隐藏任务栏中的Excel按钮,并为我的用户窗体显示一个单独的按钮,使其感觉就像一个应用程序.我知道这已经被覆盖了很多,但我遇到了一个特定的问题:我的代码在我单步执行时工作正常,但如果我让它正常运行则不行.这是我在Userform1的类模块中放置的代码:

Option Explicit

Private Declare Function GetWindowLong _
    Lib "user32" _
        Alias "GetWindowLongA" ( _
            ByVal hWnd As Long, _
            ByVal nIndex As Long) _
As Long

Private Declare Function SetWindowLong _
    Lib "user32" _
        Alias "SetWindowLongA" ( _
            ByVal hWnd As Long, _
            ByVal nIndex As Long, _
            ByVal dwNewLong As Long) _
As Long

Private Declare Function DrawMenuBar _
    Lib "user32" ( _
        ByVal hWnd As Long) _
As Long

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

Private Const GWL_EXSTYLE = (-20)
Private Const GWL_STYLE As Long = (-16)
Private Const WS_EX_APPWINDOW = &H40000
Private Const WS_SYSMENU As Long = &H80000
Private Const WS_MINIMIZEBOX As Long = &H20000
Private Const WS_MAXIMIZEBOX As Long = &H10000

Private Sub UserForm_Activate()

Dim lFrmWndHdl As Long
Dim lStyle As Long

lFrmWndHdl = FindWindowA(vbNullString, Me.Caption)
lStyle = GetWindowLong(lFrmWndHdl, GWL_STYLE)
lStyle = lStyle Or WS_SYSMENU
lStyle = lStyle Or WS_MINIMIZEBOX
lStyle = lStyle Or WS_MAXIMIZEBOX
SetWindowLong lFrmWndHdl, GWL_STYLE, (lStyle)
lStyle = GetWindowLong(lFrmWndHdl, GWL_EXSTYLE)
lStyle = lStyle Or WS_EX_APPWINDOW
SetWindowLong lFrmWndHdl, GWL_EXSTYLE, lStyle
DrawMenuBar lFrmWndHdl
AppActivate ("Microsoft Excel")
ThisWorkbook.Application.Visible = False

End Sub

单步执行代码,当我进入第2行到最后一行AppActivate时,任务栏中会出现一个单独的按钮,最后一行会在任务栏中隐藏Excel工作簿的原始按钮.然后我只剩下一个用户表单,可以像任何正常的应用程序一样最大化或最小化到任务栏.问题是如果我通过代码加载用户窗体,用户窗体的单独按钮不会出现在任务栏中,因此任务栏中没有显示Excel按钮.

Answer 1

回答我自己的问题：问题不在于我上面发布的代码，而在于加载用户表单的方式。它应该作为无模式加载。