Como atualizar tabela dinâmica em planilha protegida

[Bras12]

Olá pessoal, tem como atualizar tabela dinâmica em planilha protegida ?

[Basole]

Veja se este exemplo ajuda: 

 

Sub DesprotegeAtualiza()
On Error Resume Next

With ActiveSheet
  .Unprotect Password:="suasenha"
  .PivotTables(1).RefreshTable
  .Protect Password:="suasenha"
End With

End Sub

 

[Bras12]

Basole a planilha e protegida sem senha, como ficaria o script

[Basole]

Só tirar a senha: 

 

Sub DesprotegeAtualiza()
On Error Resume Next

With ActiveSheet
  .Unprotect
  .PivotTables(1).RefreshTable '
  .Protect
End With

End Sub

 

[Bras12]

@Basole conheço muito pouco de macro poderia me mandar uma planilha com a macro ou passo a passo como fazer ?

[Basole]

@Bras12 seria melhor voce preparar um exemplo com com a tabela e alguns dados para testes.

[Bras12]

@Basole segue um modelo como exemplo

Modelo.xlsx

[Basole]

@Bras12 ao alterar algum dado da aba Plan1 e ativar a aba "Planilha1" que contem a sua Tabela Dinamica, a macro atualizará os dados automaticamente.

 

Modelo_Tabela_Dinamica.zip

[Bras12]

é necessário dar algum comando para criar a macro, exemplo CTRL+ALT ?

[Basole]

Não necessariamente, aqui pra mim atualizou perfeitamente ou seja alterei um dado na plan1 e quando. entrei na Planilha1 os dados tinham alterados. 

Se preferir coloque um atalho de teclado na macro "DesprotegeAtualiza" (aperte as teclas Alt+ F8 sel. a macro e opções)

 

[Rebeca Fonseca]

Ola Basole, 

Sou nova no forum e não sei se estou agindo da maneira correta.

Pelas mensagens acima acredito que poderá me ajudar.

Tenho uma planilha bloqueada com sena e com tabela dinâmica. Para que os dados da tabela dinâmica se atualizem sem desbloquear a tabela estou usando a macro:

Sub teste()
    Const CsSenha As String = "matriz"
    
    Dim pt As PivotTable
    ActiveSheet.Unprotect CsSenha
    For Each pt In ActiveSheet.PivotTables
        pt.RefreshTable
    Next pt
    ActiveSheet.Protect CsSenha
End Sub

 

Quando a macro roda, ao bloquear de novo a tabela ela não habilita as possiibilidades: classificar, usar alto filtro e usar Tabela Dinâmica & Gráfico Dinâmico. Como faço para ela bloquear habilitando estas possibilidades?!

 

Me considero boa em Excel, mas não entendo nada de VBA.

 

Desde já agradeço pelas orientações.

 

Abraço,