如何禁用Excel共同编辑中的「转到位置」功能？

核心解决方案组合 #

结合工作表非常隐藏、工作簿结构保护和VBA事件拦截，可以彻底封堵这个漏洞：

1. 将受限工作表设为「非常隐藏」 #

普通隐藏的工作表可通过取消隐藏恢复，而「非常隐藏」只能通过VBA或开发工具属性窗口修改，步骤：

• 按Alt+F11打开VBA编辑器
• 插入以下宏并执行一次（执行后可删除该宏）：

Sub SetSheetsVeryHidden()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name = "Sheet1" Then ' 替换为你的受限工作表名称
            ws.Visible = xlSheetVeryHidden
        End If
    Next ws
End Sub

2. 保护工作簿结构 #

防止用户通过修改工作簿结构解除非常隐藏：

• 右键工作簿标签 → 「保护工作簿」
• 勾选「结构」，设置强密码后确定
• 也可通过VBA在工作簿打开时自动启用保护，在ThisWorkbook模块添加：

Private Sub Workbook_Open()
    ThisWorkbook.Protect Structure:=True, Password:="你的强密码"
End Sub

3. VBA拦截非法工作表激活 #

即使存在历史位置记录，也能强制跳回允许访问的工作表，在ThisWorkbook模块添加：

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    ' 定义允许用户访问的工作表名称数组
    Dim allowedSheets As Variant
    allowedSheets = Array("允许访问的工作表1", "允许访问的工作表2")
    
    ' 检查当前工作表是否在允许列表内
    If IsError(Application.Match(Sh.Name, allowedSheets, 0)) Then
        ' 强制跳回第一个允许的工作表
        Sheets(allowedSheets(0)).Activate
        MsgBox "你无权访问该工作表", vbExclamation
    End If
End Sub

额外优化 #

• 删除所有指向受限工作表的命名范围（公式 → 名称管理器），切断「转到位置」的定位入口
• 将工作簿保存为启用宏的格式（.xlsm或.xlsb），确保VBA代码生效

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