Groeperen in een beveilgd tabblad

[john64]

Goedemorgen,

Ik heb een beveiligd tabblad waarin de gebruikers sommige cellen wel en andere cellen niet kunnen bewerken. Sommige kolommen heb ik gegroepeerd.
Als ik de beveiliging op het tabblad zet dan werkt de (de)groepeer functie niet meer.
Ik heb op internet al rondgekeken en daar de volgende code gevonden. Deze code is geplaatst in ThisWorkbook

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

maar dit geeft niet het gewenste resultaat. Krijg nog steeds de meldingdat ik beveiliging van tabblad af moet halen.

Is hier een oplossing voor ?
Ik heb Excel 2010

mvg
John

 

[john64]

Iemand een idee ?

mvg
John

 

[VenA]

De code werkt dus daar ligt het niet aan. Kan je het bestandje even plaatsen?

 

[ExcelAmateur]

Heb je het bestandje eerst gesloten, na het plaatsen van de code?
Daarna weer openen, dan zou het moeten werken.

 

[john64]

In bijlage een testje voor het groeperen in een beveiligd tabblad
Het tabblad is beveiligd maar er zit geen wachtwoord op

 

[VenA]

Je hebt de code niet in de module van Thisworkbook staan maar in de module van Blad1 en "Blad1" bestaat niet maar heet "Test groeperen".

 

[john64]

het leven kan soms zo simpel zijn

Bedankt voor terugkoppeling, dit werkt

mvg
John

 

[john64]

Nog aanvullende vraag:
is er ook een code beschikbaar om in een beveiligd tabblad zoals in voorbeeld bijlage, te sorteren ?
Ik krijg hier, ondanks dat ik sorteren en autofilter aanzet, een melding dat ik eerst beveiliging moet uitzetten

 

[ExcelAmateur]

Kijk hier maar even.
http://www.helpmij.nl/forum/showthread.php/900225-sortern-op-beveiligd-werkblad?highlight=Sorteren+beveiligd+blad

 

[ExcelAmateur]

Deze code heb ik ook gevonden.

Private Sub WorkbookOpen()
    Sheets("Naam van je blad").Protect 
    UserInterfaceOnly:=True
End Sub