Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
956to960
956to960
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autofilter trotz Blattschutz

Forumthread: Autofilter trotz Blattschutz

Autofilter trotz Blattschutz
28.02.2008 08:15:04
alex
Guten Morgen,
ich arbeite in meinem Arbeitsblatt mit diesem Makro (aufgezeichnet).

Sub sortierensch1()
' sortierensch1 Makro
ActiveSheet.Unprotect "Passwort"
Range("A7:P124").Select
Selection.Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A7").Select
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect "Passwort", userinterfaceonly:=True
End Sub


Weiterhin verwende ich Autofilter.
Wenn ich die Arbeitsmappe öffne, kann ich die Autofilter nicht verwenden, sondern erst wenn ich auf meine Schaltfläche klicke (sprich: das Makro ausführe) gehen die Autofilter.
Hab auch schon ausprobiert das Blatt per Hand zu schützen, mit der Einstellung "Autofilter verwenden".
Dann schließe ich die Datei mit speichern, rufe sie wieder auf, dann geht es von Anfang an, bis ich das Makro ausführe und wieder schließe und öffne, dann wieder nicht.
Wie kann man das machen, das die Autofilter auch so gleich funktionieren ohne vorher die Schaltfläche zu betätigen? Die Datei muss aber weiterhin geschützt sein.
Grüsse von
alex

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Autofilter trotz Blattschutz
28.02.2008 08:18:39
Frederic
Probiers mal mit folgendem:
in "diese Arbeitsmappe" mit
Option Explicit

Private Sub Workbook_open
...dein Code
End Sub


Gruß
Frederic

AW: Autofilter trotz Blattschutz
28.02.2008 08:28:28
alex
Moin Frederic,
Danke erstmal, haut hin.
Aber ich habe in dieser Arbeitsmappe zwei tabellenblätter, beim 1. klappts beim 2. noch nicht.
grüsse von
alex

Anzeige
AW: Autofilter trotz Blattschutz
28.02.2008 08:47:00
Frederic
Du musst natürlich alle sheets mit einbinden, Sprich "Diese Arbeitsmappe" müssen alle Tabellen drinstehen, die davon betroffen sein sollen.
Greetz.
Frederic

AW: Autofilter trotz Blattschutz
28.02.2008 09:19:00
alex
Frederic,
sorry aber ich bin VBA ziemlich unbeholfen.
Meinst du den Code der in "Diese Arbeitsmappe", wo ich innerhalb dieses Codes die sheets auftauchen lassen muss.
Wenn ja, wie müsste das dann aussehen mit 2 Tabellenblättern.
grüsse

Anzeige
AW: Autofilter trotz Blattschutz
28.02.2008 09:41:00
Frederic
post mal deine datei...
Frederic

AW: Autofilter trotz Blattschutz
28.02.2008 09:57:00
alex
Hi,
kann ich nicht wg Datenschutz (Webmaster blockt).
die Datei ist wie folgt aufgebaut:
in "Diese Arbeitsmappe" steht dein Makro drin
dann sind Tabelle5 (Schießen 1Hj) und Tabelle6 (Schießen 2Hj) noch anhängig mit Makro

Sub sortierensch1()
' sortierensch1 Makro
' Makro am 13.02.2008 von 4682232 aufgezeichnet
ActiveSheet.Unprotect "passwort"
Range("A7:P124").Select
Selection.Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A7").Select
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect "passwort", userinterfaceonly:=True
End Sub


und für tab6:


Sub sortierensch2()
' sortierensch1 Makro
' Makro am 13.02.2008 von 4682232 aufgezeichnet
ActiveSheet.Unprotect "passwort"
Range("A7:P124").Select
Selection.Sort Key1:=Range("A7"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A7").Select
ActiveSheet.Protect "passwort", userinterfaceonly:=True
ActiveSheet.EnableAutoFilter = True
End Sub


grüsse

Anzeige
AW: Autofilter trotz Blattschutz
29.02.2008 08:31:05
Frederic
Du kannst es auch so lösen:
In die jeweiligen Blätter folgenden Code mit einbauen:
ActiveSheet.Protect userinterfaceonly:=True
' im geschützten Blatt arbeiten
ActiveSheet.EnableAutoFilter = True
Sollte helfen.
Gruß
Frederic
;

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
Anzeige
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
Anzeige
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
Anzeige
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
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