这样能100%确保ACCESS表和代码受到保护嘛?

参考了accesssoft和微软MSDN的文章,写了下面的代码,请问这样能100%确保ACCESS表和代码受到保护嘛?

Function ChangeProperty(strPropName As String, _
    varPropType As Variant, _
    varPropValue As Variant) As Integer

    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270

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

Change_Bye:
    Exit Function

Change_Err:
    If Err = conPropNotFoundError Then ' Property not found.
        Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Unknown error.
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function

Private Sub Form_Load()
    
    Const DB_Boolean As Long = 1
    
    If CurrentDb.Properties("AllowBypassKey") = True Then
        ChangeProperty "AllowBypassKey", DB_Boolean, False
        Application.Quit
    Else
        '正常启动
    End If
End Sub


Private Sub Form_Unload(Cancel As Integer)
    Const DB_Boolean As Long = 1
    
    ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub