Discussion :

[aweb]

Bonjour,
J'ai un classeur Excel d'une centaine de feuille.
Toutes les feuilles sont identiques.
Je veux protéger ces feuilles avec un mot de passe pour permettre la modification que de certaines cellules.
Je sais comment faire pour une feuille (d'abord déverouiller les cellules qui pourront être modofiées, et ensuite faire Outil / Protection / Protéger la feuille, mettre le mot de passe et OK).
Seulement je ne sais pas si c'est possible de le faire pour toutes les feuilles en une seule fois.
En sélectionnant toutes les feuilles, la protection de la feuille n'est pas admise.

Merci pour votre aide.
Cordialement

[David2304]

Bonjour,

Essaye avec le code ci-dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i = 1 To Sheets.Count
Sheets(i).Protect Password:="MDP"
Next

[aweb]

Désolé, je ne connais pas très bien le code.
Où est ce que je dois le mettre: dans ThisWorkbook? ou autre part?
Que ce texte, ou avec autre chose...
Merci
cordialement

[David2304]

Tu peux l'insérer dans un nouveau module
clique-droit sur thisworkbook par exemple puis insertion module

Tu peux également insérer un bouton de commande sur une de tes feuilles et y coller le code tel quel

[aweb]

OK merci,
çà fonctionne impeccable.
Bonne journée