Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

aide sur ProtectionOngletMultiFeuillesUtilMP J. Boisgontier

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion hakeim94
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
H

hakeim94

Guest
Bonjour,

je souhaiter utiliser le code VBA de J. Boisgontier. je l'est insérer à mon projet mais quand je tente de mettre le login et mot de passe d'un utilisateur que j ai créé dans la feuille Admin j'ai une erreur:





Merci de votre aide
 

Pièces jointes

  • Sans titre.jpg
    33.3 KB · Affichages: 82
  • Sans titre.jpg
    33.3 KB · Affichages: 73
  • Sans titre1.jpg
    32.5 KB · Affichages: 73
  • Sans titre1.jpg
    32.5 KB · Affichages: 78
  • ProtectionOngletMultiFeuillesUtilMP.xls
    ProtectionOngletMultiFeuillesUtilMP.xls
    64.5 KB · Affichages: 53
Trier par date Trier par votes
Re : aide sur ProtectionOngletMultiFeuillesUtilMP J. Boisgontier

Bonjour hakeim94,

Es-tu certain d'avoir nommé une plage de cellules en tant que "MotPasse" dans ton fichier, car le code me paraît correct et comme l'erreur pointe sur cette ligne ?

Apparemment, tu as joint le fichier de JB et non le tien, donc pas facile d'être catégorique.

Cordialement.
 
Vote positif 0 Vote négatif
Re : aide sur ProtectionOngletMultiFeuillesUtilMP J. Boisgontier

Bonjour

Comme le soulignais Papou-net tu n'as pas de plage nommée dans ton classeur.
Il faut commencer par nommer ainsi la plage qui contient ton ou tes mots de passe ou bien adapter le code de JB.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : aide sur ProtectionOngletMultiFeuillesUtilMP J. Boisgontier

j'ai souhaite faire un msgbox avec mot de pass incorrect avec se code :
For i = 1 To Range("MotPasse").Count
If UCase(Me.motpasse) <> UCase(Range("motpasse")(i)) And _
UCase(Me.utilisateur) = UCase(Range("utilisateur")(i)) Then
MsgBox "mot de passe incorrect"(i)

mais sa marche pas
 
Vote positif 0 Vote négatif
Re : aide sur ProtectionOngletMultiFeuillesUtilMP J. Boisgontier

Bonsoir hakeim,

Peut-être comme ceci :

Code: 
For i = 1 To Range("MotPasse").Count
      If UCase(Me.motpasse) <> UCase(Range("motpasse")(i)) And _
         UCase(Me.utilisateur) = UCase(Range("utilisateur")(i)) Then
         MsgBox "mot de passe incorrect"

Tu ne précises pas quelle erreur tu constates, mais si je puis te donner un conseil, c'est de ne pas convertir le mot de passe en majuscules, ce qui minimise sa portée.

Je te propose donc d'écrire :

Code: 
For i = 1 To Range("MotPasse").Count
      If Me.motpasse <> Range("motpasse")(i) And _
         UCase(Me.utilisateur) = UCase(Range("utilisateur")(i)) Then
         MsgBox "mot de passe incorrect"
Cordialement.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

P
  • Résolu(e)
XL 2021 commission sur vente pour Excel version française
Réponses
6
Affichages
378
Plans24
P
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
521
TooFatBoy
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
893
picc
P
  • Question Question
Microsoft 365 Classeur xlsm en partage
Réponses
4
Affichages
320
JJ68
A
  • Question Question
Microsoft 365 création d'un formulaire en numérologie
Réponses
12
Affichages
1 K
fred936
F
J
  • Résolu(e)
Microsoft 365 lettre suivante
Réponses
5
Affichages
665
sylvanu
R
  • Question Question
Microsoft 365 Protéger les mots de passe
2
Réponses
17
Affichages
876
Phil69970
S
  • Question Question
XL 2019 besoin d aide pour le développement d'un fichier rangements vers les répertoires attitré
Réponses
6
Affichages
705
stef60400
S
V
  • Résolu(e)
Microsoft 365 Barre de recherche : comment rendre éditable le résultat ?
2 3 4
Réponses
52
Affichages
2 K
dysorthographie
K
  • Question Question
Microsoft 365 création mot passe classique avec un code
Réponses
1
Affichages
460
Gégé-45550
A
  • Résolu(e)
XL 2019 VBA newbie
4 5 6
Réponses
80
Affichages
3 K
apocalypse
A
C
  • Résolu(e)
XL 2016 Répartir dans des Groupes d'Effectifs Aléatoires ... mais pas trop
Réponses
2
Affichages
596
crocrocro
C
P
  • Question Question
Autres Finalisation de projet VBA pour planning quotidien
2
Réponses
15
Affichages
952
vgendron
T
  • Résolu(e)
XL 2021 Masquer des colonnes et affichage avec MDP
Réponses
11
Affichages
1 K
ThomAnalyses
T
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
542
sylvanu
M
  • Question Question
XL 2021 Protection des onglets
Réponses
2
Affichages
413
MANU64360
M
B
  • Question Question
Microsoft 365 Fonction VBA - affichage d'un onglet
Réponses
2
Affichages
575
job75
S
  • Résolu(e)
Microsoft 365 Faire des calculs automatiques sur un calendrier perpétuel avec enregistrements de données
Réponses
2
Affichages
647
sebastien176
S
L
  • Question Question
Microsoft 365 masquer colonne + MDP
Réponses
2
Affichages
618
l.et.lilou
L
N
  • Question Question
Microsoft 365 Navigation avec boutons d'une Listbox dans un Userform
Réponses
1
Affichages
827
Oneida
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…