Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Stesso identico problema.
In dati - collegamenti non ho nessun riferimento a i file citati nell'errore.
Nelle macro non ho nessun riferimento ai file.. infatti avviando con lo shift premuto ho lo stesso problema..
altre idee?
grazie
gs
Prova a fare una scansione con la macro allegata e vediamo se segnala qualcosa di strano.
Sub ListLinks()
Dim ws As Worksheet
Dim o As Object
Dim r As Long
On Error Resume Next
With Worksheets.Add()
'--- connections
r = 1
With .Cells(r, 1)
.Value = "Connection"
.Font.Bold = True
End With
For Each o In ThisWorkbook.Connections
r = r + 1
.Cells(r, 1).Value = o.Name
Next
'--- links
r = r + 3
With .Cells(r, 1)
.Value = "Link"
.Font.Bold = True
End With
If Not IsEmpty(ThisWorkbook.LinkSources(xlExcelLinks)) Then
For Each o In ThisWorkbook.LinkSources(xlExcelLinks)
r = r + 1
.Cells(r, 1).Value = o
Next
End If
'--- names
r = r + 3
With .Cells(r, 1).Resize(, 2)
.Value = Array("Name", "RefersTo")
.Font.Bold = True
End With
For Each o In ActiveWorkbook.Names
r = r + 1
.Cells(r, 1).Resize(, 2).Value = Array(o.Name, "'" & o.RefersTo)
Next
'--- hyperlinks
r = r + 3
With .Cells(r, 1).Resize(, 2)
.Value = Array("Worksheet", "Hyperlink")
.Font.Bold = True
End With
For Each ws In ThisWorkbook.Worksheets
For Each o In ws.UsedRange.Hyperlinks
r = r + 1
.Cells(r, 1).Resize(, 2).Value = Array(ws.Name & "|" & o.Range, o.Address)
Next
Next
'--- shapes
r = r + 3
With .Cells(r, 1).Resize(, 2)
.Value = Array("Worksheets", "Shape")
.Font.Bold = True
End With
For Each ws In ThisWorkbook.Worksheets
For Each o In ws.Shapes
r = r + 1
.Cells(r, 1).Resize(, 2).Value = Array(ws.Name & "|" & o.Name, o.Hyperlink.Address)
Next
Next
'--- drawing objects
r = r + 3
With .Cells(r, 1).Resize(, 2)
.Value = Array("Worksheets", "Drawing object")
.Font.Bold = True
End With
For Each ws In ThisWorkbook.Worksheets
For Each o In ws.DrawingObjects
r = r + 1
.Cells(r, 1).Resize(, 2).Value = Array(ws.Name & "|" & o.Name, o.Formula)
Next
Next
.UsedRange.Columns().AutoFit
End With
End Sub