externe koppeling in bestand: waar o waar vind ik hem toch?

[arjoderoon]

ik heb een excel bestand dat ik opgeslagen heb onder een andere naam. Nu zit er blijkbaar in het nieuwe bestand nog een externe verwijziging naar het originele bestand. Ik heb er inmiddels een ochtend aan gespendeerd om deze externe koppeling op te sporen en te verwijderen. Maar tot op heden zonder resultaat.

stappen die ik reeds heb ondernomen zijn:
1. de simpele methode: find > vervangen: ctrl + f en dan in de gehele werkmap gezocht op zowel waarde als formules met de verwijzing naar het bestand, maar ook met enkel een "[" of een "]" teken in de zoektekst. > geen resultaten

2. Alle buttons in het bestand waar een macro aan gekoppeld is nagekeken op hoe de koppeling naar de macro is. [b>[/b] Die staan allen gekoppeld aan een macro in het bestand en niet naar de macro in het originele bestand.

3. een zoektocht op internet bracht mij bij een excel add-in: findlinks: http://www.manville.org.uk/software/findlink.htm
De add-in geinstalleerd en uitgevoerd in het bestand. Deze vond een aantal linkjes op een specifiek werkblad, maar dan in de voorwaardelijke opmaak bepalingen (conditional format icon criterion). >[ De add-in heeft al deze linkjes verwijderd.

4. ik heb handmatig alle werkbladen nagelopen op voorwaardelijke opmaak met daarin mogelijk verwijzingen naar externe bestanden. > niks gevonden.

5. Ik heb de macro codes die in het bestand zitten en die gekoppeld zijn aan de buttons op de diverse werkbladen stuk voor stuk langs gelopen om te zien of die gekoppeld zijn aan een extern document. > geen verwijzingen naar het externe document gevonden.

Maar toch blijft excel zeggen dat er een koppeling is met het bestand.
Maar welke mogelijkheid heb ik nu nog over het hoofd gezien dan?

 

[Cobbe]

Heb je nog naambereiken in gebruik die misschien naar de oude situatie wijzen?

Of deze macro draaien?

Sub RemoveLinks()
 Dim Link As Variant
     For Each Link In ActiveWorkbook.LinkSources
         ActiveWorkbook.BreakLink Name:=Link, Type:=xlLinkTypeExcelLinks
     Next
 End Sub

 

[Peekhamer]

met dit stukje code krijg je een extra werkblad die weergeeft waar koppelingen zich bevinden.

Sub KoppelingenDocumenteren()
Dim bereik As Range
Dim cel As Range
Dim blad As Worksheet
Dim werkblad As Worksheet
Set werkblad = Sheets.Add
i = 1
ActiveSheet.Name = ("verwijzingen")
For Each blad In ActiveWorkbook.Worksheets
blad.Activate
Set bereik = blad.Range(Cells(1, 1), Selection.SpecialCells(xlCellTypeLastCell))
For Each cel In bereik
If ((InStr(cel.Formula, "=") > 0) And (InStr(cel.Formula, "") > 0)) Then
werkblad.Cells(i, 1) = cel.Worksheet.Name
werkblad.Cells(i, 2) = cel.Address
werkblad.Cells(i, 3).Value = " " & cel.Formula
werkblad.Cells(i, 4) = cel.Value
i = i + 1
End If
Next
Next
Sheets("verwijzingen").Select
End Sub

probeer eens of dat werkt voor je?