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