problème avec un mot de passe

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 !

laurengv

XLDnaute Nouveau
Voila je suis nouveau sur ce forum et débutant en VBA et développement de macro

J'ai un petit problème que je n'arrive pas à solutionner.
Je veux protéger des feuilles à l'aide d'un mot de passe à partir d'un menu.
Le lien est créé et permet de sélectionner soit en lecture seul soit la possibilité de le modifier uniquement si on entre un mdp

Le problème arrive là
j'ai développé les lignes suivantes et une erreur 1004 apparait mot de passe non valide

Je ne vois pas le problème
je vous joint la ligne de code

Sub Modifdocumentunique()
Application.ScreenUpdating = False
mdp = InputBox("Entrer mot de passe:", "Désactivation de la protection des feuilles")
If mdp <> "docunique" Then
MsgBox "Mot de passe incorrect", vbCritical + vbOKOnly, "Erreur"
Exit Sub
End If
Sheets("Document unique").Visible = True
Sheets("Document unique").Activate
Sheets("Document unique").Unprotect "docunique"
End Sub

Si vous pouvez y jeter un coup d'oeil
Merci par avance

Je vous ai joint une copie de mon document pour texter
 

Pièces jointes

Dernière édition:
Re : problème avec un mot de passe

Bonjour laurengv

Tu testes ton Mdp en vérifiant que celui-ci soit "projet",
et lorsque tu veux déverrouiller ta feuille, tu utilise "docunique" !?

Tu n'aurais pas comme un problème de n'oeil 😉

A+
 
Re : problème avec un mot de passe

Oui ce problème a déjà été rectifié après la publication de ce message
je l'avais déjà modifié
cependant même avec la modif le problème reste présent erreur 1004 mot de passe non valide
verifiez que la touche verr.maj n'est pas activée et que vous respectez la bonne casse
 
- 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

Discussions similaires

Réponses
17
Affichages
469
Réponses
4
Affichages
223
  • Question Question
Microsoft 365 Problème de date
Réponses
5
Affichages
163
Réponses
2
Affichages
530
Réponses
10
Affichages
632
Réponses
1
Affichages
260
Réponses
32
Affichages
1 K
Retour