Undgå at bruger af en access.mde fil kan bruge shift ved op start

Smid denne kode i et modul og kør funktionen AllowByPassKeys(True):
Public Function AllowBypassKeys(Allow As Boolean)
    'Denne funktion kan stå alene...den kræver ikke andet end en reference til DAO
    '"AllowBypassKey", dbBoolean, True

    Dim dbs As Database, prp As Property
    Const conPropNotFoundError = 3270
    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties("AllowBypassKey") = Allow
Change_Bye:
    Exit Function
Change_Err:
    If Err = conPropNotFoundError Then  'property not found
        Set prp = dbs.CreateProperty("AllowBypassKey", _
        dbBoolean, Allow)

dbs.Properties.Append prp
        Resume Next
    Else
        'unknown error
        Resume Change_Bye
    End If
End Function

--->thomasjepsen jeg har prøvet at sætte din funktionen ind i min opstart frm. men den lukker da ved opstart, hvis jeg der imod holder shift ned når jeg åbner min database så kommer databasevinduet. Hvad gør jeg forkert, det der med at du skriver at den kræver ikke andet end en reference til DAO ?????
Jeg har kikket på DAO og ADO men jeg bliver bare forviret.

I think Thomas's solution originates from here, maybe you can find something to help you here.
http://www.mvps.org/access/general/gen0040.htm

http://www.eksperten.dk/spm/175783