Autoexec-Makro nicht abbrechbar machen

Ich programmiere mit MS Access 7.0 und möchte meine Anwendungen an andere weitergeben. Dabei soll es auch Besitzern von Access nicht möglich sein, mein Autoexec-Makro beim Starten mit [Shift] zu unterbrechen. Wie erreiche ich das?

Microsoft hat Access seit der Version 7.0 die Eigenschaftseinstellung AllowBypassKey mitgegeben, die den Umgang mit den Startvorgaben regelt. Wenn Sie den Wert dieser Eigenschaftseinstellung auf Falsch setzen, hat die Taste [Shift] keinen Einfluß mehr auf den Start Ihrer Anwendung. Um die Einstellung zu ändern, ist es allerdings notwendig, ein wenig Visual Basic zu programmieren.
Starten Sie die betreffende Anwendung. Legen Sie dort mit dem Befehl Einfügen – Modul ein neues Modul an und erzeugen dann mit dem Befehl Einfügen – Prozedur eine neue Funktion. Im Dialog Prozedur einfügen geben Sie den Namen StarteigenschaftBypassKeyEinstellen an, stellen Sie sicher, daß im Bereich Typ die Option Function ausgewählt ist. Nach dem Bestätigen der Angaben, schreiben Sie die Anweisungen im kleinen Kasten ganz oben auf der Seite in den Arbeitsbereich.
Diese Funktion ruft lediglich eine weitere Funktion auf, die dann die eigentliche Änderungen vornimmt. Die Aufteilung in zwei Funktionen ist sinnvoll, weil Sie so die zweite Funktion auch zum Einstellen anderer Eigenschaften verwenden können. Um die zweite Funktion zu definieren, gehen Sie wie bei der ersten vor und verwenden die Anweisungen im zweiten, größeren Kasten.
Die Funktion weist einer benannten Eigenschaft den beim Funktionsaufruf mitgelieferten Wert zu. Falls die Eigenschaft nicht existiert, tritt die erste Fehlerbehandlung ein. Dabei definiert die Funktion eine neue Eigenschaft mit dem Namen und dem gewünschten Definitionsbereich. Der einzustellende Wert dient als Initialisierungswert. Wenn ein anderer Fehler auftritt, bricht die Funktion ab. Die Variable ChangeProperty gibt Auskunft über den Erfolg der Aktion.
Um nun beispielsweise die Taste [Shift] abzuschalten, geben Sie folgenden Funktionsaufruf in das Testfenster ein:

Debug.Print StarteigenschaftBypassKeyEinstellen (False)¶