Discussion :

[chito79000]

Bonjour,

Je viens faire appel à vous avec vos neurones qui seront meilleurs que les miens je pense.....
Je veux protéger chaque onglet du fichier mais en seulement certaines cellules...

Voici mon code de départ :

Code :

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

1
2
3
4
For i = 1 To Sheets.Count
    Sheets(i).Protect "mot de passe", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True
Next i

Voila ce que j'aimerais....

Code :

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

1
2
3
4
For i = 1 To Sheets.Count
    Sheets(i).Range("A:A,1:12,34:60,G:S,F13:F33").Protect "mot de passe", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True
Next i

[Stanler]

Bonjour,

Avez vous vraiment besoin du VBA pour cela ?
Après 5 minutes de recherche sur le net :

"- Sélectionner les cellules à protéger
- Format cellule > Protection: cocher Verrouillée "
Source

[chito79000]

Bonjour,

Oui j'en ai besoin puisque j'ai 13 onglets par fichier pour 150 fichiers ....
Cest pour cela que j'automatise sous VBA

[Stanler]

Une piste :

Code :

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

1
2
3
 
Range("F20:G116").Locked = true
Sheets("feuil1").Protect "TonMotDePasse123",

[AlainTech]

Bonjour,

Petite info:
Les cellules sont "Locked" par défaut.
Il faut donc modifier celles qui doivent être éditable.