如何在 Excel 中保护数据透视表？

在 Excel 中，我们如何保护数据透视表以防止其他用户拖动字段或打乱布局呢？本文将介绍一些在工作表中保护数据透视表的方法。

使用 VBA 代码保护数据透视表

保护数据透视表但允许访问切片器

使用 VBA 代码保护数据透视表

以下 VBA 代码可以帮助您保护数据透视表，请按照以下步骤操作：

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击“插入” > “模块”，然后将以下代码粘贴到模块窗口中。

VBA 代码：保护数据透视表

Sub RestrictPivotTable()
'Updateby Extendoffice
Dim xpf As PivotField
Application.ScreenUpdating = False
With ActiveSheet.PivotTables(1)
  .EnableDrilldown = False
  .EnableFieldList = False
  .EnableFieldDialog = False
  .PivotCache.EnableRefresh = False
  For Each xpf In .PageFields
    With pf
      .DragToPage = False
      .DragToRow = False
      .DragToColumn = False
      .DragToData = False
      .DragToHide = False
    End With
  Next xpf
End With
Application.ScreenUpdating = False
    MsgBox "The pivot table has been protected!", vbInformation, "Kutools for Excel"
End Sub

3. 然后按 F5 键运行此代码，会弹出一个提示框，提醒您数据透视表已被保护，见截图：

注意事项：

1. 此代码将禁用数据透视表中的许多功能，例如阻止用户将任何字段拖动到其他位置，并禁用字段列表、字段设置、下钻和刷新功能。

2. 如果当前工作表中有多个数据透视表，则此代码仅适用于最后一个数据透视表。

保护数据透视表但允许访问切片器

有时，您可能希望在保护数据透视表的同时允许访问切片器以应用筛选功能，以下步骤可以帮到您。

1. 插入切片器后，右键单击它，然后从上下文菜单中选择“ 大小和属性”，见截图：

2. 在“格式切片器”窗格中，单击“属性”以展开选项，然后取消选中“锁定”选项，见截图：

3. 然后关闭窗格，接着单击“审阅” > “保护工作表”以保护该工作表，见截图：

4. 在弹出的“ 保护工作表”对话框中，勾选“选择非锁定单元格”和“仅使用数据透视表和数据透视图”选项（位于“允许此工作表的所有用户进行”列表框中），然后输入密码并确认，见截图：

5. 然后单击“确定”按钮关闭对话框，现在，当您单击数据透视表报告并尝试更改时，它不会被修改，但您可以根据需要使用切片器功能。