Discussion :

[aramge]

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 :

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
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

[Elstak]

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

tu fais de la pub??

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 :

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

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

[aramge]

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.

[aramge]

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

[Elstak]

ah oui pardon

Code :

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

if temp="" then exit sub

remplace par ca :

Code :

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

if not isnumeric(temp) then exit sub

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

[aramge]

OK merci ca marche Nickel.

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