Protéger plusieurs feuille en même temps

[finpier34]

Bonjour à tous,
Je suis en train de reprendre un fichier avec plusieurs feuilles environ une vingtaine.
Ma question est la suivante : est ce que j'ai la possibilité de pouvoir en vba ou autre protéger les vingt feuilles en même temps avec un même MDP
Merci d'avance pour votre réponse et bonne journée.

 

[Pierrot93]

Re : Protéger plusieurs feuille en même temps

Bonjour,

essaye peut être ceci :

Option Explicit
Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Protect "toto"
Next ws
End Sub

bonne journée
@+

Edition bonjour Robert....

 

[Robert]

Re : Protéger plusieurs feuille en même temps

Bonjour Finpier, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Dim o As Object

For Each o In Sheets
    o.Protect "toto"
Next o
End Sub

[Édition]
Bonjour Pierrot on s'est croisé. Heu, je trouve mon code 'ach'ment mieux...

 

[finpier34]

Re : Protéger plusieurs feuille en même temps

Merci à vous Pierrot93 et Robert,
J'ai du m'absenter quelques heures mais je ne manquerai pas, dés mon retour d'essayer vos deux solutions et de voir la 'ach´ment meilleur ! Je suis déjà persuadé que les deux sont excellent.
Je vous remercie de vous êtes intéressé à mon problème et vous tiens au courant.

 

[finpier34]

Re : Protéger plusieurs feuille en même temps

re bonjour forum,
après avoir testé les deux je suis parvenu a ce que je voulais avec le code de pierrot93.
merci tout de même a Robert.
pour faire l'inverse comment dois-je m'y prendre ?
merci car vous m'enlever une grosse épine du pied et beaucoup de temps gagné.

 

[Pierrot93]

Re : Protéger plusieurs feuille en même temps

Re,

la même avec "UnProtect"

Option Explicit
 Sub test()
 Dim ws As Worksheet
 For Each ws In Worksheets
     ws.UnProtect "toto"
 Next ws
 End Sub

 

[Pierrot93]

Re : Protéger plusieurs feuille en même temps

Re,

A noter tout de même, mon code protège uniquement les feuilles de calcul, le code de Robert protège tous les types de feuille (calcul, graph, excel4 etc...)

 

[Robert]

Re : Protéger plusieurs feuille en même temps

Bonjour le fil, bonjour le forum,

Arf... tu as choisis Pierrot ! Nos deux codes étaient tellement similaires que je m'étais permis cette petite vanne. Mais t'as raison c'est lui le meilleur...
Pour déprotéger c'est pratiquement la même chose :

Sub Macro2()
Dim o As Object

For Each o In Sheets
    o.Unprotect "toto"
Next o
End Sub

[Édition]J'en étais sûr... Il m'a encore grillé...

 

[Pierrot93]

Re : Protéger plusieurs feuille en même temps

Re,

Mais t'as raison c'est lui le meilleur...

pas vrai ca... regarde le post #7....

 

[finpier34]

Re : Protéger plusieurs feuille en même temps

encore merci vous êtes aussi bon l'un que l'autre et heureusement que l'on vous a pour nous dépatouiller des mauvais pas.
bonne soirée a vous deux et au forum.