Hallo,
ich habe ein Makro mit dem gewährleistet wird das Nutzer abhängig bestimmte Inhalte angezeigt werden.
Problem dabei ist aber, dass alle Nutzer die nicht in der Tabelle mit USER- ID stehen automatisch Vollzugriff haben. Habt ihr eine Idee wie man das Makro anpassen kann?
Gruß René
Dim strRechte1 As String, strRechte2 As String, wks As Worksheet
strRechte1 = WorksheetFunction.VLookup(LCase(Environ("Username")), _
Worksheets("Mitarbeiter").Range("A:C"), 2, 0)
strRechte2 = WorksheetFunction.VLookup(LCase(Environ("Username")), _
Worksheets("Mitarbeiter").Range("A:C"), 3, 0)
If strRechte1 "Superuser" Then Worksheets(strRechte1).Visible = True
For Each wks In ThisWorkbook.Worksheets
If strRechte1 = "Superuser" Or strRechte1 = wks.Name Or strRechte2 = wks.Name Then
wks.Visible = True
Else
wks.Visible = xlSheetVeryHidden
End If
Next wks
End Sub