XL 2010 Avoir 2 mots de passe pour une même macro?

[jigour]

Bonjour ,
Je ne sais si c'est faisable , mais pour lancer une macro je souhaite pouvoir utiliser 2 mots de passe indépendemment (soit l'un , soit l'autre)
Jecolle ici un bout de code que j'utilise et qui fonctionne.
Merci de me venir en aide.

Sub ouvrel()
Dim motdepasseactuel As String
Dim motdepasseboite As String

motdepasseactuel = Worksheets("12").Range("I10")
motdepasseboite = InputBox("Accès administrateur " & "Entrez le mot de passe")
If motdepasseboite <> motdepasseactuel Then
MsgBox "Mot de passe incorrect"
Exit Sub
End If

 

[Compte Supprimé 979]

Bonjour Jigour,

Quelque chose comme ceci

Sub ouvrel()
  Dim motdepasseboite As String
  motdepasseboite = InputBox("Accès administrateur " & "Entrez le mot de passe")
  If motdepasseboite <> Worksheets("12").Range("I10") and _
  motdepasseboite <> Worksheets("12").Range("I11")  Then
    MsgBox "Mot de passe incorrect"
    Exit Sub
  End If
End Sub

A+

 

[jigour]

Super,
J'avais cherché une solution bien plus complexe .
Ca fonctionne parfaitement , merci encore.
Jean