Ola, o codigo abaixo serve para atualizar dados ou links entre planilhas do excel protegidas por senha. Aquela janela chata que fica solicitando a senha toda vez que voçê abre a planilha, elimine-a com o codigo abaixo.
Primeiramente selecione a aba dados, clique em "editar links", na janela que se abre clique em "prompt de inicialização ..." e marque a opção "não exibir alertas e nao atualizar links automáticos"
No editor VBA, insira um comando auto_open e insira o código abaixo.
Sub Atualizar()
'A linha abaixo insere a senha e pressiona enter
Application.SendKeys ("123{ENTER}")
'Atualiza o link com a planilha no caminho abaixo
ActiveWorkbook.UpdateLink Name:="D:\EXEMPLO\Loja 1.xlsx", Type:= _
xlExcelLinks
'Deve ser inserido um comando esc entre cada link, quando temos mais do que um.
SendKeys "{esc}", True
Application.SendKeys ("123{ENTER}")
ActiveWorkbook.UpdateLink Name:="D:\EXEMPLO\Loja 2.xlsx", Type:= _
xlExcelLinks
end sub
Acesse a pagina inicial do blog e tenha acesso a todo o conteúdo disponibilizado
VEJA A VIDEO AULA
