Notifications
Clear all

Atualizar Tabela Dinâmica com Base de Dados protegida

3 Posts
1 Usuários
0 Reactions
2,530 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde!

Para atualizar uma tabela dinâmica, eu uso:

ActiveSheet.PivotTables("Tabela Dinamica").PivotCache.refresh

Mas quando a base dessa tabela dinâmica está num arquivo protegido por senha, como faço isso na macro.

Toda vez que executo o comando acima, ele me pede a senha.

Sds.,
Eduardo

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/10/2011 1:27 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde Ampliato

Experimente usar estas linhas de código:

No iníco da macro, logo após o nome da Macro, copie e cole:

'comando que desprotege a planilha, no caso a senha é TESTE
ActiveSheet.Unprotect "TESTE"

No final da Macro antes do End Sub, copie cole este código:

'comando que protege a planilha
ActiveSheet.Protect "TESTE"

Substitua a palavra TESTE pela senha da tua planilha.

Este código irá desproteger a planilha, executar a Macro (atualizar a Tabela dinâmica) e proteger novamente a planilha.

Dê retorno.

Um abraço.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/10/2011 2:04 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Caro Patroni, bom dia!

Acho que não fui claro, desculpe.

Não é a planilha que vou atualizar que está protegida, é a base de dados que está protegida.

Quando eu executo o "ActiveSheet.PivotTables("Tabela Dinamica").PivotCache.refresh", ele tenta abrir a base de dados para atualizar a tabela dinâmica, mas esse arquivo da base de dados está protegida por senha, e por isso ele pede a senha para abrir esse arquivo.

O que dá pra fazer é:

Workbooks.Open Filename:=\localnaredebase.xlsx, Password:="senha"

Que ele abre o arquivo protegido por senha.

Dai eu atualizo a Tabela Dinâmica.

Mas o que quero fazer, é eliminar o processo de abrir o arquivo, executando somente o "ActiveSheet.PivotTables("Tabela Dinamica").PivotCache.refresh".
Num processo onde a base de dados não é protegida por senha, isso funciona perfeitamente.

Se tiver alguma "luz", fico grato!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/10/2011 7:20 am