Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Passwörter von Dateien umgehen

Passwörter von Dateien umgehen
22.11.2006 15:46:00
Dateien
Hallo an die Retter in der Not,
ich habe folgendes Problem und bitte hiermit um Hilfe, bevor ich in die Tischkante beiße:
Ich habe verschiedene Dateien mit einem Passwort geschützt, die jeder Mitarbeiter mit seinem individuellen Passwort öffnen kann.
Nun habe ich eine Tabelle erstellt, die sich nach Betätigung des Aktualisierungsbuttons die Daten aus den jeweiligen anderen geschützten Dateien ziehen sollen. Problem: es werden alle Passwörter der einzelnen Dateien abgefragt.
Das möchte ich umgehen.
Das funktioniert wohl mit:
workbooks.open password:="dasjeweiligePassword"
Ich bräuchte aber das komplette Makro,und an welcher Stelle ich es einbauen muss, da meine VBA Kenntnisse gleich 0 sind.
Über Hilfe freu ich mich jetzt schon wahnsinnig.
Liebe Grüße

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Passwörter von Dateien umgehen
22.11.2006 18:36:17
Dateien
hallo schnuffel,
das geht ganz einfach:
Workbooks.Open Filename:="C:\Eigene Dateien\Mappe1.xls", _
ReadOnly:=True, WriteResPassword:="xxx"
gruß Herbert
AW: Passwörter von Dateien umgehen
23.11.2006 09:31:04
Dateien
Hallo Herbert,
vielen Dank erstmal für deine Hilfe, allerdings taucht dabei folgende Fehlermeldung auf: Fehler beim Kompilieren, Erwartet: Ausdruck
Ich habe jetzt folgendes eingegeben:

Sub Workbook_Open()
Workbooks.Open Filename:="G:\N_NL Ost_NOA\Anwesenheit_Urlaubsplanung_NAOL\Anwesenheit_Urlaubsplanung_NAOL\Anwesenheit\Monatssalden\test.xls",_
ReadOnly:=True, WriteResPassword:="zeit1"
End Sub

Könntest du mir nochmal weiterhelfen- ich bin so unbedarft.
LG schnuffel
Anzeige
AW: Passwörter von Dateien umgehen
23.11.2006 18:09:18
Dateien
kopier das einmal rein...in das Modul "Diese Arbeitsmappe"


Private Sub Workbook_Open()
Workbooks.Open Filename:="G:\N_NL Ost_NOA\Anwesenheit_Urlaubsplanung_NAOL\Anwesenheit_Urlaubsplanung_NAOL\Anwesenheit\Monatssalden\test.xls", _
                                        ReadOnly:=True, WriteResPassword:="zeit1"
End Sub

     oder probier es einmal als eigene Sub...
gruß Herbert
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige