xlveryhidden Blatt für 2 User freischalten

Sub Arbeitsblaetter_einblenden()
Worksheets("Montag").Visible = xlSheetVisible
Worksheets("Dienstag").Visible = xlSheetVisible
Worksheets("Mittwoch").Visible = xlSheetVisible
Worksheets("Donnerstag").Visible = xlSheetVisible
Worksheets("Freitag").Visible = xlSheetVisible
Worksheets("start").Visible = xlSheetHidden
If Environ("username") = "user1;user2" Then 'user anpassen!
Worksheets("Protokoll").Visible = xlSheetVisible
End If
End Sub