Telefonszámunk: 1-472-0679

Kezdőlap Fórumok Excel témák Jogosultságok kezelése Hozzászólás: Jogosultságok kezelése

#5814

delila
Felhasználó

A makró végét átírtam. A jelszo_1 és jelszó_2 résznél a Select Case utasításban látod, mit kell átírnod.
Az End Sub fölötti sort megszüntettem, mert az egyes Case utasításoknál láthatóvá tettem a lapokat.

    Else  'A jelszóhoz kötött munkalap meghatározása
        Select Case jelszo
            Case "jelszo_1"
                Sheets(2).Visible = xlSheetVisible
                Sheets(5).Visible = xlSheetVisible
            Case "jelszo_2"
                Sheets(3).Visible = xlSheetVisible
                Sheets(4).Visible = xlSheetVisible
                Sheets(6).Visible = xlSheetVisible
            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
    End If
End Sub