Er der en måde man kan lave en fil så man ikke kan bruge \"shift\"-tasten

Hejsa Jonas,

Der findes en \"skjult\" egenskab i access der hedder \"AllowByPassKey\", og som er sat til TRUE som standard, så man kan gå bag om databasen ved at holde shift nede, som du jo er klar over.

Man skal så bare sætte denne egenskab til FALSE, hvorefter det ikke længere er muligt at undgå at udføre autoexec makroen, eller åbne den formular du har defineret som startformular.

Herunder har du en funktion der ændre egenskaben for dig. det nemmeste er at køre funktionen fra debug vinduet. Se eksemplet i koden for at finde ud af hvad du skal skrive.

Hér er koden:

Function TilføjProgramEgenskab(strName As String, varType As Variant, varValue As Variant, Optional FilNavn As String) As Integer
   
   
    \'Eksempel:
    \'For at sætte/ændre egenskaben \'AllowBypassKey\' skrives følgende:
    \'
    \'TilføjProgramEgenskab(\"AllowBypassKey\", dbBoolean, False)
   
   
   
Dim dbs As Database, prp As Property
Const conPropNotFoundError = 3270

\'Set dbs = CurrentDb

Set dbs = Currentdb()

On Error GoTo Fejl

dbs.Properties(strName) = varValue
    TilføjProgramEgenskab = True

Fortsæt:
    Exit Function

Fejl:
    If Err = conPropNotFoundError Then
        Set prp = dbs.CreateProperty(strName, varType, varValue)
        dbs.Properties.Append prp
        Resume
    Else
        TilføjProgramEgenskab = False
        Resume Fortsæt
    End If

End Function