Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Iniber la fonctionnalité de la touche MAJ au démarrage.

Iniber la fonctionnalité de la touche MAJ au démarrage.

3 réponses
Avatar
mml
Bonjour,

Quelle est la solution pour
iniber la fonctionnalité de la touche MAJ au démarrage, afin d'empécher
qu'une base ne s'ouvre sans lancer la macro autoexec ?


--
Cordialement,

Marc LAGARDETTE
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonjour.

prendre la fonction sur :
http://www.3stone.be/access/articles.php?lng=fr&pgh

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
Inscrivez-vous à la Newsletter TechNet. 100 T-shirts à gagner pour les
premiers inscrits !
http://www.microsoft.com/france/technet/presentation/flash/default.mspx


"mml" a écrit dans le message de news:

| Bonjour,
|
| Quelle est la solution pour
| iniber la fonctionnalité de la touche MAJ au démarrage, afin d'empécher
| qu'une base ne s'ouvre sans lancer la macro autoexec ?
|
|
| --
| Cordialement,
|
| Marc LAGARDETTE
|
|
Avatar
mml
Merci de l'info, qui va bien.

Mais quand je veux utiliser la fonction ReactiverShift, je n'arrive pas à
gérer la prise en compte du mot de passe de la bzse. J'écris:

"Function ReactiverShift()
Dim bds As DAO.Database
Dim prp As DAO.Property
Set bds = DBEngine.OpenDatabase("C:MonCheminMaBaseSecu.mdb", , , "pwd motdepasse")
bds.Properties("AllowBypassKey") = True
MsgBox bds.Name & " est de nouveau accessible."
Set prp = Nothing
bds.Close
Set bds = Nothing
End Function"


...et j'obtiens "Mot de passe invalide"...???

Merci d'avance.


"Raymond [mvp]" a écrit dans le message
de news:%
Bonjour.

prendre la fonction sur :
http://www.3stone.be/access/articles.php?lng=fr&pgh

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
Inscrivez-vous à la Newsletter TechNet. 100 T-shirts à gagner pour les
premiers inscrits !
http://www.microsoft.com/france/technet/presentation/flash/default.mspx


"mml" a écrit dans le message de news:

| Bonjour,
|
| Quelle est la solution pour
| iniber la fonctionnalité de la touche MAJ au démarrage, afin d'empécher
| qu'une base ne s'ouvre sans lancer la macro autoexec ?
|
|
| --
| Cordialement,
|
| Marc LAGARDETTE
|
|




Avatar
Raymond [mvp]
si c'est un problème de mot de passe, essaie d'abord sur une base sans mot
de passe pour éliminer les problèmes.
pour le mot de passe, je mettrais
PWD=mot de passe;
sans espaces avec le signe
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://www.mpfa.info/ pour débuter sur le forum.
Inscrivez-vous à la Newsletter TechNet. 100 T-shirts à gagner pour les
premiers inscrits !
http://www.microsoft.com/france/technet/presentation/flash/default.mspx


"mml" a écrit dans le message de news:

| Merci de l'info, qui va bien.
|
| Mais quand je veux utiliser la fonction ReactiverShift, je n'arrive pas à
| gérer la prise en compte du mot de passe de la bzse. J'écris:
|
| "Function ReactiverShift()
| Dim bds As DAO.Database
| Dim prp As DAO.Property
| Set bds = DBEngine.OpenDatabase("C:MonCheminMaBaseSecu.mdb", , , "pwd | motdepasse")
| bds.Properties("AllowBypassKey") = True
| MsgBox bds.Name & " est de nouveau accessible."
| Set prp = Nothing
| bds.Close
| Set bds = Nothing
| End Function"
|
|
| ...et j'obtiens "Mot de passe invalide"...???
|
| Merci d'avance.
|