Userfreigabe für bestimmte Inhalte

Private Sub Workbook_Open()
Dim strRechte As String, wks As Worksheet
strRechte = WorksheetFunction.VLookup(LCase(Environ("Username")), _
Worksheets("Mitarbeiter").Range("A:B"), 2, 0)
If strRechte  "Superuser" Then Worksheets(strRechte).Visible = True
For Each wks In ThisWorkbook.Worksheets
If strRechte = "Superuser" Or strRechte = wks.Name Then
wks.Visible = True
Else
wks.Visible = xlSheetVeryHidden
End If
Next wks
Application.DisplayAlerts = False
If Not ActiveWorkbook.MultiUserEditing Then
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, _
accessMode:=xlShared
Application.DisplayAlerts = True
End If
End Sub