(de)groeperen op een beveiligd blad

[harrybrinkman]

Toppers,

Ik wil graag kunnen groeperen op een beveiligd blad, ik had, via dit forum, daar ook een prima code voor gevonden. Ik wil nu echter een stapje verder qua inlogbeheer en opeens werkt die code niet meer naar behoren. Wie van jullie knappe koppen kan/wil dit eens voor me bekijken. Ik heb een voorbeeldbestand bijgesloten. In het kort:

Tijdens het openen van het Bestand kijkt ie of de gebruikersnaam overeenkomt met een lijst op het werkblad "Extra" Als dat zo is dan opent ie in de admin-omgeving (geen restricties), als dat niet zo is dan moet ie de gebruikersomgeving openen. (in dit geval is er dan 1 werkblad diep verborgen, mogen alleen niet-geblokkeerde cellen worden bewerkt en zijn een aantal kolommen verborgen). Tijdens het afsluiten gaat het bestand altijd weer terug naar deze gebruikersomgeving (workbookBefore_close).
In de admin-omgeving werkt alles prima, maar logt iemand anders in, die dus niet voorkomt op de lijst met administrators, dan kan in de gebruikersomgeving niet gegroepeerd worden Dit terwijl ik wel de EnableOutlining op True hebt gezet.

Wat doe ik niet goed ?

Alvast bedankt voor de moeite,

Harry

 

[VenA]

je moet deze code in Private Sub Workbook_open zetten

For y = 1 To ActiveWorkbook.Sheets.Count
        With ActiveWorkbook.Sheets(y)
        .Protect Password:="Geheim", UserInterfaceOnly:=True
        .EnableOutlining = True
        End With
    Next y