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?
