如何让隐藏UI的VBA代码仅作用于指定Excel工作簿HAHA1.xlsm

核心问题在于你原来的代码修改了Application级别的全局设置，导致所有打开的工作簿都会受影响。要实现仅对HAHA1.xlsm生效，只需通过工作簿的激活/失活事件来切换界面状态，完全不用修改其他工作簿。

修改步骤： #

1. 更新ThisWorkbook模块的代码

把原来的Workbook_Open替换为以下事件代码，利用Workbook_Activate和Workbook_Deactivate自动切换界面：

Private Sub Workbook_Open()
    ' 打开工作簿时立即应用隐藏设置
    HideUI
End Sub

Private Sub Workbook_Activate()
    ' 切换到本工作簿时，重新隐藏界面
    HideUI
End Sub

Private Sub Workbook_Deactivate()
    ' 切换到其他工作簿时，自动恢复界面
    ShowUI
End Sub

Private Sub HideUI()
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        .ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",False)"
        .WindowState = xlNormal
        .CommandBars("Full Screen").Visible = False
        .CommandBars("Worksheet Menu Bar").Enabled = False
        .DisplayStatusBar = False
        .DisplayScrollBars = False
        .DisplayFormulaBar = False
        .Width = 490
        .Height = 150
    End With
    ' 直接操作本工作簿的窗口，避免ActiveWindow指向其他文件
    With Me.Windows(1)
        .DisplayWorkbookTabs = False
        .DisplayRuler = False
        .DisplayHeadings = False
    End With
    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
    End With
End Sub

2. 完善你的ShowUI代码

补充原来漏掉的恢复项，确保界面完全回到默认状态：

Sub ShowUI()
    With Application
        .ExecuteExcel4Macro "show.toolbar(""Ribbon"", True)"
        .DisplayFormulaBar = True
        .DisplayStatusBar = True
        .DisplayScrollBars = True
        .CommandBars("Worksheet Menu Bar").Enabled = True
        .CommandBars("Full Screen").Visible = True
        ' 可选：恢复Excel窗口到默认大小，注释掉则保留用户自定义尺寸
        '.Width = Application.UsableWidth
        '.Height = Application.UsableHeight
    End With
    ' 恢复当前激活窗口的所有显示项
    If Not ActiveWindow Is Nothing Then
        With ActiveWindow
            .DisplayWorkbookTabs = True
            .DisplayHorizontalScrollBar = True
            .DisplayVerticalScrollBar = True
            .DisplayRuler = True
            .DisplayHeadings = True
        End With
    End If
End Sub

工作原理： #

• 当HAHA1.xlsm打开或被激活时，自动执行HideUI隐藏界面元素；
• 当你切换到其他通过形状打开的会计工作簿时，Workbook_Deactivate触发ShowUI，自动恢复全局界面设置，其他工作簿就能正常显示菜单、工具栏等；
• 切回HAHA1.xlsm时，又会自动重新隐藏界面，全程无需手动操作。

注意事项： #

• 如果不想每次激活HAHA1.xlsm都强制重置窗口大小（490x150），可以删除.Width和.Height两行代码；
• 所有逻辑都封装在HAHA1.xlsm内部，完全不会修改其他被打开的工作簿，符合你的需求。

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