pivottabelle im geschützten Blatt aktualisieren (Programmierung / Office/Excel)


	Online-Kurs: Grundlagen des 3D-Druck-Designs für Industrieingenieure , ein Kurs Meldungen abonnieren
Autor	Thema: pivottabelle im geschützten Blatt aktualisieren (5092 mal gelesen)
stolti Mitglied technischer zeichner Beiträge: 373 Registriert: 05.09.2007 auto_cad 2008 athena 2008 DELL Precision PWS390 Intel Core2 CPU 6600 2gb RAM 2.40 GHz Office 2003	erstellt am: 20. Jan. 2009 12:18 <-- editieren / zitieren --> Unities abgeben: hallo, ich hab da ein kleine Problem: ich möchte in einem geschützten Blatt die Pivottabelle aktualisieren... hab mich in netz informiert... ich möchte über vba den schutz aufheben, die tabelle updaten und das blatt wieder schützen... Private Sub Pivot() Me.Unprotect Password:="" Me.PivotTables("XXX").PivotCache.Refresh Me.Protect Password:="" End Sub das problem ist ja jetzt, dass ich mehrere blätter habe und ich frage mich, wie geb ich dem blatt an, dass es die eine pivottabelle in dem blatt nimmt? danke stolti Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Thomas Harmening Moderator Arbeiter ツ Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht	erstellt am: 20. Jan. 2009 13:03 <-- editieren / zitieren --> Unities abgeben: Nur für stolti mache es doch so: Hier als bsp. in direkt in der Tabelle Code: Private Sub Worksheet_Activate() ActiveSheet.Protect UserInterfaceOnly:=True 'Lässt auch Macros zu ActiveSheet.PivotTables("Frliste").RefreshTable 'namen an deine Pivot anpassen End Sub Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
stolti Mitglied technischer zeichner Beiträge: 373 Registriert: 05.09.2007 auto_cad 2008 athena 2008 DELL Precision PWS390 Intel Core2 CPU 6600 2gb RAM 2.40 GHz Office 2003	erstellt am: 20. Jan. 2009 13:13 <-- editieren / zitieren --> Unities abgeben: danke. =) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)