Rijen in/uitklappen mbv subtotalen in een beveiligd werkblad

Question

Hallo,

In Excel heb ik in één werkblad een overzicht/tabel gemaakt waarin reisafstanden vermeld kunnen worden. Omdat de ene maand de lijst langer is dan de andere maand heb ik onder de eerste "pagina" een tweede gemaakt die ik kan in- en uitklappen m.b.v. een plusje in de linkerkantlijn. Dit heb ik bereik m.b.v. Data-Subtotalen.

Omdat er op het werkblad ook formules staan en vaste bedragen wil ik het werkblad beveiligen.

Maar als het werkblad beveiligd is, kan m.b.v. het plusje de pagina niet meer opengeklapt worden.

Weet iemand hoe ik dit toch voor elkaar kan krijgen zonder dat er macro's gebruikt hoeven te worden?

mvg,

Henk.

Answer 1

Voor zover ik weet is VBA code de enige manier om dit te doen: maak een Workbook_Open gebeurtenisprocedure in de module ThisWorkbook.

Private Sub Workbook_Open()

    With Worksheets("Blad1")

       .Protect Password:="Geheim", UserInterfaceOnly:=True

       .EnableOutlining = True

    End With

End Sub

waar Blad1 de naam van het werkblad is en "Geheim" het wachtwoord om de beveiliging van het blad op te heffen.

Answer 2

Hallo Hans,

Dankjewel voor je antwoord.

De macro werkt prima.

Ik had gehoopt op een oplossing zonder macro's omdat niet alle gebruikers van het formulier bekend zijn met macro's en de waarschuwingen die getoond worden niet goed lezen maar het lijkt erop dat het zonder macro's niet kan.

mvg,

Henk.