| Startseite > Tipps & Tricks > Wizhook-Objekt > SetVbaPassword |
|
|
|
SetVbaPasswordSetVbaPassword
Diese Funktion ist in folgenden Access-Versionen verfügbar: 2000, 2002, 2003, 2007, 2010
Setzt das VBA-Passwort
Function SetVbaPassword(bstrDbName As String, bstrConnect As String, bstrPasswd As String) As Boolean
True, wenn die Aktion erfolgreich.
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
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.
|
02.10.2020: 06.11.2019: 06.05.2017: 27.03.2016: 23.05.2014: |
|
|
|
