InputBox avec 2 codes possible ...

[Evelynetfrancois]

BONJOUR à tous bon dimanche ......
j ai fait un accès " sécurisé " pour accéder à une des feuille de mon classeur
par l intermédiaire d'une inputbox , comme ci-dessous (le code se trouvant en
Sheets("param").Range("E15"))

Dim cod
cod = InputBox(" Code d'accès obligatoire pour toutes modifications des paramètres ", " Accès protégé")
If cod = CStr(Sheets("param").Range("E15").Value) Then
Sheets("param").Select
Range("A1").Select
End If

Est-il possible, Si je rentre un autre mot de passe que celui de référence .Range("E15").Value) , d accéder directement à une autre feuille ??

En clair si je tape la valeur de E15........ la Sheets("param") s'ouvre....
..........si je tape "TOTO ..............la sheets("Liste") s'ouvre......
si non ........rien !
(sinon je passerais par un usf)

Merci d’avance pour toutes vos précieuses sujétions

Au plaisir de vous lire.

E et F

 

[Pierrot93]

Re : InputBox avec 2 codes possible ...

Bonjour E et F

peut être comme ceci :

Sub test()
Dim cod As String
cod = InputBox(" Code d'accès obligatoire pour toutes modifications des paramètres ", " Accès protégé")
If cod = CStr(Sheets("param").Range("E15").Value) Then
    Sheets("param").Select
    ElseIf cod = "toto" Then Sheets("Liste").Select
Else
    MsgBox "mot de passe non reconnu"
End If
End Sub

bon dimanche
@+

 

[Evelynetfrancois]

Re : InputBox avec 2 codes possible ...

Merci Pierrot93 !!!
Je tournais autour , sans utiliser le "ElseIf"
je passais directement par Else !!!

là ça fonctionne au poil !!
je te REMERCIE beaucoup .......

bon dimanche .
E et F