Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1084to1088
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
Inhaltsverzeichnis

Gruppierung mit Blattschutz

Gruppierung mit Blattschutz
Lacoste
Hallo zusammen
für ein Bestellblatt mussten wir etwas in die Trickkiste greifen und wollten nun auch eine Gruppierung einpflegen. Die Funktion ist allerdings mit Blattschutz nicht vorhanden.
Hier das Grundgerüst vom Macros:
Sheets("Fleisch - Viande - Carne").Unprotect Password:="fischer"
Sheets("Fleisch - Viande - Carne").Select
Selection.AutoFilter Field:=1
Sheets("Fleisch - Viande - Carne").Protect Password:="fischer", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True

nun habe ich zwar die Option gefunden:

Sub BlattSchutz()
Tabelle1.EnableOutlining = True
Tabelle1.Protect userinterfaceonly:=True
End Sub


beim enableoutlining = true kommt aber immer ein Fehler, könnte ggf. mir jemand in meinem Macros zeigen wo es hin müsste? ich spekuliere damit das ich bei der Platzierung einen Fehler gemacht habe.
Danke und Gruss

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Gruppierung mit Blattschutz
29.06.2009 09:49:17
Hajo_Zi
Hallo Lacoste,
Autofilterfunktion, Gruppierung bei Blattschutz möglich?
Diese Frage wurde in diesem Forum auch schon gestellt. Die Lösung damals:
Das funktioniert normalerweise nicht. Du kannst Excel aber austricksen.
Bevor Du auf Blattschützen stellst, blendest Du die Filter ein.
Dann schützt Du das Blatt
Jetzt folgendes Makro in VBA unter DieseArbeitsmappe

Sub Workbook_Open()
Sheets("Adresse").Protect UserInterfaceOnly:=True, Password:="Passwort"
Sheets("Adresse").EnableOutlining = True ' Für Gliederung
Sheets("Adresse").EnableAutoFilter = True ' Für AutoFilter
End Sub


‘ Datei schließen und wieder öffnen

Anzeige
AW: Gruppierung mit Blattschutz
29.06.2009 10:21:29
Lacoste
Grüss dich Hajo_Zi
hat so wunderbar geklappt danke :-)
Sheets("Fleisch - Viande - Carne").Protect UserInterfaceOnly:=True, Password:="fischer", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
Sheets("Fleisch - Viande - Carne").EnableOutlining = True

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige