Macro para atualizar automaticamente tabela dinâmica em planilha protegida

[Bras12]

Ola pessoal

Estou precisando de uma macro para atualizar uma tabela dinâmica em uma planilha protegida sem senha

estou usando essa macro abaixo ela atualiza porém ela bloqueia toda a planilha que esta a tabela dinâmica, impedindo de usar os filtros da tabela dinâmica e segmentação de dados, mesmo marcando as opções de usar tabela dinâmica e usar autofiltros ela desmarca as opções na hora de atualizar a planilha

 

Sub DesprotegeAtualiza()
On Error Resume Next

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

End Sub

 

 

 

 

Private Sub Worksheet_Activate()
DesprotegeAtualiza
End Sub

[CasaDoHardware]

Por que proteger a guia da tabela dinamica, basta proteger a base de dados.

[Bras12]

Porque na guia que contem a tabela dinâmica tem dados que precisam ser preservados células com formulas e botões com hiperlink quero evitar que sejam deletados por acidentes, pois outras pessoas vão utilizar a planilha,por isso gostaria de ter uma maneira mais segura