Office: (Office 2016) Verknüpfungen zu Passwort-geschützter Quelle aktualisieren

Hallo,
ich möchte das Verknüpfung-Aktualisierungen im Hintergrund mit automatischer Passworteingabe beim öffnen der Datei durchgeführt werden. Ich habe im Internet nur alte Cods gefunden für VBA Modul oder Makro. Kann mir jemand das in Excel 2016 übersetzen oder ein neuen Vorschlag machen?

Sub test()
a = ActiveWorkbook.LinkSources
For i = 1 To UBound(a)
Workbooks.Open Filename:=a(i), Password:="kennwort", ReadOnly:=True, UpdateLinks:=False
End Sub

Danke

 

Moin icetea,
ohne Dein Szenario nachzubauen: Der Code kann schon allein deshalb nicht funktionieren, weil Du die For..Next-Schleife nicht schließt. Versuchs mal mit einer vorletzten Zeile Next i
Beschreibe doch ausführlicher, was du vorhast.
Grüße