如何实现Excel完全沉浸式全屏？求对应VBA代码（含隐藏标题栏等）

没问题，要实现你说的完全沉浸式Excel体验（隐藏标题栏、抑制启动闪屏、隐藏Windows任务栏），我们可以结合VBA内置属性和Windows API来完成。下面是分步实现的代码和说明：

一、核心API与常量声明 #

首先需要在标准模块（比如新建一个名为ModImmersive的模块）中声明所需的Windows API函数和常量，这些用来操作系统窗口：

' 适配32位和64位Excel的API声明
#If VBA7 Then
    Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
    Private Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As LongPtr) As LongPtr
    Private Declare PtrSafe Function GetWindowLongPtr Lib "user32" Alias "GetWindowLongPtrA" (ByVal hWnd As LongPtr, ByVal nIndex As Long) As LongPtr
    Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hWnd As LongPtr, ByVal nCmdShow As Long) As Long
#Else
    Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
#End If

' 窗口样式与显示状态常量
Private Const GWL_STYLE As Long = -16
Private Const WS_CAPTION As Long = &HC00000 ' 标题栏样式
Private Const SW_HIDE As Long = 0
Private Const SW_SHOW As Long = 5

二、实现沉浸式的核心过程 #

接下来在工作簿的ThisWorkbook模块中编写启动和关闭事件，完成所有沉浸式设置：

Private Sub Workbook_Open()
    Dim excelHWnd As LongPtr
    Dim taskbarHWnd As LongPtr
    Dim currentStyle As LongPtr
    
    ' 1. 抑制启动闪屏：先隐藏Excel应用
    Application.Visible = False
    
    ' 2. 隐藏Windows任务栏
    taskbarHWnd = FindWindow("Shell_TrayWnd", vbNullString)
    If taskbarHWnd <> 0 Then
        ShowWindow taskbarHWnd, SW_HIDE
    End If
    
    ' 3. 隐藏Excel标题栏
    excelHWnd = Application.hWnd
    currentStyle = GetWindowLongPtr(excelHWnd, GWL_STYLE)
    ' 移除标题栏样式
    SetWindowLongPtr excelHWnd, GWL_STYLE, currentStyle And Not WS_CAPTION
    
    ' 4. 启用全屏模式+隐藏功能区/状态栏
    Application.DisplayFullScreen = True
    Application.CommandBars("Ribbon").Visible = False
    Application.DisplayStatusBar = False
    
    ' 最后显示Excel应用，完成沉浸式切换
    Application.Visible = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim excelHWnd As LongPtr
    Dim taskbarHWnd As LongPtr
    Dim currentStyle As LongPtr
    
    ' 恢复Windows任务栏
    taskbarHWnd = FindWindow("Shell_TrayWnd", vbNullString)
    If taskbarHWnd <> 0 Then
        ShowWindow taskbarHWnd, SW_SHOW
    End If
    
    ' 恢复Excel标题栏
    excelHWnd = Application.hWnd
    currentStyle = GetWindowLongPtr(excelHWnd, GWL_STYLE)
    ' 重新添加标题栏样式
    SetWindowLongPtr excelHWnd, GWL_STYLE, currentStyle Or WS_CAPTION
    
    ' 恢复Excel正常显示状态
    Application.DisplayFullScreen = False
    Application.CommandBars("Ribbon").Visible = True
    Application.DisplayStatusBar = True
End Sub

三、注意事项 #

• 宏启用：需要确保Excel启用了宏（文件另存为.xlsm格式，打开时启用宏）。
• 紧急恢复：如果意外导致任务栏或Excel界面无法恢复，可以通过任务管理器结束Excel进程，重启后一切会恢复正常；也可以提前写一个单独的恢复宏备用。
• 兼容性：代码适配32位和64位Excel，无需额外修改。

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