Mot depasse ôter sans Mot de Passe

Bonjour

je rencontre un problème avec la protection par mot de passe d'une feuille dans une macro. A la fin de ma macro je protège ma feuille avec un mot de passe. Si j'ouvre cette feuille et en sélectionnant une case, on m'indique que la feuille est protégée, vous allez me dire que c'est normal. La où je n'arrive pas à comprendre, c'est qu'il suffit d'aller dans Outils, Protections et cliquer sur Oter la protections pour que le fichier se déverrouille sans rentrer le moindre mot de passe. J'ai fait la même procédure de protection de façon manuelle, sans passer par une macro, ça marche sans problème, on me demande le mot de passe si je veux ôter la protection. Où est le problème?

Merci pour vos réponses.

Bonjour,

Envoie la partie de ton code où tu protèges ta feuille. Il doit y avoir une erreur de syntaxe

Math

Merci pour ta réponse.

Ci-joint la syntaxe que j'utilise:

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _

True

ActiveWorkbook.SaveAs Filename:= _

Worksheets("Feuil1").[AM13].Value, _

FileFormat:=xlNormal, Password:="", WriteResPassword:="", _

ReadOnlyRecommended:=False, CreateBackup:=False

jm

Bonsoir,

Le code que tu nous fais voir enregistre le fichier sous un nouveau nom = AM13 de la "Feuil1"

rien à voir avec la protection de la Feuil1

Pour protéger Feuil1 avec mot de passe "dudu" par exemple,

Worksheets("Feuil1").Protect Password:="dudu"

Amicalement

Claude

Merci

j'ai essayé cela fonctionne.

Salutations

jm

N'oublie pas la petite formalité

a resolu2
Rechercher des sujets similaires à "mot depasse oter passe"