xlveryhidden Blatt für 2 User freischalten
16.01.2017 21:16:26
Armando
ich hab einen Deckblatt und möchte eine Schaltfläche rein stellen und folgenden Makro ausführen:
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
Das Blatt "Protokoll" soll lediglich für 2 User genutzt werden und wenn ich nur einen User habe, funktioniert aber bei 2 geht dann nichts.Was mache ich falsch? :(