Case Funktion + Environ
23.10.2020 12:13:46
Robin
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
und:
wie kann ich schrieben dass ein benutzer zb nur zugriff auf eine seite haben soll aber auf alle anderen nicht?
vielen dank schonmal
Anzeige