[VBA-E]autorisation avec mot de passe

Bonjour,

J'ai un problème avec une demande de mot de passe pour l'obtention de certaines informations.
Mon code est le suivant:

Code:

---

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

Sub autorisation() Dim i As Integer, j As Integer Workbooks(1).Worksheets("AGO").Unprotect "bbil" i = 0 i = CInt(InputBox("Veuillez entrer votre mot de passe :")) '''''' autorisation CODIR ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' If i = 12 Then Sheets("AGO").Visible = True Sheets("Listes").Visible = True Sheets("Liste_Mots_Clés").Visible = True Sheets("Statistiques").Visible = True Workbooks(1).Worksheets("AGO").Activate Cells.EntireRow.Hidden = False Else MsgBox "Vous n'avez pas accès aux décisions CODIR.", vbExclamation End If Workbooks(1).Worksheets("AGO").Protect "bbil" End Sub

---

En fait cela marche si dans la Inputbox je rentre le bon code ou un chiffre négatif.
Cependant, si je click sur annuler sans rien rentrer dans la box. Il y a un message d'erreur (incompatibilité). surement dû au Cint, je pense.

Si quelqu'un pouvait m'aider?:)

Merci

Citation:

---

Workbooks(1).Worksheets("AGO").Unprotect "bbil"

---

tu fais de la pub?? 8O

Citation:

---

Cependant, si je click sur annuler sans rien rentrer dans la box. Il y a un message d'erreur (incompatibilité). surement dû au Cint, je pense

---

oui

Code:

---

1 2 3

temp=InputBox("Veuillez entrer votre mot de passe :") if temp="" then exit sub i = CInt(temp)

---

là y'a plus le souci... sinon y doit y avoir moyen de gerer ca avec les on error mais je saurai pas trop t'aider avec ca :P

Merci, ca marche.

Et sinon c pas que je fais de la pub, j'ai essayé de remplacé le mot de passe(que g eu grace a un exemple donné par bbil) mais ca m'a bloqué alors g décidé de la laisser.

Merci.

En fait ca me remet le message d'erreur si l'utilisateur entre un mot de passe de type string.

ah oui pardon :oops:

Code:

---

if temp="" then exit sub

---

remplace par ca :

Code:

---

if not isnumeric(temp) then exit sub

---

pour la pub je plaisantais :lol: tu devrais mettre Elstak ca fait mieux je trouve :mouarf:

OK merci ca marche Nickel.

T'inquiètes, la prochaine prochaine fois je mettrai Elstak. 8-)