Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.09.2025 15:31:23
Listbox durchsuchen die über list array befüllt wurde
28.09.2025 15:25:50
Excel Zufall Dienstplan
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
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
1812to1816
1812to1816
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gruppierung und Filter trotz Blattschutz

Forumthread: Gruppierung und Filter trotz Blattschutz

Gruppierung und Filter trotz Blattschutz
10.02.2021 11:12:07
Martin
Hallo zusammen,
ich habe folgendes Problem. Ich habe eine Datei, in welcher in Daten auswerte. Diese Daten (oder vielmehr gesamte Tabellenblätter) möchte ich gerne in eine andere Datei zur Archivierung kopieren und dann mit einem Blattschutz versehen. Das Kopieren funktioniert auch soweit.
Lieder kann ich nach dem Aktivieren des Blattschutzes die Gruppierungen und Filter nicht mehr benutzen. Hier im Forum bin ich auf diese Lösung von Beate Schmitz gestoßen:
Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True, Password:="Passwort"
ActiveSheet.EnableOutlining = True     'für Gliederung
ActiveSheet.EnableAutoFilter = True    'für Autofilter
End Sub
Da ich ja zwei verschiedene Workbooks offen habe, wende ich es folgendermaßen an:
'Blattschutz setzen
Workbooks(WBarchiv).Activate
'Blatt "Daten"
Workbooks(WBarchiv).Worksheets(Daten).Activate
ActiveSheet.Protect UserInterfaceOnly:=True, Password:=Passwort
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
Leider funktioniert es nicht. Was mache ich falsch?
Vielen Dank und viele Grüße
Martin
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gruppierung und Filter trotz Blattschutz
10.02.2021 11:17:34
MRUTOR
Hi Martin,
ich denke, der Workbook und Worksheet Name gehoert in "", wenn das nicht Variablen sind, also: 
Workbooks("WBarchiv").Worksheets("Daten").Activate
Gruss Tor
AW: Gruppierung und Filter trotz Blattschutz
10.02.2021 11:19:18
Martin
nein, das sind Variablen...das Makro läuft durch, aber am Ende funktioniert die Gruppierung und der Filter nicht (Blattschutz ist aktiviert).
Anzeige
AW: Gruppierung und Filter trotz Blattschutz
10.02.2021 13:48:27
Yal
Moin, Martin,
mein Makro-Recorder sagt:
ActiveSheet.Protect _
DrawingObjects:=True, _
Contents:=True, _
Scenarios:=True, _
AllowSorting:=True, _
AllowFiltering:=True, _
AllowUsingPivotTables:=True
Das scheint die einzige "Berichtigungen", die man trotz einem Blattschutz erteilen kann.
(im VB-Editor einmal auf Protect klicken und Strg+F1 dann gelangst Du zur Online-Hilfe von protect)
Viel Erfolg
Yal
Anzeige
AW: Gruppierung und Filter trotz Blattschutz
11.02.2021 09:39:44
Martin
Hallo zusammen,
ich habe nun mal eine Testdatei erstellt.
https://www.herber.de/bbs/user/143812.xlsm
Interssanter Weise lassen sich die Gruppierungen auf- und zuklappen und der Filter auswählen, sobald man den Blattschutz in der geöffneten Datei aktiviert.
Speichert, schließt und öffnet man diese Datei allerdings wieder, so kann man die Gruppierungen nicht mehr auf- und zuklappen und den Filter nicht mehr einstellen.
Hat jemand eine Idee woran das liegt?
Vielen Dank und viele Grüße
Martin
Anzeige
AW: Gruppierung und Filter trotz Blattschutz
12.02.2021 12:33:12
Martin
Hat niemand eine Idee?
AW: Gruppierung und Filter trotz Blattschutz
15.02.2021 08:05:14
Martin
Guten morgen und einen guten Start in die neue Woche.
Falls jemand eine Idee hat, würde ich mich freuen.
Viele Grüße
Martin
;

Forumthreads zu verwandten Themen

einzelne Zellen nicht schützen, wie?
dietmar

Hallo,
ich möchte bei einem EXCEL-Formular, dass man nur einzelne Zellen befüllen kann und der Rest des Formulars gesperrt ist. Die auszufüllenden Zellen (z.B. Name, Adresse, usw.) sollten durch Tab angewählt werden können. Zur Zeit kann ich nur einzelne Zellen sperren aber nicht umgekehrt?...
05.04.2009 22:41:32
Thread-ID: 1066974
6 Beiträge
einzelne Zellen mit Formeln sperren
natka

Hallo Ihr Lieben Excel Begeisterte,
hättet Ihr bitte eine Tipp für mich, wie ich einzelne Zellen in einenm Tabellenblatt im Excel für Dritte sperren kann. Sie sollen zwar das Ergebnis seheh, aber nicht anklicken können. Damit meine tole Formel keinen Schaden nimmt.
Danke
natka
15.05.2009 14:20:56
Thread-ID: 1075486
4 Beiträge
einzelne Zellen sperren
meixner

