Remoção de ligações externas fantasmas em Excel

Para qualquer outra pessoa que tenha passado horas a pentear o seu ficheiro, o problema também pode existir se tiver copiado um intervalo de validação de dados de outra pasta de trabalho.

Para o corrigir:

Ficha–>Arquivo–>Verifica a Compatibilidade

& Isto irá trazer o verificador que lhe dirá se a Validação aponta para uma folha externa.

O mais importante, dir-lhe-á em que folha está.

De qualquer modo, uma vez que conheça a(s) folha(s), vá até à folha. Agora

& > Fita… > seta para baixo ao lado de Encontrar e Seleccionar… > Validação de dados.

Isto irá seleccionar as células que têm a Validação de Dados aplicada.

Agora

Fita…>Data…> Validação de Dados

e fixar a referência quebrada no campo “Fonte”, ou clicar em “Limpar Tudo” se não precisar dela.

No final, segui-o até às regras de formatação condicional.

Clicando em “Home - Formatação Condicional - Gerir Regras”, surge o seguinte diálogo, que é relativamente fácil de ver e substituir as referências externas.

Se a pasta de trabalho for grande não é fácil encontrar a condição de formato com referência externa. Escrevo esta função VBA para a encontrar. Limitado a 80 colunas e 500 linhas para reduzir o tempo de execução. quando a função parar, pode verificar a posição perguntando:

?foglio.name
 ?cella.row
 ?cella.column

    Public Function CercaLink()
    Dim Cella As Object, i&, Foglio As Object
    For Each Foglio In ActiveWorkbook.Sheets
       ActiveWorkbook.Sheets(Foglio.Name).Select
       For Each Cella In ActiveSheet.Cells
         If Cella.Column < 80 Then
           If Cella.FormatConditions.Count > 0 Then
              For i = 1 To Cella.FormatConditions.Count
                 If InStr(1, Cella.FormatConditions(i).Formula1, ":\") > 0 Then Stop
              Next
           End If
        End If
        If Cella.Row > 500 Then Exit For
     Next
  Next
  End Function