Se for utilizar programação, usa a macro abaixo e atrela ela a um botão.

Sub Macro()
    Sheets("NomeDaPlanilha").Unprotect "123" 'se não tiver senha, só retirar a senha
    ThisWorkbook.RefreshAll
    Sheets("NomeDaPlanilha").Protect "123"
End Sub

Pior que não é o que preciso.

Deixa eu ver se você vai entender melhor..:

Tenho a planilha X, e quando executo ela(X), ela(X) entra na planilha Y e protege a mesma(Y) com uma senha padrão(1234). Agora, a partir do momento que protego, não consigo mais atualizar a tabela dinâmica, e preciso que isto seja possível 1!!! tem como?

Boa tarde!

Tente assim:

 Sub UnprotectRefresh()
 On Error Resume Next


 With Activesheet
   .Unprotect Password:="mypassword"
   .PivotTables(1).RefreshTable
   .Protect Password:="mypassword", _
         AllowUsingPivotTables:=True
 End With
    
 End Sub

Doni

Qdo for proteger a planilha na janela que abre marque

Usar Relatorio de Tabela Dinamica é o terceiro de baixo para cima

Informe uma senha se desejar e pronto.

Galera, fico grato pela atenção de vocÊs !

Seguinte, o código abaixo representa a mesma coisa que o Deni descreveu, só que claro, de forma manual:

Sub UnprotectRefresh()
On Error Resume Next

With Activesheet
.Unprotect Password:="mypassword"
.PivotTables(1).RefreshTable
.Protect Password:="mypassword", _
AllowUsingPivotTables:=True
End With

End Sub

Só que infelizmente não me atende. Vocês podem fazer o teste, vejam se após flegar a opção de permitir usar a tabela dinâmica é possível atualizar a mesma, você vão ver que não será, e este é o ponto ! preciso atualizar a mesma com a planilha protegida ! já tentei o comando do Enablepivottables mas não consigo quando protego a planilha. E agora??? help !?

Boa noite!

Talvez se tivesse postado a planilha alguém já teria resolvido isso pra você.

Doni

Se tivesse postado a planilha ou testado todas as opções não estaria com o problema.

Isso pq se tivesse feito o que sugeri veria que da certo.

Boa sorte.