Microsoft Access Programmierrezepte

R6.5 Das Datenbankkennwort ändern

Aufgabe

Das Datenbankkennwort (Hauptregisterkarte Datenbanktools/Mit Kennwort verschlüsseln) soll per VBA geändert werden.

Lösung

Zwei Lösungen bieten sich an:

• Bei Verwendung der DAO die Methode NewPasswort (Database-Objekt)

• Bei Verwendung der ADO-Objekte stelllt die JRO-Library die Methode CompactDatabase zur Verfügung (nicht für Access 2007/2010-Datenbanken geeignet)

Quelltext (DAO)

Öffnen Sie die Datenbank im Exklusiv-Modus und weisen Sie mit der Methode NewPasswort ein neues Kennwort zu:

Sub test()
Dim ws As Workspace
Dim db As DAO.Database

  Set ws = DBEngine.Workspaces(0)
  Set db = ws.OpenDatabase("c:\test.accdb", True)
  db.NewPassword "", "geheim"
  db.Close
End Sub

Quelltext (JRO)

Binden Sie Verweise auf die Microsoft ...