Ich habe vor ein paar Tagen bereits schon einmal mei Problem geschildert und inzwischen erfolglos das Internet bzgl. der unheilvollen Funktion EnablePivotTable und der gleichzeitigen Verwendung von Blattschutz abgegrast.
Ich habe in einer Arbeitsmappe, in der ich mit Gruppierungen arbeite eine Blattschutz eingebaut. Der Anwender kann dennoch die Gruppierungsfunktion nutzen, indem er über einen Button folgendes Makro startet.
Private Sub Detail_Normal_Click()
Sheets("PLPM021").Protect UserInterfaceOnly:=True
Sheets("PLPM021").EnableOutlining = True ' Für Gliederung
End Sub
Nun möchte ich das ganze auch im Hinblick auf die Pivotfunktionalität freigeben. D.h. per Button muss der Anwender die Möglichkeit erhalten in einer Arbeitsmappe, die einen Blattschutz eingebaut hat, die Gruppierungsstufen der Pivottabelle zu öffnen und zu schliessen. Folgendes Makro funktioniert jedoch nicht. Was mache ich (respektive Excel) falsch?
Private Sub Detail_Pivot_Click()
Sheets("PLPM031").Protect userInterfaceOnly:=True
Sheets("PLPM031").EnablePivotTable = True
End Sub
Gruss
Hartmut