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
Eric
Bonjour,
Tu crées une fonction dans un module global nommé par exemple modPassword du genre: Function Password() If InputBox("Mot de passe", "Saisie du password") <> "toto" Then Application.Quit End If End Function
puis tu crées une macro qui a pour action ExécuterCode et pour argument de l'action Nom fonction tu mets Password() avec les parenthèses. Tu sauves cette macro sous le nom d'AutoExec.
Bonjour Amis Proi d'Access2K,
Je sais mettre dans un module pour avoir un mot de passe :
If InputBox("Saisir votre mot de passe") <> "Mon mot de passe" Then Exit Sub Dim v&
Mais dans une MACRO genre celle du départ AUTOEXEC est-ce possible ????
Merci de vos réponses et bonne soirée à tous.
Bernard
Merci à tout le NewGroup
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour,
Tu crées une fonction dans un module global nommé par exemple
modPassword du genre:
Function Password()
If InputBox("Mot de passe", "Saisie du password") <> "toto" Then
Application.Quit
End If
End Function
puis tu crées une macro qui a pour action ExécuterCode et pour argument
de l'action Nom fonction tu mets Password() avec les parenthèses.
Tu sauves cette macro sous le nom d'AutoExec.
Bonjour Amis Proi d'Access2K,
Je sais mettre dans un module pour avoir un mot de passe :
If InputBox("Saisir votre mot de passe") <> "Mon mot de passe"
Then Exit Sub
Dim v&
Mais dans une MACRO genre celle du départ AUTOEXEC est-ce possible ????
Merci de vos réponses et bonne soirée à tous.
Bernard
Merci à tout le NewGroup
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Tu crées une fonction dans un module global nommé par exemple modPassword du genre: Function Password() If InputBox("Mot de passe", "Saisie du password") <> "toto" Then Application.Quit End If End Function
puis tu crées une macro qui a pour action ExécuterCode et pour argument de l'action Nom fonction tu mets Password() avec les parenthèses. Tu sauves cette macro sous le nom d'AutoExec.
Bonjour Amis Proi d'Access2K,
Je sais mettre dans un module pour avoir un mot de passe :
If InputBox("Saisir votre mot de passe") <> "Mon mot de passe" Then Exit Sub Dim v&
Mais dans une MACRO genre celle du départ AUTOEXEC est-ce possible ????
Merci de vos réponses et bonne soirée à tous.
Bernard
Merci à tout le NewGroup
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Cinémas Décavision
Bonjour Eric,
Merci beaucoup, je vais essayer cela, c'est bon de se faire aider quand on sèche...
Bonne semaine et à+.
Bernard
Bonjour Eric,
Merci beaucoup, je vais essayer cela, c'est bon de se faire aider quand on
sèche...
Merci beaucoup, je vais essayer cela, c'est bon de se faire aider quand on sèche...
Bonne semaine et à+.
Bernard
Jessy Sempere [MVP]
Bonjour
Sinon, si tu veux juste utiliser une macro, il te suffit de faire une macro avec une condition (menu "affichage" - "conditions") du genre :
BEntrée("Saisir votre mot de passe")<>"toto"
et dans l'action, du mets : Quitter
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------
"Eric" a écrit dans le message de news:
Bonjour,
Tu crées une fonction dans un module global nommé par exemple modPassword du genre: Function Password() If InputBox("Mot de passe", "Saisie du password") <> "toto" Then Application.Quit End If End Function
puis tu crées une macro qui a pour action ExécuterCode et pour argument de l'action Nom fonction tu mets Password() avec les parenthèses. Tu sauves cette macro sous le nom d'AutoExec.
Bonjour Amis Proi d'Access2K,
Je sais mettre dans un module pour avoir un mot de passe :
If InputBox("Saisir votre mot de passe") <> "Mon mot de passe" Then Exit Sub Dim v&
Mais dans une MACRO genre celle du départ AUTOEXEC est-ce possible ????
Merci de vos réponses et bonne soirée à tous.
Bernard
Merci à tout le NewGroup
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonjour
Sinon, si tu veux juste utiliser une macro, il te suffit de faire une macro
avec une condition (menu "affichage" - "conditions") du genre :
BEntrée("Saisir votre mot de passe")<>"toto"
et dans l'action, du mets : Quitter
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
eSognpP1GHA.4772@TK2MSFTNGP03.phx.gbl...
Bonjour,
Tu crées une fonction dans un module global nommé par exemple modPassword
du genre:
Function Password()
If InputBox("Mot de passe", "Saisie du password") <> "toto" Then
Application.Quit
End If
End Function
puis tu crées une macro qui a pour action ExécuterCode et pour argument de
l'action Nom fonction tu mets Password() avec les parenthèses.
Tu sauves cette macro sous le nom d'AutoExec.
Bonjour Amis Proi d'Access2K,
Je sais mettre dans un module pour avoir un mot de passe :
If InputBox("Saisir votre mot de passe") <> "Mon mot de passe"
Then Exit Sub
Dim v&
Mais dans une MACRO genre celle du départ AUTOEXEC est-ce possible
????
Merci de vos réponses et bonne soirée à tous.
Bernard
Merci à tout le NewGroup
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Sinon, si tu veux juste utiliser une macro, il te suffit de faire une macro avec une condition (menu "affichage" - "conditions") du genre :
BEntrée("Saisir votre mot de passe")<>"toto"
et dans l'action, du mets : Quitter
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://www.mpfa.info/ ------------------------------------
"Eric" a écrit dans le message de news:
Bonjour,
Tu crées une fonction dans un module global nommé par exemple modPassword du genre: Function Password() If InputBox("Mot de passe", "Saisie du password") <> "toto" Then Application.Quit End If End Function
puis tu crées une macro qui a pour action ExécuterCode et pour argument de l'action Nom fonction tu mets Password() avec les parenthèses. Tu sauves cette macro sous le nom d'AutoExec.
Bonjour Amis Proi d'Access2K,
Je sais mettre dans un module pour avoir un mot de passe :
If InputBox("Saisir votre mot de passe") <> "Mon mot de passe" Then Exit Sub Dim v&
Mais dans une MACRO genre celle du départ AUTOEXEC est-ce possible ????
Merci de vos réponses et bonne soirée à tous.
Bernard
Merci à tout le NewGroup
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr