• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

in en uiklappen subtotalen werkt niet bij beveiligd werkblad

Status
Niet open voor verdere reacties.

Irma01

Nieuwe gebruiker
Lid geworden
7 jul 2010
Berichten
2
Ik heb een werkblad waar formules in staan en waarin gebruik wordt gemaakt van subtotalen.
Verschillende cellen mogen niet door gebruikers gemuteerd worden terwijl andere velden juist wel gemuteerd dienen te worden.
Deze cellen die niet gemuteerd mogen worden heb ik via celeigenschappen beveiligd.
Vervolgens de werkblad beveiliging aanzetten.

Maar zodra de werkblad beveiliging is aangezet werkt de inklapfunctionaliteit van de plusjes aan de linkerkant van het scherm, (1 voor alleen het totaal, 2 voor alleen het subtotaal en 3 voor alle details) ook niet meer. En die functionaliteit moet nu juist wel werken.

Weet iemand hoe je dit kunt instellen dat die functionaliteit wel werkt terwijl een aantal cellen toch beveiligd blijven?
 
Kun je een printscreen maken van je excel-blad.
Zo kunnen wij beter begrijpen wat je bedoelt.
 
Bekijk bijlage Book1.xlsx

in de bijlage een dummy bestand. De beveiliging is hier niet aangezet.
De groene velden moeten door gebruikers ingevuld alle witte velden moeten beveiligd zijn. wanneer de beveiliging is aangezet werkt de in en uit klap functie van de subtotalen niet meer.
 
Je kunt dit onder een button zetten en dan werkt het:

Sub test()
ActiveSheet.EnableOutlining = True
ActiveSheet.Protect contents:=True, userInterfaceOnly:=True
End Sub

Alleen moet je elke keer deze knop drukken als je de file opent. misschien kun je het ook automatisch laten uitvoeren (dat is niet mijn specialiteit, maar er is hier vast iemand die kan helpen.
 
Zet onderstaande in ThisWorkbook.
Bestand opslaan, sluiten en heropenen. Je werkblad is beveiligd maar je kan nog steeds gebruikmaken van je groeperingen
Code:
Private Sub Workbook_Open()
    With Sheets("Sheet1")
        .Protect contents:=True, userInterfaceOnly:=True
        .EnableOutlining = True
    End With
End Sub
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan