Datenbanken nachträglich mit Passwort versehen (DAO) VB-Version:  VB5, VB6
	Views:  7.048

Kann man eine Datenbank auch noch nachträglich mit einem Passwort schützen? Na klar geht das, warum auch nicht? Nachstehend der Code, der hierfür benötigt wird:

Dim DB As Database
Set DB = DBEngine.OpenDatabase("DeineMDB.mdb", True, False)
DB.NewPassword "", "DeinPasswort"
DB.Close

Selbstverständlich muss dann beim Öffnen der Datenbank das Passwort ebenfalls angegeben werden:

Dim DB As Database
Set DB = DBEngine.OpenDatabase("DeineMDB.mdb", False, False, _
  ";pwd=DeinPasswort"

In diesem Zusammenhang möchten wir Sie noch auf unseren Tipp  Datenbanken und Passwörter (DAO) hinweisen, in dem alle Varianten beschrieben werden, mit denen man eine Datenbank mit Passwort versehen und auch wieder öffnen kann.