ich habe ein Makro mit dem User abhängig Tabellenblätter freigegeben werden.
Nun möchte ich erreichen das bei Neuanlage eine Users nicht im Makroeditor angepasst werden _ muss. Ist es möglich die Userkürzel in eine Tabelle einzutragen und dort für die Case Anweisung die Anmeldeküzel auszulesen da die Sekretärin kein VBA kann.
Private Sub Workbook_Open()
Dim Blatt As Worksheet
Dim strUser As Variant
'erst mal alle ausblenden
For Each Blatt In Sheets
If Blatt.Name "dummy" Then Blatt.Visible = xlSheetVeryHidden 'eins muss sichtbar sein
Next Blatt
strUser = LCase(Environ("USERNAME")) 'User in Kleinschreibung
Select Case strUser
Case "V1234", "V1235" 'Herr 1/ Herr2
Sheets("1").Visible = True
Sheets("Hr.1").Visible = xlSheetVisible
Sheets("Fr.2").Visible = xlSheetVisible
Sheets("Hr.3").Visible = xlSheetVisible
Sheets("Fr.4").Visible = xlSheetVisible
Sheets("1").Select
Case "V1236"
Sheets("Hr.1").Visible = True
Sheets("Hr.1").Select
Case "V1237"
Sheets("Fr.2").Visible = True
Sheets("Fr.2").Select
Case "V1238"
Sheets("Hr.3").Visible = True
Sheets("Hr.3").Select
Case "V1239"
Sheets("Fr.4".Visible = True
Sheets("Fr.4").Select
End Select
End Sub