如何用VBA拦截或禁用Excel功能区的工作表视图切换功能

用户核心需求：阻止Excel文件用户切换工作表视图，可通过禁用视图切换菜单、拦截切换事件或自定义功能区实现。以下是针对问题的具体解决方案及对已尝试方法的修正：

已尝试的无效代码说明 #

代码1（未确定正确控件ID） #

Dim Ctrl As CommandBarPopup
Set Ctrl = Application.CommandBars.FindControl(ID:=XXXX) 
If Ctrl Is Nothing Then Else Ctrl.Enabled = False

问题：未找到视图切换控件的正确ID

代码2（控件名称错误） #

CommandBars(1).Controls("SheetView").Visible = False

问题：视图切换控件的标准名称并非"SheetView"

查找控件ID的代码修正 #

用户原遍历代码存在拼写错误（sebmenu应为SubMenu），修正后可正确遍历命令栏控件：

Dim i As Integer
Dim ii As Integer
Dim iii As Integer
Dim iiii As Integer
Dim x As Integer
Dim CB As CommandBar
Dim Menu As CommandBarControl
Dim SubMenu As CommandBarControl
Dim SubMenu2 As CommandBarControl

On Error Resume Next

x = 1

For Each CB In CommandBars
    i = 1
    ii = 1
    iii = 1
    iiii = 1
    For Each Menu In CB.Controls
        ii = ii + 1
        iii = 1
        iiii = 1
        For Each SubMenu In Menu.Controls
            iii = iii + 1
            iiii = 1
            For Each SubMenu2 In SubMenu.Controls ' 修正原代码拼写错误
                Cells(x, 8) = CB.Name
                Cells(x, 9) = Menu.Caption
                Cells(x, 10) = SubMenu.Caption
                Cells(x, 11) = SubMenu2.Caption
                Cells(x, 12) = i
                Cells(x, 13) = ii
                Cells(x, 14) = iii
                Cells(x, 15) = iiii
                x = x + 1
                iiii = iiii + 1
            Next SubMenu2
        Next SubMenu
    Next Menu
Next CB

可行解决方案 #

方案1：直接禁用视图切换控件 #

工作表视图切换控件的命令栏名称为Worksheet Menu Bar，对应ID为3125，执行以下代码可禁用该控件：

Sub DisableSheetViewSwitch()
    Dim ctrl As CommandBarControl
    Set ctrl = Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=3125)
    If Not ctrl Is Nothing Then
        ctrl.Enabled = False ' 禁用控件，无法点击
        ' 若需隐藏控件，替换为：ctrl.Visible = False
    End If
End Sub

方案2：拦截视图切换事件并跳转自定义视图 #

通过工作簿激活事件，强制用户停留在指定自定义视图：

1. 打开工作簿的ThisWorkbook模块
2. 粘贴以下代码：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Const TargetView As String = "自定义视图名称" ' 替换为你的自定义视图名
    ' 检查当前视图，非目标视图则强制切换
    If ActiveWindow.View <> xlNormalView Then ' 可根据需求修改视图类型，如xlPageBreakPreview
        ThisWorkbook.CustomViews(TargetView).Show
    End If
End Sub

注：需提前在Excel中创建好对应名称的自定义视图

方案3：通过XML自定义功能区彻底隐藏控件 #

若要从功能区移除视图切换按钮，步骤如下：

1. 将工作簿保存为.xlsm格式，关闭Excel
2. 重命名文件后缀为.zip，解压后在customUI文件夹下新建customUI.xml（若已有则编辑）
3. 写入以下XML代码：

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
    <ribbon>
        <tabs>
            <tab idMso="TabView">
                <group idMso="GroupWorkbookViews" visible="false"/>
            </tab>
        </tabs>
    </ribbon>
</customUI>

4. 重新打包为.zip，改回.xlsm后缀，打开后视图选项卡中的视图切换组将被隐藏

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