Protections feuilles

JP54

XLDnaute Junior
Bonjour,
J'ai un classeur sous excel 2007 avec environ 150 feuilles et je voudrais les protéger toues ensemble
Donc je cherche un code VBA avec ou sans mot de passe avec un ou deux butons pour activer et désactiver la protection, bref quelques chose de simple à utiliser.
Si je pouvais avoir un fichier en exemple ça serait fort bien afin de tester avant de modifier tout mon fichier
J'en ai trouvé sous des versions d'excel inférieur à 2007 et qui ne fonctionne pas.
Merci d'avance
 

JP54

XLDnaute Junior
Re : Protections feuilles

Oui j'ai cherché, j'ai trouvé quelques solutions mais pas pour 2007 ou j'ai mal cherché
 

Staple1600

XLDnaute Barbatruc
Re : Protections feuilles

Re

Ces deux macros qui sont quasi-identiques à celles que je cite fonctionnent sans problème sur XL 2013
(donc elles doivent fonctionner sur XL 2007)
Code:
Sub prot()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect
Next
End Sub
Code:
Sub deprot()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Unprotect
Next
End Sub
 

JP54

XLDnaute Junior
Re : Protections feuilles

Je n'en doute pas que ça doit fonctionné, mais pour le moment je n'y arrive pas
 

JP54

XLDnaute Junior
Re : Protections feuilles

C'est bon, ça fonctionne, mais j'aurais voulu quelque chose avec un ou deux boutons pour activer ou désactiver la protection
 

JP54

XLDnaute Junior
Re : Protections feuilles

Je me doutais de ta réponse :mad: :) si j'ai ouvert ce sujet c'est que j'ai des difficultés et je n'attends pas du tout cuit. Je vais continué à chercher
 

Staple1600

XLDnaute Barbatruc
Re : Protections feuilles

Re

Donc désormais tu as deux macros fonctionnelles, et le tutoriel pour créer des boutons "lanceur de macros"

Donc ta question est résolue et je peux aller faire infuser mon thé ;)

NB: On est bien d'accord, que les réponses étaient déjà là dans les archives du forum et sur le net ;)
 

JP54

XLDnaute Junior
Re : Protections feuilles

On est bien d'accord, il faut simplement faire les bonnes recherches. Bon thé et merci pour ton aide
 

Fichiers joints

Victor21

XLDnaute Barbatruc
Supporter XLD
Re : Protections feuilles

Bonjour JP54,

Permettez-moi d'exprimer mon admiration devant la sobriété que vous affichez à remercier Staple1600 au fur et à mesure qu'il vous aide : pas un mot de trop, même pas une salutation... Mais après tout, c'est normal : il est là pour ça.

Moi je profite de ce post pour le féliciter à l'occasion de son nouveau passage de cap : 22 000 réponses destinées à partager pour aider, ce n'est pas rien !
 

Discussions similaires


Haut Bas