Office: (Office 2010) Passwortgeschützte DB per VBA von Excel öffnen

Hartmut_M · 22. März 2015

Hallo, bitte um Hilfe zu dieser Frage.
Von Excel möchte ich Daten zu meiner DB übergeben.
Läuft auch problemlos.
Jetzt habe ich die DB mit einem Passwort geschützt und folgenden Code eingegeben:
Code:

Dim db As DAO.Database, rs As Recordset
Set db = OpenDatabase("I:\HKS_Mitarbeiter_Sach\2_GLR\20_GLR_Global\209_Zuschreibungsstelle\Regulierereinsatz.accdb", False, , ";pwd=Koeln1")
Set rs = db.OpenRecordset("T_Urlaub", dbOpenTable)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es erscheint die Meldung "kein gültiges Kennwort"
"Koeln1" ist auf jeden Fall korrekt.
Wo liegt der Fehler?
Schon jetzt Dank für eure Unterstützung.

:)

CptChaos · 24. März 2015

Gemäß https://support.microsoft.com/de-de/kb/209953 muss der letzte Parameter "MS Access;PWD=DeinPasswort" lauten.

Hartmut_M · 24. März 2015

Hallo Benny, danke für den Tipp.
Der Code lautet jetzt:
Code:

Set db = OpenDatabase("I:\HKS_Mitarbeiter_Sach\2_GLR\20_GLR_Global\209_Zuschreibungsstelle\Regulierereinsatz.accdb", False, , "MS Access;PWD=Koeln1")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Läuft trotzdem auf Fehler. *entsetzt

Habe ich kein Passwort auf der DB läuft es mit diesem Code problemlos durch:
Code:

Set db = OpenDatabase("I:\HKS_Mitarbeiter_Sach\2_GLR\20_GLR_Global\209_Zuschreibungsstelle\Regulierereinsatz.accdb")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hartmut_M · 24. März 2015

Habe den Code jetzt mal verändert und den Pfad und das Passwort als Variable eingegeben. Damit läuft es. Kann mir jemand erklären, warum? *entsetzt
Code:

Dim db As DAO.Database, rs As Recordset, Pfad$, Passwort$
Pfad = "I:\HKS_Mitarbeiter_Sach\2_GLR\20_GLR_Global\209_Zuschreibungsstelle\Daten-Regulierereinsatz.accdb"
Passwort = "Koeln1"
Set db = OpenDatabase(Pfad, False, False, "MS Access;PWD=" & Passwort)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

CptChaos · 24. März 2015

Im letzten Code hast Du Parameter 3 und 4 korrekt mit False belegt; in den vorherigen Beispielen wurde nur der erste der beiden gesetzt.

Ich gehe davon aus, dass es daran liegt...

Hartmut_M · 24. März 2015

Hatte ich auch vermutet und korrigiert.
Hat aber nichts gebracht.
Läuft immer auf Fehler. *rolleyes.gif*

Office: (Office 2010) Passwortgeschützte DB per VBA von Excel öffnen

Passwortgeschützte DB per VBA von Excel öffnen

Passwortgeschützte DB per VBA von Excel öffnen

Passwortgeschützte DB per VBA von Excel öffnen

Passwortgeschützte DB per VBA von Excel öffnen - Similar Threads - Passwortgeschützte VBA Excel

VBA in einer Zeile zu lang

Listbox wird nicht breiter, Schriftgrösse ändert sich

Kontrollkästchen aktivieren ohne VBA - wenn KK1 angekreuzt dann KK2 auch

Per Hyperlink ausgeblendetes Blatt einblenden

Bilder über VBA Größe und DPI ändern für Webshop

passwortgeschützte Datei öffnen

Abfrage von Passwortgeschützter Access Datenbank?