|
|
Hola, con esta macro podrás eliminar vínculos a otras hojas/libros. Referencias dentro de la hoja se mantienen. Los vínculos se convierten en valores. Avísame si necesitas ayuda para hacer una macro. Recuerda hacer una copia de seguridad!
Saludos
Anders
[www.xltoday.net]
************************************
Sub QuitarVinculos()
Dim varVinculo As Variant
Dim wrsHoja As Worksheet
Dim objCelda As Object
Dim varMsg As Variant
'(0) Un pequeño control
varMsg = MsgBox("¿Ha guardado una copia de seguridad?", vbYesNo)
If varMsg = 7 Then Exit Sub
'(1) Quitar vínculos externos (a otros libros)
varVinculo = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
If Not IsEmpty(varVinculo) Then
ActiveWorkbook.BreakLink Name:=varVinculo(1), Type:=xlLinkTypeExcelLinks
End If
'(2) Quitar vínculos internos (a otras hojas)
On Error Resume Next
For Each wrsHoja In ActiveWorkbook.Worksheets
For Each objCelda In wrsHoja.UsedRange.SpecialCells(xlCellTypeFormulas, 23)
If InStr(objCelda.Formula, "!") Then objCelda.Value = objCelda.Value
Next
Next
End Sub
************************************
|