InpoutBox

Question

Voici mon code qui fonctionne mais si je ne mets rien dans la box il me laisse passer sur la feuille ou si je mets un autre mot de passe il me dit erreur mais passe quand même ... il manque la vérification et le retour vers la page d'accueil si ce n'est pas la bonne saisie pouvez vous m'aider ? merci mdp = Application.InputBox("Mot de passe recquis ", "Accès ") If mdp = "1" Or mdp = "2" Then If mdp = "1" Then ActiveSheet.Range("$A$4:$E$65000").AutoFilter Field:=2 Selection.AutoFilter Field:=2, Criteria1:= _ "=6311-", Operator:=xlOr, Criteria2:= _ "=631-" ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Else If mdp = "2" Then ActiveSheet.Range("$A$4:$E$65000").AutoFilter Field:=2 Selection.AutoFilter Field:=2, Criteria1:= _ "=6320-", Operator:=xlOr, Criteria2:= _ "=" ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True Else MsgBox "Vous n'êtes pas autorisé à modifier se fichier", vbCritical, "Droit d'accès" Columns("a:aa").Select Selection.Locked = True ActiveSheets.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFiltering:=True Sheets("Accueil").Range("a11").Select...

h2so4 · Accepted Answer

Je n'ai pas vérifié que ton code fonctionnait, j'ai simplement adapté tes IFs imbriqués pour que la structure de ton code soit correcte. il manque un activesheet.unprotect quelque part essaie de remplacer activesheets par activesheet dans les dernières lignes de ton programme...

h2so4 · Answer

Proposition de correction, à tester... mdp = Application.InputBox("Mot de passe recquis ", "Accès ") If mdp = "1" Or mdp = "2" Then If mdp = "1" Then ActiveSheet.Range("$A$4:$E$65000").AutoFilter Field:=2 Selection.AutoFilter Field:=2, Criteria1:= _ "=6311-", Operator:=xlOr, Criteria2:= _ "=631-" ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ElseIf mdp = "2" Then ActiveSheet.Range("$A$4:$E$65000").AutoFilter Field:=2 Selection.AutoFilter Field:=2, Criteria1:= _ "=6320-", Operator:=xlOr, Criteria2:= _ "=" ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True '----------------- END IF '----------------- Else MsgBox "Vous n'êtes pas autorisé à modifier se fichier", vbCritical, "Droit d'accès" Columns("a:aa").Select Selection.Locked = True ActiveSheets.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFiltering:=True Sheets("Accueil").Range("a11").Select '----------------- END IF '----------------...