Macro para atualizar Tabela Dinâmica

[feliperod92]

Olá Galera

Seguinte tenho uma tabela dinâmica que está em uma planilha protegida; portanto, não consigo atualizar (dar um refresh) na tabela dinâmica.

Alguém sabe como fazer isso?

Vi em alguns fóruns que é possível que é possível fazer uma macro que desprotege a planilha, faz a atualização da tabela dinâmica e depois protege de novo.

Se essa for a única forma, teria como vocês colocarem passo a passo como faz? É porque eu não sei nada sobre macros no Excel.

Muito obrigado desde já!

[zinhovba]

Boa noite!!!

Veja se isso te ajuda...

Sub Proteger()

For Each Plans In ThisWorkbook.Worksheets
Plans.Protect
Next Plans

End Sub

Sub Desproteger()

For Each Plans In ThisWorkbook.Worksheets
Plans.Unprotect
Next Plans

End Sub

[feliperod92]

Beleza, zinho, tem esse código para proteger e desproteger, agora como eu atualizaria a tabela dinâmica via macros?

E onde eu colocaria esse script?

[Visitante]

experimente: o código abaixo atualiza a TD sempre que a planilha for ativada; altere o nome da TD se nececssário

1. copie o código abaixo

2. no Excel, clique com o direito na guia da planilha que contém a TD e escolha 'Exibir Código'

3. na janela em branco que se abrirá cole o código

4. Alt+F11 para retornar à planilha

Private Sub Worksheet_Activate()
    With ActiveSheet
        .Unprotect
            .PivotTables("Tabela dinâmica1").RefreshTable
        .Protect
    End With
End Sub

[feliperod92]

Olá só galera, consegui fazer essa macro:

Sub Actualizar()

'

' Actualizar Macro

' Macro gravada em 10-09-2008 por J M

'

ActiveSheet.Unprotect Password:="Felipe"

ActiveSheet.PivotTables("Tabela Dinâmica1").PivotCache.Refresh

ActiveSheet.PivotTables("Tabela Dinâmica2").PivotCache.Refresh

ActiveSheet.Protect Password:="Felipe"

End Sub

Porém na hora que eu executo a macro, eu perco as permissões que eu tinha.

Ele bloqueia todas as células, e anteriormente eu tinha dado permissão para relatórios de tabela dinâmica.

Como eu dou essa permissão através da macro?

Agradecido