Menu

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

Raelle86 3 Messages postés vendredi 4 mai 2018Date d'inscription 24 mai 2018 Dernière intervention - 4 mai 2018 à 12:43 - Dernière réponse : julia Namor 435 Messages postés jeudi 27 mars 2014Date d'inscription 9 octobre 2018 Dernière intervention
- 12 mai 2018 à 14:39
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

3 réponses

Meilleure réponse
julia Namor 435 Messages postés jeudi 27 mars 2014Date d'inscription 9 octobre 2018 Dernière intervention - 4 mai 2018 à 13:43
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

Merci julia Namor 1

Avec quelques mots c'est encore mieux Ajouter un commentaire

CCM a aidé 24710 internautes ce mois-ci

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

Cela fonctionne parfaitement !
Commenter la réponse de julia Namor
julia Namor 435 Messages postés jeudi 27 mars 2014Date d'inscription 9 octobre 2018 Dernière intervention - 12 mai 2018 à 14:39
0
Merci
Bonjour
tout le plaisir est pour moi
mettez le fil en résolu svp
cordialement
Commenter la réponse de julia Namor