EXCEL come eliminare "collegamento origine dati"

[mofa]

ho un foglio di excel con piu' fogli, due di questi (DDT e FATTURE) collegati ad altri per raccogliere informazioni (clienti, indirizzi, prodotti, ecc).
con questa macro in vba:

Sub salpulfatt()
'
' salpulfatt Macro
' Macro registrata il 25/02/2002 da pg
'
' Scelta rapida da tastiera: CTRL+f
'
Sheets("fatt.zau").Select
Sheets("fatt.zau").Copy
Windows("gestione6.xls").Activate
Range("E16").Select
Selection.ClearContents
Range("E17:F17").Select
Selection.ClearContents
Range("D22:D56").Select
Selection.ClearContents
Range("J22:J56").Select
Selection.ClearContents
ActiveWindow.ActivateNext
Range("C1:N69").Select
Selection.Locked = True
Selection.FormulaHidden = True
Range("G2").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ChDir "C:\Documenti\zauber laboratori\FATTURE"
f_name = Application.GetSaveAsFilename(FileFilter:="Microsoft Excel file, *.xls")
ActiveWorkbook.SaveAs Filename:=f_name
ActiveWorkbook.Close
ThisWorkbook.Close SaveChanges:=False

End Sub
applicata ad un tasto mi apre la finestra per salvare il foglio singolo, e fin qui' tutto bene.
quando riapro il file salvato mi esce sempre una finetra che dice cosi':
"La cartella di lavoro contiene collegamenti ad altre origini dati".
come faccio a fare in modo che questa non esca, in modo che non mi aggiorni il file?
cosa e dove devo aggiungere al vba?
grazie.

[Anthony47]

Prova con questa messa prima di ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True:

Codice: Seleziona tutto

    ActiveWorkbook.UpdateLinks = xlUpdateLinksNever

Ciao.

[mofa]

sembra funzioni bene, in settimana provero' negli altri pc.
grazie mille.