Access - BLOQUEAR B.D

Function ap_QuitaShift(Archivo As String, activar As Boolean) As Boolean

    On Error GoTo errQuitaShift

    Dim db As Database, wks As Workspace

    Dim prop As Property

    Const conPropNotFound = 3270

    Set wks = Workspaces(0)

    Set db = wks.OpenDatabase(Archivo)

    db.Properties("AllowByPassKey") = activar

    db.Close

    Set db = Nothing

Exit Function

errQuitaShift:

    Set prop = db.CreateProperty("AllowByPassKey", dbBoolean, False)

        db.Properties.Append prop

        Resume Next

End Function