Groeperen in beveiligd werkblad

[Riccodekroon]

Hallo,

Ik wil graag blijven groeperen in een beveiligd werkblad met behoud van gemaakte keuzes wat gebruikers wel en niet mogen doen in het betreffende werkblad.

Zag her en der wel vba oplossingen maar dan 'overschrijft' hij de gemaakte keuzes van de aangevinkte boxjes bij het beveiligen van het werkblad.

Iemand een idee hoe ik dit voor elkaar kan krijgen?

Bestand is beveiligd zonder wachtwoord

(Excel 2013)
Bekijk bijlage Test bestand.xlsx
Groet,
Ricco

 

[OctaFish]

Zet vooral een voorbeeld bestandje in je draadje, dat werkt een stuk makkelijker.

 

[HSV]

Zet onderstaande code in Thisworkbook, en sla het bestand op als macrobestand.

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

Na sluiten en heropenen zal het voor je moeten werken.

 

[Riccodekroon]

Oplossing werkt niet helemaal

Dank Harry,

Maar het is niet helemaal zoals ik het bedoel. Ik wil namelijk dat anderen behalve kunnen groeperen (zeg maar uit- en inklappen ook kolommen kunnen verbreden). Met jouw oplossing kan dat niet meer...

 

[HSV]

Beter?

Private Sub Workbook_Open()
 With Sheets("Blad1")
   .Protect , , , , 1, 1, 1, 1
   .EnableOutlining = True
 End With
End Sub