Erreur sur Password

Bonjour

J'ai mis ce code dans ThisWorkBook, quand je veux écrire sur ma feuil1 on me demande mon MdP "0000" que je tape

il m'est répondu que le MdP est erroné et ma feuil1 n'est pas déprotégée

Si vous avez une solution je suis preneur

Cordialement

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

ThisWorkbook.Worksheets("Feuil1").Protect Password = "0000"

End Sub

Bonjour,

Sans fichier difficile de répondre.

Ton bout de code montre juste la protection de feuille.

De quelle manière est demandé le mot de passe ? est-ce par une macro ou est-ce une déprotection manuelle avec l'onglet révision

Bonjour,

Mettre 2 points ":" entre password et =

ThisWorkbook.Worksheets("Feuil1").Protect Password:= "0000"

A+

Re bonjour à vous 2 et merci pour votre aide.

J'ai modifié mon code comme préconisé mais cela ne fonctionne pas

ci-dessous une partie de fichier

3joco.xlsm (15.81 Ko)

Bonjour,

Je n'avais pas bien lu la question de départ, mais effectivement tu ne peux pas protéger une feuille si elle est déjà protégée par un autre mot de passe...

Donc avant de protéger avec "0000" il faut d'abord déprotéger ta feuille manuellement avec ton ancien mot de passe.

A+

Bonjour Joco7915

C'est bien ça, le mot de passe enregistré ne correspond pas à "0000"

2020 05 25 18h41 03

Tu peux tester sur un nouveau fichier, cela devrait fonctionner

@+

Merci Galopin je viens de me rendre compte de mon erreur

j’avais auparavant protégé la feuil1 par le biais de "format"

Maintenant cela fonctionne normalement

Cordialement

Rechercher des sujets similaires à "erreur password"