kann mir bitte jemand helfen,
ist es auch möglich das Makro so zu ändern das der Nutzer nicht nur 1 sondern 2 bestimmte Arbeitsblätter abgezeigt bekommt?
Gruß René
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