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

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

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

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

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

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

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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。 然后点击 OK 按钮以关闭对话框，现在，当您单击数据透视表报表并尝试对其进行更改时，它不会被修改，但是您可以根据需要应用“切片器”功能。