如何在 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. 然後點擊 確定 按鈕關閉對話框，現在，當您點擊資料透視表報表並嘗試更改時，它不會被修改，但您可以根據需要應用切片器功能。