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
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: