Grupper i flere beskyttende ark

Dette her spørgsmål har været oppe og vende nogle gange, men jeg kan ikke finde noget hvor man kan beskytte flere ark hvor der er grupperinger.

Option Explicit
Sub auto_open()
    With Worksheets("sheet1")
        .Protect Password:="hi", userinterfaceonly:=True
        .EnableOutlining = True
        '.EnableAutoFilter = True 
        'If .FilterMode Then
        '  .ShowAllData
        'End If
    End With
End Sub

Overstående kode kan jeg kun få til at virke på ét ark. Hvordan får jeg sat flere ark på?

Hvordan skal VBA koden se ud?

Håber der er en venlig sjæl :)

På forehånd tak.

Mvh.
N.Jensen