Como permitir a atualização de dados externos numa folha de cálculo protegida no Excel?
Poderá ter importado dados de outras aplicações para o Excel utilizando a sua função incorporada **Obter Dados Externos** e atualizado esses dados facilmente com o botão **Atualizar Tudo**. Contudo, após proteger a folha de cálculo, o botão **Atualizar Tudo** fica desativado e os dados importados já não podem ser atualizados. Como permitir a atualização de dados externos numa folha protegida? O método apresentado neste artigo pode ajudá-lo.
Permitir atualização de dados externos numa folha de cálculo protegida com código VBA
Permitir atualização de dados externos numa folha de cálculo protegida com código VBA
O código VBA abaixo ajuda-o a atualizar dados externos importados após proteger a folha de cálculo no Excel. Siga os passos seguintes.
1. Na folha de cálculo protegida, prima simultaneamente as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic para Aplicações.
2. Na janela do Microsoft Visual Basic para Aplicações, clique em Inserir > Módulo e, de seguida, copie e cole o seguinte script VBA na janela do Módulo. Veja a imagem:
Código VBA: Permitir atualização de dados externos numa folha de cálculo protegida
Sub DataRefresh()
'Update by Extendoffice 5/28/2019
ActiveSheet.Unprotect "123"
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:00:01"), "DataRefresh2"
End Sub
Sub DataRefresh2 ()
If Application.CommandBars.GetEnabledMso("RefreshStatus") Then
Application.OnTime Now + TimeValue("00:00:01"), " DataRefresh2"
Else
ActiveSheet.Protect "123"
End If
End Sub
Nota: No código VBA, “123” é a palavra-passe que definiu para proteger a folha de cálculo. Altere-a conforme as suas necessidades.
3. Certifique-se de que o cursor está na primeira secção do código Sub DataRefresh e, em seguida, prima a tecla F5 para executar o código. Na caixa de diálogo Importar Ficheiro que surge, selecione o ficheiro externo do qual importou os dados e, depois, clique no botão Importar.
Após regressar à folha de cálculo, verificará que os dados externos foram atualizados imediatamente.
Nota: Este código permite atualizar dados externos numa folha protegida, desde que tenham sido importados a partir do Access, de ficheiros de texto ou de ficheiros do Excel.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Artigos relacionados:
- Como permitir a edição de objetos numa folha de cálculo protegida no Excel?
- Como permitir células mescladas numa folha de cálculo protegida no Excel?
- Como ativar a verificação ortográfica numa folha de cálculo protegida no Excel?
- Como proteger a formatação das células no Excel, permitindo apenas a introdução de dados?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos