Как обновить сводную таблицу на защищенном листе?

Обычно сводная таблица не обновляется на защищенном листе. В этой статье я представлю код 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 для запуска этого кода. Если ваши исходные данные изменились, все сводные таблицы в активном листе будут обновлены сразу.