Remover Vínculos

Sabe aquela mensagem chata que as vezes aparece quando abrimos um arquivo em Excel, para atualizar vínculos? Agora você vai aprender a como remover isso, manualmente e/ou via macro.

remover-vinculo-1

O vídeo abaixo vai te explicar tudo no detalhe.

Mudar cor do código: Enxergando melhor o código da Macro

Macro para remover vínculos:

Sub QuebrarVínculos()
 'Define uma variável do para ser interpretada como os vínculos do arquivo
 Dim myLinks As Variant
 myLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
 
 'Para cada vínculo existente, executa um código que os quebra
 On Error GoTo Mensagem
 For i = 1 To UBound(myLinks)
 ActiveWorkbook.BreakLink Name:=myLinks(i), Type:=xlLinkTypeExcelLinks
 Next i
 Msgbox "Vínculos quebrados com sucesso"
 Exit Sub
 
Mensagem:
 Msgbox "Não há vínculos a serem quebrados"
End Sub

Acompanhe o Função Excel
facebook-logo youtube-logo googleplus-logo twitter-logo

 

E aí, o que achou?