通常情况下，受保护工作表中的数据透视表不会自动刷新。本文将为您介绍一段实用的 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 键运行此代码，即可在原始数据发生变化时，立即刷新当前工作表中的所有数据透视表。

太棒了！在 Excel 中像使用 Chrome、Edge、Firefox 和 Safari 一样高效地使用 Tabs！
每天为您节省 50% 的时间，并减少成千上万次鼠标点击！