Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1412to1416
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1412to1416
1412to1416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Autofilter bei Blattschutz zulassen bei VBA

Autofilter bei Blattschutz zulassen bei VBA
12.03.2015 17:18:11
Matthias
Hallo,
ich kann per Button den Blattschutz erstellen und aufheben.
Ich habe nur das Problem, dass durch den Blattschutz der Autofilter nicht mehr funktioniert.
Ich komme hier nicht weiter.
Nachfolgend mein Code 
Sub BlattSchutz()
On Error Resume Next
If ActiveSheet.ProtectContents = False Then GoTo Fehler
ActiveSheet.Unprotect
Exit Sub
Fehler:
ActiveSheet.Protect "sperl"
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Autofilter bei Blattschutz zulassen bei VBA
12.03.2015 17:26:00
Klexy 

ActiveSheet.Protect "Blabla"
ActiveSheet.EnableAutoFilter = True 'bis Excel 97
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True ' ab Excel 2003

AW: Autofilter bei Blattschutz zulassen bei VBA
12.03.2015 17:26:36
Matthias
Hallo
ActiveSheet.Protect "sperl", AllowFiltering:=True
Gruß Matthias

AW: Autofilter bei Blattschutz zulassen bei VBA
12.03.2015 17:29:31
Luschi
Hallo Matthias,
mein aufgezeichnetes Makro mir Autofilterfunktion sieht so aus: 

Sub Makro1()
' Makro1 Makro
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End Sub
Gruß von Luschi
aus klein-Paris
Anzeige

33 Forumthreads zu ähnlichen Themen

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
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
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
Anzeige
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
Gliederung und Autofilter trotz Blattschutz
Sandra

Hallo Ex(cel)perten,
ich habe folgendes Makro in meiner Datei Sub Workbook_Open_protect() Dim i As Long For i = 1 To Worksheets.Count Sheets(i).Protect userinterfaceonly:=True, Password:="geheim" Sheets(i).EnableOutlining = True Sheets(i).EnableAutoFilter = True Next i End Sub
bisher...
12.01.2018 10:58:44
Thread-ID: 1601818
3 Beiträge
Autofilter trotz Blattschutz
PeTeR

Hallo zusammen,kann ich einen Blattschutz einrichten (Extras - Schutz: Blatt schützen), so dass Autofilter trotzdem möglich ist? Ich glaube schon einmal ein entsprechendes Makro gesehen zu haben.Vielen Dank für eure HilfePeTeR
15.10.2002 18:07:05
Thread-ID: 169627
3 Beiträge
Autofilter trotz Blattschutz
Kirsten

Hi Leute!Einen hab ich noch für heute. In meinem Tabellenblatt habe ich den Autofilter aktiviert. Leider funktioniert der nicht, wenn das Blatt geschützt ist. Muss es aber sein, damit andere User mit das Ding nicht durcheinanderhauen. Habe fleissig im Archiv gesucht und folgendes Makro zu meine...
30.10.2002 17:32:51
Thread-ID: 175537
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
3
4
8
3
3
5
2
2
4
4
4
2
4
3
6
2
2
4
1
3
4
9
3
6