V članku je kód ktorý potlačí klávesu Shift pri spúšťaní aplikacie Access. Dá sa využiť ako súčasť zabezpečenia po nastavení v dialógovom okne Po spustení. Táto veľmi dôležitá súčasť zabezpečenia sa dá previesť iba z kódu jazyka VBA. Je potrebné vlastnosť databázy AllowBypassKey nastaviť na hodnotu False.

Function ap_DisableShift()
' tato funkcia potlaci klavesu Shift, pretoze makro Autoexec a vlastnosti pri spusteni
' budu trvale zapnute
 
On Error GoTo errDisableShift
 
Dim db As DATABASE
Dim prop As Property
Const conPropNotFound - 3270
 
Set db = CurrentDb()
 
' vlastny vykonny riadok
db.Properties("AllowByPassKey") = False
 
' vsetko prebehlo bez zavad
Exit Function
 
errDisableShift:
' Prva cast chybovej rutiny vytvori vlastnost AllowByPassKey, pokial neexistuje.
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
         dbBoolean, False)
         db.Properties.Append prop
         Resume Next
Else
        MsgBox "Funkce 'ap.DisableShift' neprebehla uspesne."
        Exit Function
End If
 
End Function
 
 
Vlastnosť AllowByPassKey štandardne neexistuje, preto ju chybová rutina musi vytvoriť. Pri ďalšom spustení tejto funkcie pre rovnaku databázu by uz chybová rutina nemala prebehnuť.