Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1220to1224
1220to1224
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Updatelinks 3 Passwort

Forumthread: Updatelinks 3 Passwort

Updatelinks 3 Passwort
kiki
Hallo zusammen,
ich habe eine Frage zur Funktion UpdateLinks.
Ich möchte per Makro eine Arbeitsmappe öffnen und alle Verknüpfungen aktualisieren. Das funktioniert auch mit UpdateLinks:=3. Mein Problem ist allerdings, dass die Arbeitsmappe zu mehreren anderen Arbeitsmappen verknüpft ist, die alle Passwort geschützt sind (allerdings das gleiche Passwort). Wie kann ich umgehen, dass ich bei jeder Mappe nach dem Passwort gefragt werde?
Gibt es die Möglichkeit in der Zeile "Workbooks.open..., updatelinks:=3, password:="..." hinten dran auch die Passwörter für die verknüpften Mappen zu hängen?
FG, kiki
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Updatelinks 3 Passwort
16.07.2011 02:25:08
fcs
Hallo kiki,
es ist leider nicht möglich das Passwort für die mit der zu öffnenden Datei verknüpften Dateien direkt anzugeben mit der Open-Anweisung.
Wenn alle verknüpften Dateien mit dem gleichen Passwort geschützt sind, dann geht folgendes mit der mit Vorsicht zu verwendenden SendKeys-Methode.
Gruß
Franz 
Sub Test_Oeffnen_Datei_mit_Links_var()
Dim wb As Workbook
'Datei mit den Verknüpfungenauf andere Exceldateien öffnen ohne Update der Links
Set wb = Workbooks.Open(Filename:="C:\Users\Public\Test\DatenHoler.xls", _
UpdateLinks:=False)
Call Link_Aktualisierung(wbk:=wb, sPasswort:="MyTestPasswort")
End Sub
Function Link_Aktualisierung(wbk As Workbook, sPasswort As String) As Boolean
Dim oLink
Link_Aktualisierung = True
On Error GoTo Fehler
If Not IsEmpty(wbk.LinkSources) Then
For Each oLink In wbk.LinkSources(1) 'xlExcelLinks
Application.SendKeys Keys:=sPasswort & "{ENTER}"
wbk.UpdateLink Name:=oLink, Type:=xlLinkTypeExcelLinks
Next
End If
Fehler:
With Err
Select Case .Number
Case 0 'Alles OK
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description & vbLf & vbLf _
& "Link: " & oLink
Link_Aktualisierung = False
Resume Next
End Select
End With
End Function

Anzeige
AW: Updatelinks 3 Passwort
18.07.2011 08:23:54
kiki
Hallo Franz,
vielen Dank für die ausführliche Antwort. Ich werd versuchen dein Makro umzusetzen.
Viele Grüße,
Kiki
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige