如何在受保护的工作表中刷新数据透视表？

通常情况下，受保护的工作表中的数据透视表无法刷新。本文将介绍一种使用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 键运行此代码，如果您的原始数据发生变化，活动工作表中的所有数据透视表将立即刷新。