JSCOPA10
Eu já usei um tempo atras, mas para relembrar dei uma pesquisada na net, mas me lembro que só usei essa parte:
Pressione Ctrl + G
Na janela de Verificação imediata digite:
selection.hyperlinks.delete e pressione ENTER
Pressione ALT+Q para retornar a planilha.
Bautto
Na net encontrei essa macro, não tive tempo de testar, se quiser experimentar:
Sub ExcluiVinculos()
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
For i = 1 To UBound(aLinks)
ActiveWorkbook.ChangeLink aLinks(i), ActiveWorkbook.Name, xlExcelLinks
Next i
End If
End Sub
outra opção:
https://www.exceldoseujeito.com.br/macr ... u+Jeito%29
[]s
Se a resposta foi útil, clique em curtir na mãozinha.
Postado : 19/10/2019 5:43 am