如何禁止修改Excel数据透视表的行标签？

问题背景 #

使用Excel数据透视表时，将字段拖至「行」和「值」区域后，值列数据默认无法修改（修改会报错），但行标签可编辑（如修改文本）却无法完全删除。需求是通过Excel原生设置禁止修改行标签，当前已用VBA实现但锁定行无效，寻求替代方法。

原生设置方法 #

方法1：通过数据透视表保护+工作表保护 #

1. 右键数据透视表区域，选择数据透视表选项
2. 切换到「保护」选项卡：
   • 勾选保护数据透视表，可按需勾选「启用选定内容」保留透视表的选择操作
   • 点击「确定」保存设置
3. 右键当前工作表标签，选择保护工作表：
   • 设置保护密码（可选），确保勾选使用数据透视表（允许正常操作透视表，但禁止修改行标签内容）
   • 点击「确定」完成保护

方法2：单元格锁定+工作表保护（需关闭透视表选定功能） #

1. 右键数据透视表区域，选择数据透视表选项
2. 切换到「选择和可见性」选项卡，取消勾选启用选定内容，点击「确定」
3. 选中行标签所在的单元格区域（如示例中的A21至D列最后一行）
4. 右键选中区域，选择设置单元格格式→「保护」选项卡，勾选锁定，点击「确定」
5. 右键工作表标签，选择保护工作表，设置密码（可选），点击「确定」即可锁定行标签区域

现有VBA代码优化建议 #

如果仍需使用VBA，原代码存在未指定工作表的隐患，修改后更稳定：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim WatchRange As Range
    Dim IntersectRange As Range
    Dim nRow As Long ' 改用Long避免行号超出Integer上限
    
    With Me ' 绑定当前工作表，防止跨工作表错误
        nRow = .Cells(21, 1).End(xlDown).Row
        Set WatchRange = .Range("A21:D" & nRow)
    End With
    
    Set IntersectRange = Intersect(Target, WatchRange)
    
    If Not IntersectRange Is Nothing Then
        Application.EnableEvents = False
        Application.Undo
        Application.EnableEvents = True
    End If
End Sub

注意：此代码需粘贴到对应工作表的代码模块中（右键工作表标签→查看代码，粘贴到打开的窗口）

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