Telefonszámunk: 1-472-0679

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

Kezdőlap Fórumok Excel programozás felhasználói csoportok cella láthatósága Hozzászólás: felhasználói csoportok cella láthatósága

#3707
delila
Felhasználó

    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.