如何在Excel中使用宏禁用查看代码功能？

你提供的代码运行失败，核心原因是命令栏定位逻辑错误，以下是针对性的修正方案：

问题分析 #

原代码直接尝试禁用名为"Code"的命令栏，但该命令栏并非承载"查看代码"功能的目标对象，且不同Office版本的命令栏命名、结构存在差异，导致代码无法找到对应控件并生效。

修正后的代码方案 #

方案1：针对中文系统的右键菜单（精准定位） #

Sub TurnOffViewCode()
    ' 禁用单元格右键菜单中的"查看代码"选项
    On Error Resume Next ' 避免控件不存在时触发报错
    Application.CommandBars("Cell").Controls("查看代码").Enabled = False
    On Error GoTo 0
End Sub

方案2：通过控件ID定位（兼容中英文全版本） #

控件ID是固定标识，不受语言版本影响，稳定性更强：

Sub TurnOffViewCode()
    Dim targetCtrl As CommandBarControl
    ' 查找对应"查看代码"功能的固定控件ID（1695）
    Set targetCtrl = Application.CommandBars.FindControl(ID:=1695)
    
    If Not targetCtrl Is Nothing Then
        targetCtrl.Enabled = False
    End If
End Sub

注意事项 #

• 运行宏前需确保Office宏安全设置允许启用宏
• 若要恢复"查看代码"功能，将代码中的Enabled = False改为Enabled = True即可
• 如需禁用开发工具选项卡中的"查看代码"按钮，可将代码中的命令栏目标改为"Developer"并定位对应控件

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