Hallo,
Ik heb in een Excel-file (in code hieronder "VoorbeeldFile.xlsm") koppelingen naar meerdere andere bestanden (+200). 1 van deze bestanden (in de code hieronder "FileA.xlsm") is beveiligd met een paswoord.
Ik las dat UpdateLink niet werkt voor paswoord beveiligde files, en dat je deze eerst moet openen. Vandaar dat deze FileA in onderstaande code eerst wordt geopend.
Dan wens ik alle koppelingen automatisch te laten bijwerken.
Het loopt echter mis bij de voorlaatste lijn... althans daar krijg ik de foutmelding.
Iemand enig idee wat ik mis doe?
Ik heb in een Excel-file (in code hieronder "VoorbeeldFile.xlsm") koppelingen naar meerdere andere bestanden (+200). 1 van deze bestanden (in de code hieronder "FileA.xlsm") is beveiligd met een paswoord.
Ik las dat UpdateLink niet werkt voor paswoord beveiligde files, en dat je deze eerst moet openen. Vandaar dat deze FileA in onderstaande code eerst wordt geopend.
Dan wens ik alle koppelingen automatisch te laten bijwerken.
Het loopt echter mis bij de voorlaatste lijn... althans daar krijg ik de foutmelding.
Iemand enig idee wat ik mis doe?
Code:
Sub BijWerken()
Workbooks.Open Filename:="C:\FileA.xlsm", UpdateLinks:=3, Password:="voorbeeld"
Workbooks("VoorbeeldFile.xlsm").Activate
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources, Type:=xlExcelLinks
Workbooks("FileA.xlsm").Close
End Sub