Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

VBA Excel - Removendo todas as referências a Links externos da planilha



Sub RemoveLinks()
Dim Link As Variant If ActiveWorkbook.LinkSources Then If MsgBox("Tem certeza que deseja retirar todos os links? ", vbYesNo + vbQuestion, "RemoveLinks") _
         = vbYes Then For Each Link In ActiveWorkbook.LinkSources ActiveWorkbook.BreakLink Name:=Link, Type:=xlLinkTypeExcelLinks Next MsgBox " Todos os Links externos do Workbook foram removidos! "
Else Exit Sub End If Else MsgBox " Não foi encontrado nenhum Link externo neste workbook."
End If
End Sub


Tags: VBA, Excel, link, remove

Inline image 1

Related Posts Plugin for WordPress, Blogger...

Vitrine

diHITT - Notícias