Hozzászólás: Jogosultságok kezelése

Szia!

A ThisWorkbook laphoz rendelj egy makrót, ami a füzet behívásakor automatikusan indul. Az első lap állandóan látható, a többiek lapja 2-től kezdődik.

Private Sub Workbook_Open()
    Dim lap As Integer, jelszo As String
    
    For lap = 2 To Sheets.Count 'lapok láthatóságának megszüntetése, védelme
        Sheets(lap).Protect Password:="SzuperTitkosJelszo"
        Sheets(lap).Visible = xlSheetVeryHidden
    Next
    
    'Jelszó bekérése
    jelszo = Application.InputBox("Kérem a jelszót", "Jelszó bekérése", , , , , , Type:=2)
    
    Select Case jelszo  'A jelszóhoz kötött munkalap meghatározása
        Case "jelszo_1": lap = 2
        Case "jelszo_2": lap = 3
        Case "jelszo_3": lap = 4
        Case "jelszo_4": lap = 5
        Case "jelszo_5": lap = 6
        Case "jelszo_6": lap = 7
        Case "jelszo_7": lap = 8
    End Select
    
    Sheets(lap).Visible = xlSheetVisible    'adott lap láthatóvá tétele
End Sub

Minden lap a „SzuperTitkosJelszo”-val van védve, amit átírhatsz. A Case utasításoknál írd át a jelszo_1-et és társait a valódi belépési jelszavakra. A számukat növelheted.