Datenschnitt trotz Blattschutz
18.10.2019 12:05:03
Deima
mein nächstes Makro-Problem mit Bitte um eure großartige Unterstützung
Mein File hat folgendes Makro beim öffnen:
Private Sub Workbook_Open()
Dim objWorksheet As Worksheet
For Each objWorksheet In Worksheets
With objWorksheet
.Protect UserInterfaceOnly:=True, Password:="prognose"
.EnableOutlining = True
.EnableAutoFilter = True
End With
Next
End Sub
Auf 3 Arbeitsblättern gibt es Pivot mit Datenschnitten.
Die Datenschnitte selbst habe ich entsperrt und sie lassen sich anklicken.
Jedoch kommt beim anklicken die Fehlermeldung "PivotTable kann in schreibgeschützten Blatt nicht bearbeitet werden".
Ich möchte, dass die User die Pivot lediglich filtern können über die Datenschnitte und sonst alles andere gesperrt ist.
Das Aktualisieren der Pivots trotz Blattschutz habe ich mit einem ActiveX Steuerelement gelöst, _
welches funktioniert:
Private Sub RefreshPivot_Click()
Tabelle25.Unprotect "prognose"
Tabelle25.PivotTables("PivotYTD").PivotCache.Refresh
Tabelle25.Protect Password:="prognose", AllowFiltering:=True, AllowUsingPivotTables:=True
End Sub
Da ich keine Ahnung von Makros habe, brauche ich eure Hilfe.
Wie kann ich das Problem lösen, dass man die Datenschnitte trotz Blattschutz auch tatsächlich benutzen kann?
Danke euch und viele Grüße!
Deima