Excel Déprotéger une feuille - Page 1

Je débute sous Excel et je me pose une question dont je ne trouve pas la solution.

J'ai un classeur excel avec n feuilles. Chaque feuille est protégée par un mot de passe (en gros j'ai accès à tout en lecture seule). Le collaborateur qui m'a passé ce classeur m'a donner le mot de passe qui va avec (toutes les feuilles sont protégées par le même mot de passe) donc je peux faire mes modifs.

Le problème c'est qu'il faut que je tape le mot de passe (Outil>Protection>Ôter la protection de la feuille) sur chaque feuille que je souhaite modifier et donc que c'est assez rébarbatif.

De là deux solutions s'offrent à moi:

A) Faire une macro qui dévérouille toute les feuilles dès l'ouverture du classeur. "Stimulant" niveau recherche algorithmique mais un peu lourd.

B) Supprimer définitivement la protection en changeant les propriétés du document. Solution optimale mais là je n'ai trouvé aucune ressource quant à la manipulation à effectuer.

Quelques Excel gurus sur Yaronet?

Merci par avance

En me relisant je me suis aperçu que mes propos n'était peut être pas super clair.

Je n'ai pas besoin de cracker la protection excel car j'ai le password. Je souhaite simplement déverouiller toutes mes feuilles et enregistrer les changements pour que mon classeur soit déprotégé de manière permanente. Or jusqu'à maintenant le fait de dévérouiller toutes les feuilles et d'enregistrer le document (via Fichier>Enregistrer) ne déprotège pas du tout les feuilles qui restent protégées à la prochaine ouverture.

C'est quand même super c*n comme problème et je trouve bizarre qu'une fonction aussi balot ne soit pas si accessible (et encore plus que personne n'est jusqu'à lors rencontré le même soucis que moi).

C'est curieux ton histoire, normalement le fait de déprotéger les feuilles et de sauvegarder devrait être définitif. À moins qu'il n'y ait déjà une macro en place qui verrouille automatiquement les feuilles lors de l'ouverture ou de la sauvegarde du classeur.

Vérifie à tout hasard si ce n'est pas le cas ?

For i = 1 To Worksheets.Count Worksheets(i).Unprotect "mot_de_passe" Next End Sub

Sinon pour la macro qui supprime la protection de toutes les feuilles, ça va pas chercher bien loin :Public Sub UnprotectAll()
    Dim i As Long

Dans le mille Zephyr, c'était ça, une macro qui en fonction d'un booleen protégeait les feuilles. Sécurité très faible il est vrai mais j'y aurai jamais pensé. Le booléen mis à FALSE, on enregistre et c'est bon, la macro (qui fait aussi autre chose donc non supprimable) ce comporte comme il le faut. Merci beaucoup!

PS: Merci aussi pour le code de ta macro, je garde ça dans un coin