Passwort vor oder nach Filter in Pivot
15.10.2018 11:24:30
Mathias
ich habe eine Pivottabelle mit einem Filter für Platzbelegungen und den Elementen Anzahl, Dauer in h etc.
Jetzt soll sich der Platzverantwortliche seinen Datenausschnitt ansehen können.
Z.B. Verantwortlicher für Platz 1, filtert nach Platz 1.
Er soll aber alle anderen Daten, wie Platz 2 etc. nicht sehen können.
Gibt es eine Möglichkeit im untenstehenden Code ein Passwort bei Aufruf eines Filters einzufügen? Ist das Passwort falsch, springt der Code auf ein anderes Tabellenblatt ist der Code richtig sieht er seine Daten.
Geht so etwas? Wenn ja, wie könnte so ein Code aussehen?
Danke und viele Grüße
Mathias
Sub PW-Filter()
ThisWorkbook.Activate
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Blatt1")
Dim p As PivotTable: Set p = Ws.PivotTables("PivotTable1")
Dim f As PivotField: Set f = p.PivotFields("Platz")
Dim strPfad As String, strDatei As String
'Platzfilter
With f
For Each i In .PivotItems
Select Case i.Name
Case Is = "", "1"
i.Visible = True
Case Else
i.Visible = False
End Select
Next
End With
End Sub