Hozzászólás: felhasználói csoportok cella láthatósága

Több dolog ismeretlen. Vegyük, hogy 1 lap bizonyos sorait, oszlopait láthatják a különböző felhasználók a saját gépükön. Ilyenkor a username ismeretére van szükség.

A lapon elrejted a sorokat és oszlopokat. Csak az maradjon látható, amit 1 bizonyos felhasználó láthat. Nézet menü, Munkafüzetnézetek, Egyéni nézetek, Hozzáadás. Nevet adsz a nézetnek. Ezt pl. Kiss Jóska láthatja.
Nagy Piroskához újabb nézetet adsz meg az fenti minta szerint. A saját nevedhez legyen minden látható.
Mikor minden nézetet bevittél, levéded a lapot.

A ThisWorkbook-ba beírod a makrót.

Private Sub Workbook_Open()
    Dim nev As String, csoport As String
    
    Sheets(1).Select
    ActiveSheet.Unprotect Password:="Jelszó"
    nev = Environ("username")
    Select Case nev
    Case "Kiss Jóska"
        csoport = "Csoport_1"
    Case "Nagy Piroska"
        csoport = "Csoport_2"
    Case "Saját nevem"
        csoport = "Mind"
    End Select
    ActiveWorkbook.CustomViews(csoport).Show
    ActiveSheet.Protect Password:="Jelszó"
End Sub

Szerk: ez megint nagyon csúf lett, pedig a makrót a code kiválasztása után másoltam be. Hogy lehet úgy írni, hogy a tagolás megmaradjon?

• A hozzászólás módosításra került: 7 years, 3 months telt el-delila.
• A hozzászólás módosításra került: 7 years, 3 months telt el-horvimi.