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

jigour

XLDnaute Nouveau
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
 
Solution
C
Bonjour Jigour,

Quelque chose comme ceci 🤔
VB:
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+
C

Compte Supprimé 979

Guest
Bonjour Jigour,

Quelque chose comme ceci 🤔
VB:
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+
 

Discussions similaires

Réponses
6
Affichages
321
Réponses
5
Affichages
532
Compte Supprimé 979
C

Statistiques des forums

Discussions
313 314
Messages
2 097 053
Membres
106 820
dernier inscrit
Kalouppppp