Office: (Office 2013) Bestimmte Benutzer dürfen nur bestimmte Spalten sehen

Ich denke es sind 10 Benutzer - siehe deinen Eröffnungsbeitrag?...

Code:

Private Sub Workbook_Open()
    With Worksheets("Tabelle1") '<== Tabellenname anpassen
        .Columns("A").Hidden = True
        If Environ("Username") = "müller" Then .Columns("A").Hidden = False
    End With
End Sub

Bis später,
Karin

 

Sind es auch, die Benutzernamen kann ich ja beliebig erweitern. Dann kommt also dein anderer Code direkt darunter und das wars dann?

Gesendet von meinem LG-D802 mit Tapatalk

 

Andere doch nicht ständig deine Aufgabenstellung...

Wenn du 1 Spalte für 1 Benutzer ausblenden willst, dann reicht der letzte Code. Wenn es mehrere sein sollen, dann muss der aus dem vorhergehenden Beitrag nur entsprechend angepasst werden:

Code:

Private Sub Workbook_Open()
    Dim arrUsernamen()
    Dim varEinblenden As Variant
    arrUsernamen = Array("Benutzer1", "Benutzer2")  '<== hier alle Namen eintragen die Einsicht nehmen dürfen
    With Worksheets("Tabelle1") '<== Tabellenname anpassen
        .Columns("A").Hidden = True  '<== Spalte A wird für alle ausgeblendet
        ' prüfen ob Benutzername im Array steht
        varEinblenden = Application.Match(Environ("Username"), arrUsernamen(), 0)
        ' wenn Benutzername im Array steht wird Spalte A eingeblendet
        If IsNumeric(varEinblenden) Then .Columns("A").Hidden = False
    End With
End Sub

Übrigens: es dürfte doch nicht so schwer gewesen sein, "B" durch "A" zu ersetzen, zumal ich mir die Mühe gemacht hatte, entsprechende Kommentare in den Code zum besseren Verständnis einzutragen...

Bis später,
Karin