Ce navigateur n’est plus pris en charge.
Effectuez une mise à niveau vers Microsoft Edge pour tirer parti des dernières fonctionnalités, des mises à jour de sécurité et du support technique.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Bonjour
J'ai un classeur Excel sur lequel il y a plus de 20 feuilles, comment faire pour vérouillées le tout? sans le faire une par une.
Merci de votre aide.
Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.
Bonjour
Merci pour votre aide, ça marche à merveille.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(108.80000000000001, 78%, 20%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3ED%3C/text%3E%3C/svg%3E)
Bonjour,
Tu dois exécuter cette macro, en supposant que toutes les feuilles aient le même mot de passe (remplace "mot-de-passe" par ton mot de passe):
Sub Déproteger_Feuilles()
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.Unprotect Password:="mot-de-passe"
Next Sh
End Sub
S'il n y a pas d emot de passe, remplace la ligne
Sh.Unprotect Password:="mot-de-passe"
par
Sh.Unprotect
Si tu as des problèmes avec les macros, dis-le.
Daniel