Hallo zusammen,
gibt es die Möglichkeit per VBa - Makro einzelne Zellen zu sperren, damit andere Leute diese Zellen in Excel nicht verändern können? z.B. Zelle A1 bis A8 darf nicht verändert werden und solldeswegen gesperrt werden.
Vielen Dank für Tips.
Dani
16.06.2010 12:31:33
Thread-ID: 1162166
3 Beiträge
Spalte gegen Löschen schützen ohne Blattschutz
Franz

Guten Abend.
Wer könnte mir da weiter helfen in diesem Code-Schnipsel? Sub SpalteGegenLoeschenSperren() 'anstelle von.... 'If Selection.Columns.Count ..... Then Application.OnKey "{del}", "" MsgBox ("Diese Spalte sollte nicht gelsöcht werden!") End If End Sub
Die Absicht: möchte ohne B...
18.10.2010 01:07:31
Thread-ID: 1182840
7 Beiträge
Makroprob. Filter/geschütztes Blatt/Formatänderung
juergen

Hallo an Alle,
Erst mal möchte ich mich vorstellen, ich bin 45 Jahre und u. a. gelernter Netzwerksachbearbeiter, die Prüfung habe ich vor 15 Jahren abgelegt! Im Jahre 1991 habe ich Programmieren gelernt, damals gab es noch "Multiplan". Mit Excel habe ich vor ca. 20 Jahren meine Erfahrungen...
23.02.2011 20:57:56
Thread-ID: 1202652
9 Beiträge
Filter ermöglichen trotz Blattschutz
Ralf

Hallo Excel-Experten,
ich habe (s.Level :-) ) einen Schutz aufgezeichnet
und anschließend in einen Button kopiert und das
ganze funktioniert auch ganz prima.
Nun möchte ich aber in der Excel-Tabelle nicht nur:
gesperrte Zellen auswählen und
nichtgesperrte Zelle auswähle...
25.06.2013 12:25:37
Thread-ID: 1319584
4 Beiträge
Autofilter trotz Blattschutz
Kathrin

Hallo Zusammen,
ich habe ein dringendes Problem und finde keine Lösung.
Ich verwende eine Datei mit vielen Tabellenblättern. Es wird eine Umsatz-Planungsvorlage die an viele Mitarbeiter versendet wird.
Über folgendes Makro setzte ich den Blattschutz: Sub passwortrein() 'für alle Blä...
02.09.2013 11:14:04
Thread-ID: 1329167
5 Beiträge
Filter geht nicht :-(
Marcy

Hallo zusammen,
ich nutze sehr viel die Filter.
Hat jemand eine Idee, warum ich in meiner immer größer werdenden Datei Problme mi dem Filter bekomme?
Der Filter ist sichtbar, aber es zeigt keine Auswahlmöglichkeit an.
Ist mir völlig unverständlich.
Blattschutz ist nicht gese...
04.06.2014 14:09:22
Thread-ID: 1364591
4 Beiträge
Anzeige
Blattschutz trotz Gruppierung und Autofilter
Julia
Hallo zusammen,
ich habe schon das nächste Problem..
https://www.herber.de/bbs/user/96045.xlsm
In der obigen Datei möchte ich gerne einen Blattschutz aktivieren. Trotzdem sollen aber andere Mitarbeiter die Gruppierung noch öffnen können.
Durch die Suche im Internet habe ich gesehen...
27.02.2015 16:08:40
Thread-ID: 1411928
9 Beiträge
Autofilter und Gruppierung trotz Blattschutz
Hoette

Hallo,
Ich suche für folgende Fragestellung eine Lösung:
Dateien, die ich zur Datenerfassung an mehrere Personen versende, sollen über einen Blattschutz _
verfügen, trotzdem muß der Autofilter und auch die Gruppierungsfunktion möglich sein. Da ich _
das Password nicht in der z...
16.03.2016 11:20:36
Thread-ID: 1482307
4 Beiträge
Autofilter trotz Blattschutz
Markus

Liebes Forum,
wie muss ich den folgenden Code ergänzen, damit der Autofilter in der 1.Zeile der Zieltabelle, trotz Blattschutz, funktioniert? Habe es mit
- ActiveSheet.Protect userinterfaceonly:=True
- ActiveSheet.EnableAutoFilter = True
probiert, jedoch ohne Erfolg.
Opti...
04.07.2016 16:00:58
Thread-ID: 1502482
4 Beiträge
Autofilter setzen trotz Blattschutz
Patrick

Hallo zusammen,
habe folgendes Makro: Public Sub Zeile_mit_Datum4() unprotectSheets Dim wsQuelle As Worksheet Dim wsZiel As Worksheet Dim letzteQuelle As Long Dim letzteZiel As Long Dim vorhanden As Boolean Dim x As Long vorhanden = False Set wsQuelle = Sheets("Action List Long Term Range"...
10.10.2016 18:23:58
Thread-ID: 1518979
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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