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
Erstelle eine Excel-Datei: Lege eine neue Excel-Arbeitsmappe an, die als Hauptdatei dient, und nenne sie beispielsweise Mappe1.xls.
Erstelle eine Übersicht: In Mappe1.xls erstelle ein Arbeitsblatt mit dem Namen „Verknüpfungen“. In Spalte A listest du die Pfade und Dateinamen der passwortgeschützten Dateien auf. In Spalte B trägst du die zugehörigen Passwörter ein.
Makro hinzufügen: Öffne den VBA-Editor (drücke ALT + F11), erstelle ein neues Modul und füge den folgenden Code ein:
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 SubMakro ausführen: Stelle sicher, dass du beim Öffnen von Mappe1.xls die Aktualisierungsabfrage mit „Nein“ beantwortest. Starte dann das Makro „ÖffnenVerknüpfteMappen“, um die passwortgeschützten Dateien zu öffnen und die Daten zu laden.
Fehler: „Datei nicht gefunden“: Überprüfe den Pfad in Spalte A. Stelle sicher, dass die Datei existiert und der Pfad korrekt ist.
Fehler: Falsches Passwort: Vergewissere dich, dass das Passwort in Spalte B korrekt eingegeben ist. Achte auf Groß- und Kleinschreibung.
Problem beim Ausführen des Makros: Stelle sicher, dass Makros in deiner Excel-Version aktiviert sind. Gehe zu den Excel-Optionen und aktiviere die Makros.
Falls du keine VBA-Makros verwenden möchtest, kannst du auch auf Power Query zurückgreifen, um Daten aus passwortgeschützten Dateien zu importieren. Auf diese Weise kannst du die Abfragen entsprechend anpassen, jedoch erfordert dies mehr manuelle Eingaben.
Beispiel 1: Wenn du eine Datei mit dem Namen finanzen.xls im Verzeichnis C:\Benutzer\DeinName\Documents\ hast und das Passwort 1234 lautet, trage in die Tabelle „Verknüpfungen“ Folgendes ein:
| A | B |
|---|---|
| C:\Benutzer\DeinName\Documents\finanzen.xls | 1234 |
Beispiel 2: Verwende das folgende Makro, um eine Liste von passwortgeschützten Excel-Dateien zu öffnen und deren Daten zu aktualisieren.
Fehlerbehandlung im Makro: Füge eine Fehlerbehandlung in dein Makro ein, um unerwartete Probleme elegant zu lösen. Beispiel:
On Error Resume NextOptimierung der Performance: Wenn du mit einer großen Anzahl an Dateien arbeitest, kannst du den Application.ScreenUpdating Befehl nutzen, um die Performance zu verbessern.
Verwendung von Umgebungsvariablen: Statt feste Pfade zu verwenden, kannst du Umgebungsvariablen nutzen, um deine Dateien dynamisch zu laden.
1. Kann ich auch mehrere Passwörter für verschiedene Dateien verwenden?
Ja, du kannst für jede Datei in der Übersicht ein eigenes Passwort in Spalte B angeben.
2. Funktioniert diese Methode in Excel 365?
Ja, die beschriebenen Schritte und das Makro sind auch in Excel 365 anwendbar. Achte darauf, dass die Makros aktiviert sind.
3. Was passiert, wenn ich das Passwort vergesse?
In diesem Fall kannst du nicht auf die Daten in den passwortgeschützten Dateien zugreifen. Es gibt keine Möglichkeit, die Passwörter über Excel zurückzusetzen.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen