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

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

Answer 1

回答我自己的问题：问题不在我上面发布的代码中，而是在加载用户窗体的方式中。它应该是无模式的。

Answer 2

只需将以下代码放在您的主UserForm_Initialize子中，它将最小化Excel应用程序窗口，同时在桌面上打开表单。

Private Sub minimizeWindow()
  With Application
    .WindowState = xlMinimized
  End With
End sub

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

2 个答案: