Mot de passe sur VBA Excel

:) Bonjour à tous. Je souhaiterais avoir le code permettant d'exiger un mot de passe à l'ouverture d'un formulaire (ou userform). J'aimerais également obtenir le code permettant de modifier un mot de passe (procédure par laquelle on demande l'ancien mot de passe, le nouveau mot de passe et retaper le nouveau mot de passe). Je voudrais préciser que je suis débutant en VBA. Je vous remercie et j'attends vos réponses.

Bonjour & http://smileys.sur-la-toile.com/repo...ages/0005a.gif

Pour la première question, un truc du style pourrait faire l'affaire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Mdp() Dim Mdp As String, Pw As String   Pw = "taratata" '<-- mot de passe   recom: Mdp = InputBox("Veuillez introduire votre mot de passe", "Password")   If Mdp = Pw Then UserForm1.Show Else If MsgBox("Mot de passe non valide, voulez-vous réessayer ?", vbExclamation + vbRetryCancel, "Invalide Password") = vbRetry Then GoTo recom End If   End Sub

---

Par contre pour la seconde question, là ça demande quelques précisions complémentaires :

1. où vas tu stocker le (ou les) mot de passe ?
2. il y aura t-il plusieurs utilisateurs ayant chacun leur mdp ?
3. si plusieurs utilisateurs ayant chacun leur mdp, ils s'identifieront comment, via un login ?

Merci beaucoup Fring. En fait, pour le stockage des mot de passe je pourrais bien les mettre dans une feuille excel ou autre chose que tu pourrais me proposer. il ya un seul utilisateur qui doit pouvoir définir son mot de passe et le changer quand il le désire. je te remercie encore pour ta disponibilité.

bonjour

tu peux effectivement stocker ce mdp dans une feuille à part et cacher cette feuille pour que personne n'y ai accès ( ici une feuille appelée MDP)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

sub changer_MDP () Dim Mdp as String, Dim Pw as String   Pw = sheets("MDP").Range("A1")   recom: Mdp = InputBox ("entrez votre ancien Mot de passe", "Changement de MDP")   If Mdp=Pw then Mdp = Inputbox("Entrez votre nouveau Mot de passe","Changement de MDP") Sheets("MDP").Range("A1")=Mdp Else If MsgBox ("Mot de passe invalide",vbExclamation + vbRetryCancel, "Mauvais MDP") = vbRetry Then GoTo recom End If   End Sub

---

pour être sur que ta feuille MDP soit innaccessible dans dans le module d'ouverture du classeur tu mets

Code:

---

1 2 3 4

Private Sub Workbook_Open() If Sheets("MDP").Visible = xlSheetVisible Then Sheets("MDP").Visible = xlSheetVeryHidden End Sub

---

enfin dans le code que t'as donné fring change

Code:

---

1 2	Pw = "taratata" '<-- mot de passe

---

par

Code:

---

1 2	Pw = Sheets("MDP").range("A1") '<-- mot de passe

---

enfin histoire d'éviter les erreurs place tes déclarations de variables en tête de ton module et enlève les de tes procédures

Je manque d'imagination là, je n'ai pas d'autres idées pour l'instant que de stocker le mot de passe dans une cellule.
Pour le code permettant d'afficher le UserForm

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Mdp() Dim Mdp As String   If Range("IV65535").Value = "" Then MsgBox "Aucun mot de passe n'est créé pour l'instant, veuillez introduire votre nouveau mot de passe" Range("IV65535") = InputBox("Nouveau de passe", "Création MDP") ActiveWorkbook.Save UserForm1.Show Exit Sub End If   recom: Mdp = InputBox("Veuillez introduire votre mot de passe", "Password")   If Mdp = Range("IV65535").Value Then UserForm1.Show Else If MsgBox("Mot de passe non valide, voulez-vous réessayer ?", vbExclamation + vbRetryCancel, "Invalide Password") = vbRetry Then GoTo recom End If   End Sub

---

Pour le code permettant de modifier le mot de passe

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Sub Changer_Mdp() Dim Oldpw As String, Newpw1 As String, Newpw2 As String   If Range("IV65535").Value = "" Then MsgBox "Aucun mot de passe n'est créé pour l'instant, veuillez introduire votre nouveau mot de passe" Range("IV65535") = InputBox("Nouveau de passe", "Création MDP") ActiveWorkbook.Save End If   recom: Oldpw = InputBox("Veuillez introduire votre ancien mot de passe", "Old Password")   If Oldpw <> Range("IV65535") Then If MsgBox("Mot de passe non valide, voulez-vous réessayer ?", vbExclamation + vbRetryCancel, "Invalide Password") = vbRetry Then GoTo recom Else Exit Sub End If Else Newpw1 = InputBox("Veuillez introduire votre nouveau mot de passe", "New Password") Newpw2 = InputBox("Pour vérification, veuillez introduire une seconde fois votre nouveau mot de passe", "Nex Password") If Newpw1 <> Newpw2 Then If MsgBox("Erreur lors de la vérification, voulez-vous recommencer ?", vbExclamation + vbRetryCancel, "Vérification") = vbRetry Then GoTo recom Else Exit Sub End If Else Range("IV65535") = Newpw2 ActiveWorkbook.Save UserForm1.Show End If End If End Sub

---

Range("IV65535") est une solution éventuelle que l'on peut remplacer par une autre cellule dans une autre feuille d'un autre classeur, par un fichier txt, etc...

Il faut également penser à protéger les macros par un mot de passe : clic droit sur VBAProject --> propriétés.

Enfin il faut bien se dire que cette protection n'est qu'une "pseudo" protection qui pourra être rapidement contournée par un bricoleur averti.

merci bocou a Deuxmains et Fring vous êtes vraiment sympa de partager. G pense ke g vai essayer les codes ke vous m'avez donné!!! Encore merci pour votre disponibilité!!!!!!!