Discussion :

[Dilse]

Bonjour à tous et à toutes,

J'ai 3 boutons de commandes sur mon Menu Général qui activent des macros importantes dont il ne faut que personne ne puisse avoir accès sauf moi.

Est-il possible au lancement d'activer un mot de passe pour pouvoir continuer sur chacun de ses boutons ?


Merci de votre aide j'avoue être un peu dans l'urgence...

[PC81]

Bonjour,

tu peux créer un formulaire dans lequel tu saisies un login + mdp et qui le compare à des valeurs par exemples contenues dans ta base.. sinon je ne sais pas.

[veriecherie]

Bonjour,

comme te l'a dir PC81, tu peux créer une table contenant les login et password et filtrer l'accès aux formulaires à protéger par un formulaire de connection.

Sinon tu vas dans Outils/Sécurité et là tu as de quoi sécuriser ton appli. Sur les cours et tutos tu dois pouvoir trouver des infos plus détaillés sur le fonctionnement de ces sécurités.

Bonne continuation...

[veriecherie]

Re,

Tu peux aller également dans la partie sécurité du forum http://www.developpez.net/forums/forumdisplay.php?f=658

A+

[LUD734]

Bonjour à toi Dilse,

Si j'ai bien compris, tu voudrais que sur click d'un bouton (en l'occurence celui qui active la macro) un mot de passe soit demandé pour ne permettre l'éxécution de la macro qu'à celui ou celle qui entre le bon mdp?

Si c'est le cas, essaye ceci:

-Remplace la macro lancée par click sur le bouton par une autre macro qu'on appellera par exemple Restriction, et qui exécutera la fonction Securit (ExécuterCode, Nom fonction =Securit), où Securit sera la fonction définie ci-dessous:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function Securit()
 
Dim mdp As String
Dim key As String
 
key = "mot de passe"
mdp = InputBox("Entrez le mot de passe")
 
If mdp = key Then
DoCmd.RunMacro "Nom de la macro"
Else: MsgBox "Mot de Passe erroné Accès refusé"
End If
 
End Function

En espèrant que c'est ce que tu recherches, et surtout, que ça marchera.

Cordialement,

LUD734


EDIT: Inconvénient majeur: La base de données reste accessible. Par conséquent, quiconque décide d'ouvrir le module Securit (dans l'hypothèse où il a été nommé ainsi) pourra accèder au mdp.
Il est vivement recommandé de changer le nom du module pour un autre moins "évident", ou mieux, intégrer cette fonction au milieu d'un module qui n'a rien à voir. Il faudrait également trouver un nom de macro "discret".

[Dilse]

Merci à Tous pour vos réponses !!!

Génial LUD734 !!! Ton idée je l'ai inclus dans mon code directement et ça marche à merveille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub ImportListXls_Click()
Dim mdp As String
Dim key As String
 
key = "Dilse92"
mdp = InputBox("Entrez le mot de passe")
 
    If mdp = key Then
    'Suppression des avertissements avec DoCmd.SetWarnings
    DoCmd.SetWarnings False
    'Importation d'un fichier excel ListePerso pour alimenter ma table LISTE PERSONNEL
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "LISTE PERSONNEL", "C:\BDD\ListePerso", True
    DoCmd.OpenForm "LISTE PERSONNEL", acNormal, , , acFormReadOnly
    DoCmd.SetWarnings True
 
Else: MsgBox "Mot de passe erroné Accès refusé"
End If
 
End Sub

IT'S MAGIC !!!!!!

Je reste votre Obligée

Encore mille mercis !!!!!

[LUD734]

Content que cela aie marché miss

Si jamais vous avez besoin d'une autre aide, n'hésitez pas. On est là pour ça: l'entraide