MS Accessのshiftキー押しながら起動を無効に

'Shiftキー有効無効を切り替える関数
Function ChangeProperty(strPropName As String, propType, propValue) As Integer
    Dim dbs As Database, prp As Property
    Const conPropNotFoundError = 3270
    Set dbs = CurrentDb
    dbs.Properties(propName) = propValue
    ChangeProperty = True
End Function

'Shiftキーを有効にする場合
ChangeProperty "AllowBypassKey", dbBoolean, True

'Shiftキーを無効にする場合
ChangeProperty "AllowBypassKey", dbBoolean, False