Como atualizar a tabela dinâmica em uma planilha protegida?

Normalmente, a tabela dinâmica não é atualizada em uma planilha protegida. Neste artigo, vou apresentar um código VBA para atualizar a tabela dinâmica de uma planilha protegida.

Atualizar tabela dinâmica em uma planilha protegida com código VBA

Atualizar tabela dinâmica em uma planilha protegida com código VBA

Por padrão, não há uma maneira direta de você atualizar a tabela dinâmica em uma planilha protegida, mas, com o seguinte código VBA, você pode rapidamente atualizar todas as tabelas dinâmicas da planilha atual quando os dados forem alterados na sua tabela original.

1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Atualizar tabela dinâmica em uma planilha protegida:

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. Em seguida, pressione a tecla F5 para executar este código; se seus dados originais forem alterados, todas as tabelas dinâmicas na planilha ativa serão atualizadas imediatamente.