Menu

VBA - appliquer macro à toutes les feuilles [Résolu]

Messages postés
3
Date d'inscription
vendredi 4 mai 2018
Dernière intervention
24 mai 2018
-
Bonjour à tous,

Je ne maîtrise pas du tout le VBA, mais j'ai trouvé une macro qui me permet d'autoriser les utilisateurs à grouper/dégrouper des lignes sur une feuille protégée. L'ennui c'est que celle-ci ne s'applique qu'à une feuille. J'ai rentré ce code sous ThisWorkbook, il ne fonctionne pas si je le mets sous la feuille concernée (donc je ne peux pas le copier/coller sur sur chacune...).

Pouvez-vous svp m'aider à adapter cette macro pour quelle s'applique à toutes les feuilles du classeur (ou bien que je puisse ajouter le noms des feuilles concernées ) ?


Option Explicit
Private Sub Workbook_Open()
'Macro par Dan pour Fabrice69
With Sheets("TABLE F")
.EnableOutlining = True
.Protect userInterfaceOnly:=True
End With
End Sub



Un grand merci d'avance pour votre aide
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
Messages postés
449
Date d'inscription
jeudi 27 mars 2014
Dernière intervention
22 décembre 2018
31
1
Merci
Bonjour
ceci devrait faire l'affaire
Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
ws.EnableOutlining = True
ws.Protect userInterfaceOnly:=True
Next ws
End Sub

Cordialement

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 41834 internautes nous ont dit merci ce mois-ci

Raelle86
Messages postés
3
Date d'inscription
vendredi 4 mai 2018
Dernière intervention
24 mai 2018
-
Merci Julia,

Cela fonctionne parfaitement !
Commenter la réponse de julia Namor
Messages postés
449
Date d'inscription
jeudi 27 mars 2014
Dernière intervention
22 décembre 2018
31
0
Merci
Bonjour
tout le plaisir est pour moi
mettez le fil en résolu svp
cordialement
Commenter la réponse de julia Namor