Reiter ausblenden bei öffnen
Claudia
derzeit nutze ich folgenden Code, um nur bestimmten Personen die Sicht auf zwei Reiter zu gewähren. Ich weiß, Excel ist nicht sicher....
Private Sub Workbook_Open()
Application.ScreenUpdating = False
If anwender = "Claudia" Or anwender = "frank" Then
Sheets(1).Visible = xlSheetVisible
Sheets(2).Visible = xlSheetVisible
Sheets(1).Select
Else
Sheets(1).Visible = xlSheetVeryHidden
Sheets(2).Visible = xlSheetVeryHidden
End If
ActiveWindow.Zoom = 100
Application.WindowState = xlMaximized
Application.ScreenUpdating = True
End Sub
Function anwender()
Application.Volatile
anwender = Environ("username")
End Function
Nun würde ich aber gerne die Prüfung auf die Personen aus dem Code auslagern.
Die Namen sollen im sheets(1) im Bereich AB2:Ab10 stehen.
Wie muss ich den Code dann anpassen, damit das klappt?
Vielen Dank!
Liebe Grüße
Claudia
Anzeige