Macro pour protéger une étendue de feuille Fermé

Question

Bonjour,

Voilà je souhaiterai créer une macro qui me permette de protéger ou d'oter la protection (sans mot de passe) sur une étendue de feuille.

Voilà ce que j'ai tenté sans succès :

Sub Portéger_feuilles () 'macro pour protéger
Sheets ("Nom de la première feuille de l'étendue":"Nom de la dernière feuille de l'étendue").Select
Selection.Protect
End Sub

Quelle procédure dois-je utiliser ?

m@rina · Answer

Bonjour,

Il me semble que les méthodes Protect et Unprotect ne peuvent s'affecter qu'à un seul objet.
Il faut donc faire une boucle :

Sub proteger()
Dim feuilles, feuille
feuilles = Array(1, 2, 5)  'choisir les feuilles à protéger
For Each feuille In ActiveWorkbook.Sheets(feuilles)
feuille.Protect
Next
End Sub

m@rina

m@rina · Answer

Bonjour,

Tu ne peux pas mettre Array x to y.
Il faut faire une ou plusieurs boucles de type :

For feuille = 2 To 30
ActiveWorkbook.Sheets(feuille).Protect
Next

Si tes feuilles à protéger ont un point commun, par exemple le nom, tu pourrais faire :

For Each feuille In ActiveWorkbook.Sheets
If Left(feuille.Name, 4) = "toto" Then
feuille.Protect
End If
Next

m@rina

nemotri · Answer

Bonsoir,

Je déterra un peu mon vieux post pour une petite précision.
J'arrive bien à faire fonctionner une macro pour protéger ou déprotéger une étendue de feuille seulement j'aimerai modifier les critères de la protéction. En effet, j'aimerai protéger les feuilles mais qu'àprès la protection activée on puisse sélectionner les cellules déverrouillées et modifier le formet des cellules. 

Mais je ne sais pas comment faire. Il semble que par défaut les critères sélectionner les cellules vérouillées et sélectionner des cellules déverrouillées soient activés. Comment changer ça ?

Merci d'avance.

Macro pour protéger une étendue de feuille

3 réponses

Discussions similaires