Discussion :

[oscar.cesar]

bonjour
je souhaiterai verrouiller toutes les feuilles de mon classeur dont le nom commence par P

actuellement le code que j'ai tapé n'est pas gracieux

Code :

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

1
2
3
4
5
6
 
sheets("p1").protect 
sheets("p2").protect 
sheets("pouvoir").protect 
sheets("partage").protect 
etc...

comme je souhaite par code creer ou supprimer des feuilles je vous laisse deviner, le clavier risque de chauffer.

[ucfoutu]

Bonsoir,

ta question est assez surprenante.

Je préfère quant à moi te répondre ainsi et te laisser y mettre un peu (très peu) du tien :

Une collection est composée d'éléments.
La collection Sheets est composée de feuilles. Chacun de ses élément est donc une Sheet.
Chaque Sheet possède une propriété Name.
Tu peux passer en revue toutes les "Sheet" de la collection Sheets par une boucle du genre :

Code :

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

1
2
3
For Each toto in sheets
.....
Next

dans cette boucle, chaquue toto sra une "Sheet" de la collection Sheets et aura donc une propriété Name !
Dès lors : il te faut détermioner si la premùière lettre de toto.Name est un P.
Tu connais quand même la fonction Left, non ?
Allez ! je te laisse faire ...

[oscar.cesar]

bonsoir

merci des infos, tu es un bon guide
si j'ai bien compris , cela devrait donner cela

Code :

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

1
2
3
4
 
For Each sh In Sheets
    If Left(sh.Name, 1) = "P" Then sh.Protect  'prend toutes les feuilles dont le nom commence par P
Next sh