Avec un Userform, Ecrire un code VBA pour la gestion des Mots de Passe

Bonsoir à tous.

Je suis en train de faire un travail sur un classeur qui doit être utilisé par plusieurs personnes pour des créations, des modifications et des consultations.
Je voudrais créer un UserForm de mot de passe pour que chaque accès laisse une trace.
Voici la présentation
j'ai la liste des utilisateurs dans colonne n°1, les codes d'identification dans la colonne 2 et les mots de passe correspondant dans la colonne 3.
Donc j'aurai :
1- Code d'identification , qui après insertion, doit afficher automatiquement les Nom et Prénoms de la personne
2- Insertion du mot de passe qui, après vérification de la conformité, doit donner ou refuser l'accès au données.
Toutefois, l'intéressé ne doit pas essayer plus de 7 fois au quel cas , le classeur sera fermé.
Pendant ce temps, je souhaite avoir sur une feuille du classeur, l'historique de:
- tous ceux qui ont eu accès (avec les différents chemins: création, modification ou consultation)
- tous ceux qui n'ont pas pu avoir l'accès
Ceci me permettra de traiter le dossier les week-end et voir la participation de chacun à la tache confiée.
Je suis sûr que quelqu'un a déjà une application similaire pour m'aider.

D'avance, je vous remercie sincèrement

Max Ledoux.
Un pas vers le perfectionnement 8O

Bonjour

Tu es venu ici pour faire quoi, exactement ? Rédiger le cahier des charges de ce dont tu as besoin et demander du tout-cuit ?
Ce n'est pas la vocation de ce forum.
Montre ce que tu as écrit ou au moins tenté de construire et écrire.
Isole la difficulté rencontrée dans le cours de ce développement, montre ce que tu as tenté pour la résoudre. C'est ainsi et pas autrement, que l'on fonctionne ici.
Merci de faire cet effort.

Citation:

---

Envoyé par unparia

Bonjour

Tu es venu ici pour faire quoi, exactement ? Rédiger le cahier des charges de ce dont tu as besoin et demander du tout-cuit ?
Ce n'est pas la vocation de ce forum.
Montre ce que tu as écrit ou au moins tenté de construire et écrire.
Isole la difficulté rencontrée dans le cours de ce développement, montre ce que tu as tenté pour la résoudre. C'est ainsi et pas autrement, que l'on fonctionne ici.
Merci de faire cet effort.

---

Bonjour mon cher !
Loin de moi l'idée de rechercher du tout-cuit.

Voici ci-dessous, le bout de code qui me permet d'exiger un Mot de Passe avant d'accéder au "menu de Saisie" du Classeur et ça marche.
Sauf que, tous ceux qui ont le classeur auront accès à toutes les feuilles. Or il y a plusieurs groupe de travail sur le même projet et je voulais que chacun ait un droit d'accès propre à lui.
Ci-dessous:
- Sheets ("ACCES") est le module de Mot de Passe
- Sheets ("EXPED_RECEP") est le Menu de saisie d'où toutes les autres feuilles (52) sont alimentées.
Là, le problème ne se pose pas.
Le seul soucis que j'ai, c'est comment restreindre l'accès de manière à ce que l'utilisateur n'aura accès qu'aux feuilles autorisées selon son profil .

Voici mon bout de code . C'est sans un UserForm

Sub Macro_Pwd()

Worksheets("ACCES").Protect ("duBoi24")
Worksheets("ACCES").Visible = -1
Worksheets("ACCES").Activate
'Cells(10, 2).Activate
'
If Worksheets("ACCES").Range("B10").Value = Worksheets("ACCES").Range("E11").Value Then
Worksheets("EXPED_RECEP").Visible = -1

Cells(1, 2).Activate
MsgBox "Ouverture du formulaire de SAISIE !"
Sheets("ACCES").Select
Range("B6").Select
Selection.Copy
Worksheets("EXPED_RECEP").Select
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("ACCES").Range("B6").ClearContents
Worksheets("ACCES").Select
Range("B8").Select
Selection.Copy
Sheets("EXPED_RECEP").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Worksheets("ACCES").Range("B8").ClearContents
Worksheets("ACCES").Range("B10").ClearContents
Worksheets("ACCES").Visible = 0

Worksheets("EXPED_RECEP").Visible = -1
Worksheets("EXPED_RECEP").Range("B7").Activate
MsgBox ("Bienvenu dans le formulaire de saisie")

Else
Worksheets("EXPED_RECEP").Visible = 0
Worksheets("ACCES").Visible = -1
Worksheets("ACCES").Range("B10").Activate


End If

End Sub


C'est rudimentaire, mais çà marche et empêche d'afficher le menu de SAISIE tant que le MDP n'est pas correct.

Bien à vous

Bonjour,

Je ne suis pas un expert en VBA loin s'en faut, mais j'ai utilisé ce code pour une application il y a un petit moment, peut-être te sera t-il utile. Désolé, mais je ne l'avais pas puisé sur ce forum.

Pièce jointe 327226