VBA - appliquer macro à toutes les feuilles

Résolu
Raelle86 Messages postés 4 Statut Membre -  
julia Namor Messages postés 532 Statut Membre -
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

2 réponses

  1. julia Namor Messages postés 532 Statut Membre 33
     
    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
    1. Raelle86 Messages postés 4 Statut Membre
       
      Merci Julia,

      Cela fonctionne parfaitement !
      0
  2. julia Namor Messages postés 532 Statut Membre 33
     
    Bonjour
    tout le plaisir est pour moi
    mettez le fil en résolu svp
    cordialement
    0