Workbooks.Open "c:\eigene dateien\rechnung.xls", password:=""
Beim Pfad den richtigen Namen eintragen.
Das Passwort zwischen die Anführungszeichen und ab gehts.
Hoffe geholfen zu haben.
Erwin
Beim Öffnen der Datei mit den Verknüpfungen wird die Frage der Aktualisierung mit nein beantwortet. Anschließend folgendes Makro gestartet.
Sub ÖffnenVerknüpfteMappen()
Application.ScreenUpdating = False
x = 1
Do While Workbooks("Mappe1.xls").Worksheets("Verknüpfungen").Cells(x, 1) <> ""
dateiname = Worksheets("Verknüpfungen").Cells(x, 1)
code = Worksheets("Verknüpfungen").Cells(x, 2)
Workbooks.Open dateiname, password:=code
ActiveWorkbook.Close
x = x + 1
Loop
Application.ScreenUpdating = True
End Sub
Mappe1.xls ist der Name der Datei mit den Verknüpfungen in der auch die Tabelle mit den Pfaden und Passwörtern sein muss.
Wie gesagt, bei mir hunzt es einwandfrei, allerdings bei Excel 97. Lass mich das Ergebnis wissen.
Cu Erwin
Dim curSh As Worksheet
DatPfad = "I:\xxx\Flächencontrolling\Berichterstattung\"
DatName = "_xx_Flächen.xls"
Workbooks.Open Filename:="D:\Flächenverrechnung\nnn.xls", _
UpdateLinks:=0
Set curSh = ActiveWorkbook.Worksheets("Gesamt")
endeSpal = Range("A1").End(xlToRight).Column
Application.ScreenUpdating = False
For colA = 2 To endeSpal
dateiname = DatPfad & curSh.Cells(1, colA).Value & DatName
Workbooks.Open dateiname, password:="*****"
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub