Excel VBA技术问询：打开UserForm1时隐藏Excel窗口，现有代码存灰显问题

我之前在Word中实现过类似需求，但在Excel中用相同逻辑的VBA无法达到效果——想要打开工作簿时自动显示UserForm1，同时隐藏Excel主窗口，当前使用的代码如下：

Private Sub Workbook_Open()
    ThisWorkbook.Windows(1).Visible = False
    UserForm1.Show vbModeless
End Sub

但运行后会出现背景文件灰显的问题，尝试过Application.Quit但会关闭其他已打开的文档，不符合仅影响当前工作簿的要求。

解决方案 #

方法1：使用模态窗体（简单直接）

将UserForm设置为模态显示，窗体将独占焦点，不会出现背景灰显的情况：

Private Sub Workbook_Open()
    ' 隐藏当前工作簿窗口
    ThisWorkbook.Windows(1).Visible = False
    ' 以模态方式显示UserForm
    UserForm1.Show vbModal
End Sub

方法2：无模式窗体+顶层窗口设置（保留无模式特性）

如果需要保留无模式窗体的交互性，可以通过API将UserForm设置为顶层窗口，避免被Excel的灰显背景干扰：

1. 在UserForm1的代码模块中添加以下API声明和初始化事件：

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

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

Private Sub UserForm_Initialize()
    ' 将窗体设置为顶层窗口，始终显示在最前方
    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

2. 在ThisWorkbook中保留原逻辑：

Private Sub Workbook_Open()
    ThisWorkbook.Windows(1).Visible = False
    UserForm1.Show vbModeless
End Sub

补充：避免Excel进程残留

为防止关闭UserForm后Excel进程在后台残留，可在UserForm的QueryClose事件中添加工作簿关闭逻辑：

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ' 当用户点击窗体关闭按钮时，关闭当前工作簿
    If CloseMode = vbFormControlMenu Then
        ThisWorkbook.Close SaveChanges:=False ' 根据需求修改SaveChanges参数
    End If
End Sub

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