Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pivot bis auf Seitenfelder sperren

Forumthread: Pivot bis auf Seitenfelder sperren

Pivot bis auf Seitenfelder sperren
22.04.2005 13:59:03
Oliver
Hallo,
hoffentlich kann mir jemand helfen:
Habe eine Pivot erstellt, auf die andere User zugreifen können. Deshalb soll das Layout (Anordnung der Felder) geschützt sein. Die User sollen jedoch in den SEITENFELDERN ihre individuelle Auswahl treffen können.
Nur die Datenfelder über den normalen Format-Zellschutz vor Änderungen zu schützen funktioniert bei mir nicht.
Habt Ihr eine andere Idee die funktioniert?
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Pivot - Feldschaltflächen Schutz: Scrollbereich
22.04.2005 15:02:14
Beate
Hallo Oliver,
angenommen, deine Seitenfelder liegen in Zeile 1 und 2, dann füge folgendes Makro ins Codefenster "dieseArbeitsmappe" ein; damit errichtest du einen Scrollbereich und die anderen Zeilen sind unberührbar und somit auch die dort liegenden Feldschaltflächen:

Private Sub Workbook_Open()
Sheets("Tabelle1").ScrollArea = "1:2"
End Sub

Den Tabellennamen und deine freigebenen Zeilen musst du anpassen. Das Makro wirkt sich erst nach Dateineustart aus.
Gruß,
Beate
Anzeige
AW: Pivot - Feldschaltflächen Schutz: Scrollbereich
22.04.2005 15:45:56
Oliver
Danke Beate,
hab's ausprobiert und Zeile 1 bis 4 gesperrt. Da ich die Pivot ohne die Daten speichere (siehe Tabellen-Option) werde ich aufgefordert ein Refresh durchzuführen, sobald ich ein Kriterium in einem Seitenfeld ändern will. Nach dem Refresh sind zwar alle normalen Zellen außer denen in Zeile 1 bis 4 gesperrt, jedoch ist die komplette Pivot-Tabelle modifizierbar (Layout wie auch Datenauswahl -- leider!). Noch 'ne andere Idee?
Anzeige
AW: Pivot - Feldschaltflächen Schutz: Scrollbereich
22.04.2005 15:46:45
Oliver
Danke Beate,
hab's ausprobiert und Zeile 1 bis 4 gesperrt. Da ich die Pivot ohne die Daten speichere (siehe Tabellen-Option) werde ich aufgefordert ein Refresh durchzuführen, sobald ich ein Kriterium in einem Seitenfeld ändern will. Nach dem Refresh sind zwar alle normalen Zellen außer denen in Zeile 1 bis 4 gesperrt, jedoch ist die komplette Pivot-Tabelle modifizierbar (Layout wie auch Datenauswahl -- leider!). Noch 'ne andere Idee?
Anzeige
AW: Pivot - Feldschaltflächen Schutz: Scrollbereich
22.04.2005 21:28:08
Beate
Hallo Oliver,
lösche den Code von vorhin und füge folgendes Makro ins Codefenster der Tabelle ein:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 4 Then
ActiveSheet.Protect AllowUsingPivotTables:=False
End If
If Target.Row < 5 Then
ActiveSheet.Protect AllowUsingPivotTables:=True
End If
End Sub

In beiden fällen wird Blattschutz gesetzt, ist man aber in Zeilen 1:4 wird das Benutzen der Seitenfelder zugelassen, ab Zeile 5 können die Feldschaltflächen nicht benutzt werden.
Die Sache hat aber noch einen Haken, den ich noch nicht lösen konnte:
Wechselt der User direkt von Zeile Umgekehrt, wechselt der User direkt von Zeile >4 ein Seitenfeld, klappt dieses nicht auf; es muss auch in diesem Bereich vorher eine Zelle aktiviert worden sein.
Gruß,
Beate
Anzeige
Pivot - Feldschaltflächen Schutz
22.04.2005 22:40:46
Beate
Hallo Oliver,
nun habe ich es über einen Umweg. Einerseits diesen Code eingebaut:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 2 Then
ActiveSheet.Protect AllowUsingPivotTables:=False
End If
If Target.Row < 3 Then
ActiveSheet.Protect AllowUsingPivotTables:=True
End If
End Sub

Das oben erwähnte Problem habe ich dadurch gelöst, dass ich ein transparentes *:gif über den Pivotbereich ab Zeile 3 gelegt habe. Da Objekte mitgeschützt sind, kommt man nicht mehr an die Feldschaltflächen dran. Natürlich ist das ein knackbarer Schutz, aber halt ein Schutz vor Fehlbedienung.
Beispieldatei:
https://www.herber.de/bbs/user/21578.xls
Gruß,
Beate
Anzeige
AW: Pivot - Feldschaltflächen Schutz
25.04.2005 16:26:11
Korl
Hallo Beate,
ich möchte mich wenigsten für Deine Mühe bedanken.
Dein Code funktioniert wunderbar und kommt mir im Moment auch sehr gelegen!
Gruß Korl aus Mecklenburg
AW: Pivot - Feldschaltflächen Schutz
26.04.2005 18:17:48
Beate
Hallo Korl,
freut mich; aber so wie ich inzwischen erfahren habe erst ab Excel 2002. Das als Nachtrag zum Beitrag.
Gruß,
Beate
Anzeige
Danke für den Tipp owT
26.04.2005 21:08:12
Korl
.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige