Hallo,

ich habe ein Problem mit "Private Sub Workbook_Open()"
Bei den meisten Kollegen funktioniert das einwandfrei. Der Username wird ausgelesen und die div. Tabellenblätter werden bei Bedarf verborgen.
Es gibt aber zwei/ drei Kollegen, da funktioniert das nicht. Und ich habe keine Ahnung warum. :(

Wenn ich z.B. Worksheets("Hilfsblatt").Range("B2") = Environ("UserName") mittels Makro ausführe, dann funktioniert das auch bei den "Problemkollegen". 

Makroeinstellungen sind bei allen Kollegen so wie bei mir.

Das wäre der Code:

Private Sub Workbook_Open()
Worksheets("Hilfsblatt").Range("B2") = Environ("UserName")
Worksheets("Auswertung").Select
Worksheets("Anleitung").Visible = xlVeryHidden
Worksheets("GF").Visible = xlVeryHidden
Worksheets("Tacho Daten").Visible = xlVeryHidden
Worksheets("ÜST-Status_GF").Visible = xlVeryHidden
Worksheets("ÜST-Status_Admin").Visible = xlVeryHidden
Worksheets("ÜST-Status").Visible = xlVeryHidden
Worksheets("AZ CSV Export").Visible = xlVeryHidden
Worksheets("Fehltageliste bis Ende Vormonat").Visible = xlVeryHidden
Worksheets("Hilfsblatt").Visible = xlVeryHidden
Worksheets("Resturlaub").Visible = xlVeryHidden
Worksheets("Admin").Visible = xlVeryHidden
End Sub

Ich wäre Euch allen WAHNSINNIG dankbar, wenn jemand eine Idee hätte woran das liegen könnte.

Danke schon mal im Voraus.

Grüße

Andreas