Office: (Office 2016) VBA - Zellen benutzerabhängig leeren/füllen

Hallo zusammen,

ich möchte gerne via Makro für die Urlaubsplanung für Benutzer1-5 die Einsicht auf
alles ermöglichen, während die anderen Benutzer in der Zeile 382-389 nur ihren
eigenen Urlaubsanspruch etc. sehen. Der Rest soll einfach leer bleiben.

Wie kann ich da am besten vorgehen?

Nachtrag:

Hallo, mein Gedanklicher Ansatz ist wie folgt:

If Current User = Benutzer 1-5 then Zelle(392:389) Format Standard else If Current User = E1 then Zelle (392:389) Format Standard else Zelle (E392:E389) Format Benutzerdefiniert ";;;"

Wäre das korrekt und wie setze ich das in VBA um?

Gruß

 

Hi,

Ich täte das nicht. Ich würde für jeden Anwender eine eigenen Datei bauen, diese mit PowerQuery in einer zentralen Datei zusammenfassen und dort die Genehmigung durch führen, um dann aus den Anwenderdateien ebenfalls mit PowerQuery die Genehmigungen zurücklesen. Dann hätte ich zumindest die Rechteverteilung auf Dateibasis.

Aber auch nur wenn mich jemand mit vorgehaltener Waffe dazu zwingt das Problem in Excel zu lösen, denn du wirst keine brauchbare Datensicherheit erreichen und schon gar nicht DSGVO konform werden.

Ich würde einfach 50 euro pro Jahr ausgeben und mir sowas wie den SL - Urlaubsplaner - Software zur Urlaubsverwaltung, Urlaubsplanung uvm besorgen und entspannt die Haftung verlagern.

Pan

 

Hi,

ich würde das so regeln, dass ich in Abhängigkeit vom Benutzer nur die Spalte eingeblendet lasse, in welcher in Zeile 1 sein Name steht - die anderen Spalten würde ich ausblenden.

Bis später,
Karin

 

Hi,

hier noch der betreffende Code, der ins Codemodul DieseArbeitsmappe gehört:

Code:

Private Sub Workbook_Open()
    Dim strBenutzer As String
    Dim rngName As Range
    strBenutzer = Environ("UserName")
    Application.ScreenUpdating = False
    Columns("E:BB").Hidden = True
    Select Case strBenutzer
        Case "Benutzer1", "Benutzer 2", "Benuter 3", "Benutzer 4", "Benutzer 5"
            Columns("E:BB").Hidden = False
        Case Else
            Set rngName = Rows(1).Find(strBenutzer, lookat:=xlWhole)
            If Not rngName Is Nothing Then
                rngName.EntireColumn.Hidden = False
            End If
    End Select
    Application.ScreenUpdating = True
End Sub

Du musst jedoch bedenken, dass die Makros aktiviert sein müssen, damit der Code auch ausgeführt wird.

---