Recherche
Recherche
Les mémos
 ↑  
Je débute...
Visites

 992145 visiteurs

 2 visiteurs en ligne

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 10638 fois