Na beveiliging tabbladen groepen in- en uitvouwen (macro)

[Lou77]

Al een tijdje ben ik op zoek naar de juiste Macro om het volgende op te lossen.
Na het beveiligen van een tabblad, kan je in Excel de groepen niet meer uitvouwen (Data->overzicht->groeperen). Met behulp van een macro, die ik na wat speurwerk heb gevonden, is het wel mogelijk.

Ik stuit daarbij echter op 2 problemen die ik niet kan oplossen:
1) Met deze macro kan ik het slechts instellen voor 1 tabblad
2) als ik de naam van het tabblad wijzig, wijzigt de macro niet automatisch mee (daar gaat wel mijn voorkeur naar uit zodat ik de macro niet moet aanpassen bij een wijziging in de toekomst).

Ik gebruik de volgende macro in Visual Basic:

Private Sub Workbook_Open()
  With Sheets("naam tabblad")
    .Protect UserInterfaceOnly:=True
    .EnableOutlining = True
  End With
End Sub

Heeft iemand voor een mij de juiste macro? Of een idee hoe ik die moet maken?

Bij voorbaat dank!

gr Lou77

 

[Demeter]

Probeer deze eens:

Private Sub Workbook_Open()
Dim x As Long

    For x = 1 To ActiveWorkbook.Sheets.Count
        With ActiveWorkbook.Sheets(x)
            .Protect UserInterfaceOnly:=True
            .EnableOutlining = True
        End With
    Next

End Sub

En kan je de volgende keren (?) de code tags gebruiken om je code heen? Wordt het wat makkelijker leesbaar en overzichtelijker.

 

[Wigi]

Private Sub Workbook_Open()
Dim x As Long

    For x = 1 To ActiveWorkbook.Sheets.Count
        With ActiveWorkbook.Sheets(x)
            .Protect UserInterfaceOnly:=True
            .EnableOutlining = True
        End With
    Next

End Sub

Dit behandelt alle werkbladen, is dat gewenst? Of slechts 1?

 

[Lou77]

Het werkt hiermee als een trein! Bedankt voor de hulp, scheelt mij veel werk. Volgende keer gebruik ik de tags, excuus.

 

[Wigi]

Goed dat het werkt nu.

Volgende keer gebruik ik de tags, excuus.

Je kan nog je eerdere bericht aanpassen. Is altijd handig voor andere bezoekers en lezers.

 

[Lou77]

Goed dat het werkt nu.



Je kan nog je eerdere bericht aanpassen. Is altijd handig voor andere bezoekers en lezers.

Geregeld.

 

[Boss82]

Beveiling blad opheffen

Hallo,

Macro toevoegen is gelukt in ThisWorkbook!

Ik krijg nu alleen elke keer als ik het werkblad open de popup met "Beveiliging Blad opheffen".
Als je op annuleren drukt werkt de groepering niet meer...

Bedankt voor jullie hulp!

 

[m@rio]

Graag zelf een topic openen aangezien het niet wenselijk is op Helpmij om je vraag in die van iemand anders te stellen.