Laatste acties - beveiligen voor uitrol

[john64]

Goedenavond,
Mijn database is zo goed als af, maar voor ik de boel uitrol, wil ik iets van beveiliging toepassen, zodat onbevoegden niet de database kunnen veranderen.
Ik heb een macro autoexec gemaakt, die de eerste formulieren opent, en bepaalde zaken controleert (o.a. de vertrouwde locatie). Daarnaast heb ik een macro autokeys die afvangt dat er op F11 en alt-F4 gedrukt wordt.
Hoe kan ik de diverse menus (de "linten") blokkeren zodat daar ook geen zaken gewijzigd kunnen worden ?
En het afvangen dit met shift toets wordt opgestart?

mvg
John

 

[madref]

Kijk bij je opties daar kun je de menu's van acces uitzetten

Shift toets afvangen:

Option Compare Database
Option Explicit

Public Function DisableShift()
    Call ChangeProperty("AllowBypassKey", dbBoolean, False)
    MsgBox "De Shift-knop is nu uitgezet. De volgende keer kan niet meer met de Shift-knop " & _
            "gestart worden.", vbInformation, TITEL
End Function

Public Function EnableShift()
    Call ChangeProperty("AllowBypassKey", dbBoolean, True)
    MsgBox "De Shift-knop is nu weer aangezet. De volgende keer kan weer met de Shift-knop " & _
            "gestart worden.", vbInformation, TITEL
End Function

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

Const conPropNotFoundError = 3270

Dim prp As Property
Dim dbs As Database

On Error GoTo Err_ChangeProperty

    Set dbs = CurrentDb
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True

Exit_ChangeProperty:
    Exit Function

Err_ChangeProperty:
    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 Exit_ChangeProperty
    End If

End Function