Microsoft Excel

Herbers Excel/VBA-Archiv

Case Funktion + Environ

Betrifft: Case Funktion + Environ von: Robin
Geschrieben am: 23.10.2020 12:13:46

Hallo ich versuche für ein Arbeitsprojekt verschiedene Excelsheets einer Mappe nur für bestimmte Nutzer visible zu machen, das habe ich bisher: Excel 2013

Private Sub Workbook_Open()
Select Case Environ("username")

Case Is = "Tom"
Worksheets("blatt1").Visible = True
Worksheets("blatt2").Visible = xlVeryHidden

Case Is = "Max"
Worksheets("blatt2").Visible = True
Worksheets("blatt1").Visible = xlVeryHidden

Case Else
Worksheets("blatt1").Visible = xlVeryHidden
Worksheets("blatt2").Visible = xlVeryHidden

End Select

End Sub
wie kann ich denn zusammenfassend schreiben, dass zb ein Benutzer zugriff auf alle seiten haben soll?

und:
wie kann ich schrieben dass ein benutzer zb nur zugriff auf eine seite haben soll aber auf alle anderen nicht?

vielen dank schonmal

Betrifft: Crossposting
von: SF
Geschrieben am: 23.10.2020 12:46:04

https://www.clever-excel-forum.de/Thread-Case-Funktion-Environ

Beiträge aus dem Excel-Forum zum Thema "Case Funktion + Environ"