'А зачем тебе надстройка? Прям так низя?

Sub SetBypassProperty()
ChangeProperty "AllowBypassKey", DB_BOOLEAN, True '!!!!!!!!!!!!!!!!!!!!!!!!!!!
End Sub

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 2455

Set dbs = CurrentProject
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

Change_Bye:
Exit Function

Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
dbs.Properties.Add strPropName, varPropValue
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function

>Люди помогите
Я тебе дал работающий кусок из своего проекта. Разбираться в нем не надо.
SetBypassProperty
пишешь в любом месте своего кода, и вот тебе защита.
Какого тебе еще надо?