Comment appliquer ou désactiver les options de démarrage dans une base de données Access

Cet article s’applique uniquement à un projet Microsoft Access (.adp).

Modéré : nécessite des compétences de base en macro, en codage et en interopérabilité.

Résumé

Cet article explique comment désactiver la fonctionnalité de la clé SHIFT qui vous permet de contourner les options de démarrage. Cet article explique également comment appliquer les options de démarrage dans un projet de base de données Microsoft Access.

Informations supplémentaires

Les options de démarrage définies pour un fichier Access déterminent l’apparence du fichier et le comportement du fichier lorsque vous ouvrez le fichier. Vous pouvez définir les options de démarrage à l’aide de l’interface utilisateur de démarrage ou de la macro AutoExec.

Pour contourner les options de démarrage définies pour le projet de base de données Access, maintenez la touche MAJ enfoncée pendant que vous ouvrez le projet de base de données Access.

Sinon, pour appliquer les options de démarrage définies pour le projet de base de données Access, désactivez la fonctionnalité de la clé SHIFT qui vous permet de contourner les options de démarrage. Pour ce faire, définissez la propriété AllowBypassKey sur False.

Pour définir la propriété AllowBypassKey sur False, procédez comme suit.

Étapes pour un projet Access (.adp)

1. Démarrez Access.

2. Ouvrez un projet de base de données Access.

3. Appuyez sur ALT + F11 pour ouvrir l’éditeur Visual Basic.

4. Dans l’éditeur Visual Basic, cliquez sur Fenêtre Exécution dans le menu Affichage .

5. Tapez le code suivant ou collez-le dans la fenêtre Exécution, puis appuyez sur Entrée.

   CurrentProject.Properties.Add "AllowBypassKey", False
   

6. Fermez le Rédacteur Visual Basic, puis fermez le projet de base de données Access.

7. Ouvrez le projet de base de données Access. Essayez de contourner les options de démarrage définies pour le projet de base de données Access en maintenant la touche MAJ enfoncée pendant que vous ouvrez le projet de base de données Access.

   La fonctionnalité de la clé SHIFT qui vous permet de contourner l’option de démarrage est désactivée. Bien que vous maintenez la touche MAJ enfoncée pour contourner les options de démarrage, les options de démarrage sont exécutées. Vous ne pouvez pas contourner les options de démarrage.

Étapes pour une base de données Access (.mdb ou .accdb)

1. Démarrez Access.

2. Créez un module, puis ajoutez les deux fonctions suivantes :

   Function ap_DisableShift()
   'This function disable the shift at startup. This action causes
   'the Autoexec macro and Startup properties to always be executed.
   
   On Error GoTo errDisableShift
   
   Dim db As DAO.Database
   Dim prop as DAO.Property
   Const conPropNotFound = 3270
   
   Set db = CurrentDb()
   
   'This next line disables the shift key on startup.
   db.Properties("AllowByPassKey") = False
   
   'The function is successful.
   Exit Function
   
   errDisableShift:
   'The first part of this error routine creates the "AllowByPassKey
   'property if it does not exist.
   If Err = conPropNotFound Then
   Set prop = db.CreateProperty("AllowByPassKey", _
   dbBoolean, False)
   db.Properties.Append prop
   Resume Next
   Else
   MsgBox "Function 'ap_DisableShift' did not complete successfully."
   Exit Function
   End If
   
   End Function
   
   Function ap_EnableShift()
   'This function enables the SHIFT key at startup. This action causes
   'the Autoexec macro and the Startup properties to be bypassed
   'if the user holds down the SHIFT key when the user opens the database.
   
   On Error GoTo errEnableShift
   
   Dim db as DAO.Database
   Dim prop as DAO.Property
   Const conPropNotFound = 3270
   
   Set db = CurrentDb()
   
   'This next line of code disables the SHIFT key on startup.
   db.Properties("AllowByPassKey") = True
   
   'function successful
   Exit Function
   
   errEnableShift:
   'The first part of this error routine creates the "AllowByPassKey
   'property if it does not exist.
   If Err = conPropNotFound Then
   Set prop = db.CreateProperty("AllowByPassKey", _
   dbBoolean, True)
   db.Properties.Append prop
   Resume Next
   Else
   MsgBox "Function 'ap_DisableShift' did not complete successfully."
   Exit Function
   End If
   
   End Function
   

3. Dans l’éditeur Visual Basic, cliquez sur Fenêtre Exécution dans le menu Affichage .

4. Si vous souhaitez désactiver la touche Maj, tapez ap_DisableShift dans la fenêtre Exécution , puis appuyez sur Entrée. Si vous souhaitez activer la touche Maj, tapez ap_EnableShift dans la fenêtre Exécution , puis appuyez sur Entrée.