En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1251956 visiteurs

 8 visiteurs en ligne

Nous contacter

Contact

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()

Catégorie : Les mémos - Administration
Page lue 14249 fois
Vous êtes ici :   Accueil » Désactiver le Shift