Désactiver le Shift

Désactiver et activer la touche Shift d'une base de données

Pour désactiver la touche Shift :

• Créer une Macro nommée impérativement "Autoexec"
• Choisir l'action "ExécuterCode"
• Ecrire dans Nom fonction "DesactiveShift()"
• Créer un module nommé par exemple "ModShift" contenant

Function DesactiveShift()
    On Error GoTo errProperty
    Dim Dbs As DAO.Database
    Dim Prp As DAO.Property

    Set Dbs = CurrentDb()
    Dbs.Properties("AllowByPassKey") = False

okProperty:
    Set Prp = Nothing
    Dbs.Close
    Set Dbs = Nothing
    Exit Function

errProperty:
    Set Prp = Dbs.CreateProperty("AllowByPassKey", 1, False)
    Dbs.Properties.Append Prp
    Resume okProperty

End Function

Note :

Lors de la première ouverture, l'option de démarrage "Utiliser les touches spéciales d'accès" est décochée, interdisant ainsi l'usage de la touche Shift.

Pour réactiver la touche Shift :

- Dans une nouvelle base de données, copier/coller et exécuter la fonction ci-dessous :

Function ReactiverShift()
    Dim bds As DAO.Database
    Dim prp As DAO.Property
    
    Set bds = DBEngine.OpenDatabase("C:CheminBase_a_Deverrouiller.mdb")
    bds.Properties("AllowBypassKey") = True
    MsgBox bds.Name & " est de nouveau accessible."

    Set prp = Nothing
    bds.Close
    Set bds = Nothing

End Function

Note :

Ces deux routines sont des Function xx() afin d'être appelables depuis une macro Autoexec. Comme on ne retourne aucune valeur, on aurait tout aussi bien pu les appeler Sub xx()