protection de plusieurs feuilles

[tinet]

Bonjour à tous,

Pour certaines macros je suis obligé de protéger et inversement les feuilles de mon classeur sur certaines fonctions.
La question et que je dois toujours écrire la fonction pour chaque feuille individuelle.
existe-t-il un moyen de raccourcir la programmation pour toutes les feuilles.

exemple.

Sheets("1").Select
ActiveSheet.Unprotect Password:="AZA"
Sheets("2").Select
ActiveSheet.Unprotect Password:="AZA"
Sheets("3").Select
ActiveSheet.Unprotect Password:="AZA"

 

[Staple1600]

Re : protection de plusieurs feuilles

Bonjour tinet


Question mille fois ici posée 🙄
(une petite recherche t'aurait donné la réponse...)

Sub protection()
Dim s as worksheet
For each s in Worksheets
s.Protect  "AZA"
Next s
End Sub

Je te laisse faire pour la macro deprotection (qui il me semble coule de source) 🙂

 

[tinet]

Re : protection de plusieurs feuilles

Bonjour Staple 1600.

Merci beaucoup, je prends note de ta remarque.

Maintenant si je veux que certaines feuilles ne soit pas concerné.

a+

 

[Staple1600]

Re : protection de plusieurs feuilles

Re


Même réponse
Et comme tu prends note de ma remarque
je te laisse utiliser soit:
1) le moteur de recherche
2) les 5 liens en bas de cette page, dans les Discussions similaires.

Car la aussi cette question a déjà été posée sur le forum.

PS: ce conseil (faire une recherche avant de poster) se trouve dans la charte du forum ...

 

[tinet]

Re : protection de plusieurs feuilles

JM,

je ne suis pas un spécialiste de la programmation malheureusement, je récupère des morceaux d'information pour construire mes fichiers.

les sujets de discussion sur les forums sont pas toujours adaptés et compréhensibles pour moi novice en la matière.
Et c'est toujours pour moi un grand plaisir de discuter et d'échanger sur ce forum avec des spécialistes.

Au plaisir de te relire sur une de mes questions.

 

[BOISGONTIER]

Re : protection de plusieurs feuilles

Bonjour,

Protection

JB

 

[Staple1600]

Re : protection de plusieurs feuilles

Re


Être novice n'empêche pas d'être curieux 🙄 *
Voici de quoi t'aider à rompre ton noviciat
Excel Downloads - Remository
Voir la section Leçons et Tutoriaux.

*: ce que je veux dire par là, c'est que par exemple , quand j'ai commencé sur XLD en 2005, j'étais un novice
Je ne savais pas comment utiliser un forum (en plus je crois me souvenir qu'il n'était pas sous vbulletin)
Eh bien , j'ai cliqué sur tous les liens, tous les menus de l'interface du forum.
(Et là je fais la même chose, depuis la nouvelle version du forum, je clique à tout va sur tout ce qui est cliquable
pour comprendre les nouvelles fonctionnalités d'XLD)
Voilà ce que j'appelle être curieux.

 

[celoburn]

Re : protection de plusieurs feuilles

@BOISGONTIER :

c'est une mine d'or ton site, je sens que je vais y passer des heures pour satisfaire ma curiosité, félicitation pour ce travail !