Tables
Formulaires
Automation
Administration
Envoyer un mail
Outlook
Dates - Heures
Fichiers
Références
La normalisation
VBA
992145 visiteurs
2 visiteurs en ligne
Pour désactiver la touche Shift :
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()