如何在受保護的工作表上重新整理資料透視表？

一般來說，資料透視表在受保護的工作表上不會自動重新整理。本文將介紹一種使用VBA程式碼來從受保護的工作表中重新整理資料透視表的方法。

使用VBA程式碼在受保護的工作表上重新整理資料透視表

使用VBA程式碼在受保護的工作表上重新整理資料透視表

默認情況下，您無法直接在受保護的工作表上重新整理資料透視表，但使用以下VBA程式碼，當原始表格中的數據發生變化時，您可以快速重新整理當前工作表中的所有資料透視表。

1. 按住 ALT + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

2. 點擊 插入 > 模組，並在 模組視窗中粘貼以下程式碼。

VBA程式碼：在受保護的工作表上重新整理資料透視表：

Sub RefreshAll()
'Updateby Extendoffice 20161109
    Dim xpt As PivotTable
    With ActiveSheet
        .Protect UserInterfaceOnly:=True
        For Each xpt In .PivotTables
            xpt.RefreshTable
        Next xpt
    End With
End Sub

3. 然後按下 F5 鍵執行此程式碼，如果您的原始數據發生變化，活動工作表中的所有資料透視表將立即被重新整理。