SetVbaPassword

SetVbaPassword

Access-Versionen

Diese Funktion ist in folgenden Access-Versionen verfügbar: 2000, 2002, 2003, 2007, 2010

Funktion

Setzt das VBA-Passwort

Deklaration

Function SetVbaPassword(bstrDbName As String, bstrConnect As String, bstrPasswd As String) As Boolean

Argumente

bstrDbName   Pfad und Name der Datenbank
bstrConnect   ???
bstrPasswd   VBA-Passwort

Rückgabewert

True, wenn die Aktion erfolgreich.
False, im Falle des Misserfolgs.

Code-Beispiel

Dim strDBName As String
Dim strConnect As String
Dim strVBAPWD As String

'Daten übernehmen
strDBName = "C:\MeinPfad\MeineDB.mdb"
strConnect = ""
strVBAPWD = "MeinPasswort"

'VBA-Passwort ändern
WizHook.Key = 51488399
If WizHook.SetVbaPassword(strDBName, strConnect, strVBAPWD) = True Then
  MsgBox "VBA-Password gesetzt!"
Else
  MsgBox "Aktion fehlgeschlagen!"
End If 

Hinweise

Wenn diese Funktion auf die gerade geöffnete Datenbank angewendet wird, meldet die Funktion zwar die erfolgreiche Ausführung. Das VBA-Passwort wird jedoch nicht gesetzt.

Wenn die Datenbank bereits ein VBA-Passwort besitzt, und das bisherige VBA-Passwort erneut gesetzt wird, verläuft die Funktion erfolgreich. Wenn jedoch ein anderes VBA-Passwort gesetzt werden soll gibt es eine Fehlermeldung. Ein bestehendes VBA-Passwort kann also nicht geändert werden.

Dieser Code kann nicht auf ein Access-Projekt (*.adp) angewendet werden.

Nach oben

 

Downloads: Beispieldatenbank / Hilfedatei / Doku als PDF-Datei