Excel: Como corrigir ligações quebradas
No Excel, é comum utilizar ligações a outros livros para referenciar informações relevantes. No entanto, se um livro de origem for renomeado ou movido para outra localização, essas ligações podem ficar quebradas, provocando erros. Este tutorial apresenta dois métodos eficazes — usar a funcionalidade Editar Ligações ou código VBA — para identificar e corrigir rapidamente as ligações quebradas no seu livro.
Corrija ligações quebradas aplicando Editar Ligações
Corrija ligações quebradas utilizando código VBA
No Excel, pode aceder à caixa de diálogo Editar Ligações para corrigi-las uma a uma.
1. Abra o livro que contém as ligações quebradas e clique em Dados > Editar Ligações(no grupo)Consultas e Ligações).
2. Na caixa de diálogo Editar Ligações, clique em Verificar Estado para identificar as ligações quebradas.
3. Em seguida, clique nas ligações quebradas e, depois, no botão Alterar Origem. Na janela Alterar Origem, selecione o livro de origem correto e clique em OK.
Agora pode ver que o estado mudou de Erro para OK. Repita o passo 3 para corrigir outras ligações quebradas.
Esta secção apresenta um código VBA concebido para ajudar a corrigir ligações quebradas.
1. Abra o livro cujas ligações quebradas pretende corrigir e prima as teclas Alt+F11.
2. Na janela Microsoft Visual Basic para Aplicações que surge, clique em Inserir > Módulo para criar um novo módulo vazio.
3. Copie e cole o código seguinte no novo módulo.
VBA: Corrigir ligações quebradas
Sub ResetInvalidLinks()
'UpdatedbyExtendoffice20220701
Dim xWB As Workbook
Dim xLks As Variant
Dim xFNum, xStatus As Integer
Dim xStrLk, xLinAddress As String
Dim xF
Dim xLk
Set xWB = Application.ActiveWorkbook
xLks = xWB.LinkSources(xlExcelLinks)
If IsEmpty(xLks) Then
MsgBox "Select updated source"
Exit Sub
End If
On Error Resume Next
For xFNum = LBound(xLks) To UBound(xLks)
xStrLk = xLks(xFNum)
xStrLk = Right(xStrLk, Len(xStrLk) - InStrRev(xStrLk, "\"))
xStatus = ActiveWorkbook.LinkInfo(xStrLk, xlLinkInfoStatus)
If xStatus <> 0 And xStatus <> 3 Then
MsgBox xStrLk & " the link is broken, please select new source"
xF = Application.GetOpenFilename()
If xF <> "" Then
For Each xLk In ActiveSheet.UsedRange.Hyperlinks
xLinAddress = Right(xLk.Address, Len(xLk.Address) - InStrRev(xLk.Address, "\"))
If InStr(xStrLk, GetAddress) <> 0 Then
ActiveSheet.Hyperlinks.Add Anchor:=xLk.Range, Address:=xF
End If
Next
ActiveWorkbook.ChangeLink xLks(xFNum), xF, xlLinkTypeExcelLinks
End If
End If
Next
End Sub
4. Prima a tecla F5 ou o botão Executar
para ativar o código. O código irá então procurar ligações quebradas. Se forem encontradas, surge uma caixa de diálogo a indicar qual a ligação afetada e solicita-lhe: «Por favor, selecione uma nova origem». Clique em OK para continuar.
5. Na janela Abrir, selecione a origem atualizada e clique em OK.
Se ainda existir uma ligação quebrada no livro, as caixas de diálogo anteriores reaparecem até que todos os links inválidos sejam corrigidos.
Nota: se não existirem ligações quebradas no livro, o VBA interrompe a execução.
Dica: se pretender visualizar todas as ligações adicionais e eliminar as ligações quebradas, a funcionalidade Kutools para Excel’s Localizar e Quebrar Links será uma excelente ajuda.
Para saber mais sobre esta funcionalidade, consulte o nosso tutorial detalhado.
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
Como Corrigir/Bloquear Cor de Fundo Numa Folha
Por vezes, ao partilhar uma folha com outras pessoas para edição, poderá querer fixar ou bloquear a cor de fundo num intervalo de células e impedir que seja alterada.
Como Reduzir o Tamanho do Ficheiro do Excel?
Quando um ficheiro do Excel é demasiado grande, pode demorar vários minutos a abrir ou a guardar. Para resolver este problema, este tutorial mostra-lhe como reduzir o tamanho do ficheiro removendo conteúdos ou formatos desnecessários ou nunca utilizados.
Excel: Como Criar ou Inserir um Marcador
Já alguma vez imaginou criar ou inserir um marcador para saltar rapidamente para um determinado intervalo de dados quando tem muita informação numa folha de cálculo ou num livro?
Como sombrear linhas ou colunas ímpares ou pares (alternadas) no Excel?
Ao conceber uma folha de cálculo, muitas pessoas tendem a sombrear linhas ou colunas ímpares ou pares (alternadas) para tornar a folha mais visual. Este artigo mostra-lhe dois métodos para sombrear linhas ou colunas ímpares ou pares no Excel.
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