VBA - appliquer macro à toutes les feuilles

Résolu/Fermé
Raelle86 Messages postés 3 Date d'inscription vendredi 4 mai 2018 Statut Membre Dernière intervention 24 mai 2018 - Modifié le 4 mai 2018 à 12:45
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 - 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
A voir également:

2 réponses

julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
4 mai 2018 à 13:43
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
1
Raelle86 Messages postés 3 Date d'inscription vendredi 4 mai 2018 Statut Membre Dernière intervention 24 mai 2018
4 mai 2018 à 14:01
Merci Julia,

Cela fonctionne parfaitement !
0
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 33
12 mai 2018 à 14:39
Bonjour
tout le plaisir est pour moi
mettez le fil en résolu svp
cordialement
0