VBA Benutzer definierter Zugriff vorgebe

Guten morgen zusammen,
ich habe vor zwei Tagen schon mal meine Frage gestellt und wurde darauf hingewiesen die Frage prezisiert zu stellen. Ich möchte das nur bestimmte Nutzer die Excel Datei öffnen dürfen. Wenn ein Benutzer mit rechten die Datei öffnet darf dieser nur ein bestimmtes Tabellenblatt sehen. Bei dem Tabellenblatt gibt es eine Tabelle und ein Pivotchart diagramm. In der Tabelle stehen in einer Spalte alle Usernamen. Im Pivotchart stehen auch die Usernamen in einem Datenschnitt. Wenn der Benutzer die Datei öffnet sollen also nur die Daten des einen Benutzers in der Tabelle und im Pivot Chart angezeigt werden. Alle anderen User Informationen sollen nicht auswählbar sein außer für einen User dem definierten Admin der darf alles sehen.
Ich habe schon mal eine Beispielmappe erstellt und versucht das Problem in VBA zu lösen. Bis jetzt schaffe ich es nur die Tabelle nach dem Namen zu Filtern nicht aber den Datenschnitt. Und ich weiß leider nicht wie ich den Filter und Datenschnitt nach dem vorfiltern für den Benutzer sperren kann. Es wäre super wenn mir hier jemand helfen könnte
https://www.herber.de/bbs/user/139772.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Danke für deine Hilfe Herbert an so was habe ich gar nicht gedacht. Das könnte bestimmt auch funktionieren man müsste dann nur noch die Auswahl der anderen User sperren.
Ich habe es jetzt alles mit einem Makro gelöst und es scheint auch zu funktionieren:

Option Explicit
Public UserRechte As String
Private Sub Workbook_open()
UserRechte = Application.UserName
Select Case UserRechte
Case "Tanja", "Tom", "Simon"
With Sheets("Uebersicht")
.AutoFilterMode = False
.Range("B2:H2").AutoFilter
.Range("B2:H2").AutoFilter Field:=1, Criteria1:=UserRechte, VisibleDropDown:= _
False
End With
With ActiveWorkbook.SlicerCaches("Datenschnitt_aa")
.SlicerItems("Tanja").Selected = False
.SlicerItems("Tom").Selected = False
.SlicerItems("Simon").Selected = False
.SlicerItems(UserRechte).Selected = True
.Slicers(1).Width = 0
End With
Case "Admin"
With Sheets("Uebersicht")
If .FilterMode Then
.ShowAllData
.Range("B2:H2").AutoFilter Field:=1, VisibleDropDown:=True
End If
End With
With ActiveWorkbook.SlicerCaches("Datenschnitt_aa")
.ClearManualFilter
.Slicers(1).Width = 150
End With
Case Else
Workbooks(ActiveWorkbook.Name).Close SaveChanges:=False
End Select
Application.Goto Reference:=Sheets("Uebersicht").Range("A1")
End Sub

Grüße
SüßerApfel

Beliebteste Forumthreads (12 Monate)

VBA Benutzer definierter Zugriff vorgebe

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Benutzer definierter Zugriff vorgebe

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread