Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1164to1168
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
1164to1168
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gruppierung trotz Blattschutz

Gruppierung trotz Blattschutz
Micha
Hallo Excel - Gemeinde,
habe ein für euch altes und sicher leicht lösbares Problem:
In folgendes Makro:
ActiveSheet.Protect Password:="xy0", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True, AllowInsertingHyperlinks:=True
Sheets("xy").Select
ActiveSheet.Protect Password:="xy0", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True, AllowFiltering:=True
Sheets("xy1").Select
ActiveSheet.Protect Password:="xy0", DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("xy2").Select
ActiveSheet.Protect Password:="xy0", DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("xy3").Select
ActiveSheet.Protect Password:="xy0", DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("xy4").Select
ActiveSheet.Protect Password:="xy0", DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("xy5").Select
ActiveSheet.Protect Password:="xy0", DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("xy6").Select
End Sub
habe ich versucht die Anweisung "EnableOutlining = True" irgendwie in Kombination mit userinterface einzubauen - bin aber leider unfähig.
Kann mir eine/r von Euch helfen?
Vielen Dank vorab!
Micha

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

Betreff
Benutzer
Anzeige
AW: Gruppierung trotz Blattschutz
08.07.2010 15:13:16
Hajo_Zi
Hallo Micha,
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
Hinweise zu select usw.

Anzeige
AW: Gruppierung trotz Blattschutz
08.07.2010 15:23:18
Micha
Hallo Hajo,
genau diesen von Dir genannten Code habe ich ja versuch einzubauen, nachdem ich ihn hier gefunden hatte.
Das mit dem Autofilter hat auch funktioniert - siehe
ActiveSheet.Protect Password:="xy0", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True, AllowFiltering:=True
wenn ich jedoch hier jetzt noch EnableOutlining = True anhänge kommt eine Fehlermeldung.
Ferner hab ich auch keinen Plan, wo ich das Protect UserInterfaceOnly:=True einbaue.
Wie gesagt meine VBA Kenntnisse begrenzen sich aufs Aufzeichenen.
Gruß Micha
Anzeige
AW: Gruppierung trotz Blattschutz
08.07.2010 15:29:50
Hajo_Zi
Hallo Micha,
was meinst Du mit anhängen? es st eine neue Zeile wie in meinem Beispiel auch.
Gruß Hajo
AW: Gruppierung trotz Blattschutz
08.07.2010 16:18:55
Micha
Hallo Hajo,
habe Deinen Code in einer neuen Zeile unter den folgenden Teile des bereits bestehenden Code geschrieben.
ActiveSheet.Protect Password:="xy0", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True, AllowFiltering:=True
Jedoch muss ich das Makro im VBA - Editor nach dem Öffnen der Datei über den "blauen Pfeil nach rechts" zuerst ausführen bevor das ganze funktioniert.
Fällt Dir hierzu auch noch etwas ein?
Gruß Micha
Anzeige
AW: Gruppierung trotz Blattschutz
08.07.2010 16:32:18
Hajo_Zi
Hallo Micha,
in meinem Vorschlag war es unter Open, das wird automatisch beim öffnen ausgeführt. Da der Code unter DieseArbeitsmappe ist.
Gruß Hajo
Was stimmt jetzt nicht?
09.07.2010 07:13:46
Micha
Guten Morgen Hajo,
kaum macht man es richtig, funktioniert es auch!
Aber leider kann ich mit u.s. Code keine Zeilen und Hyperlinks einfügen.
Was müsste ich hierfür ändern?
ub Workbook_Open()
ActiveSheet.Protect Password:="aaa", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True, AllowInsertingHyperlinks:=True
Sheets("xy").Select
ActiveSheet.Protect Password:="aaa", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True, AllowFiltering:=True
Sheets("xy").Protect UserInterfaceOnly:=True, Password:="aaa"
Sheets("xy").EnableOutlining = True ' Für Gliederung
Sheets(xy").EnableAutoFilter = True ' Für AutoFilter
Sheets("xy").Select
ActiveSheet.Protect Password:="aaa", DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("xy").Select
ActiveSheet.Protect Password:="3", DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("xy").Select
ActiveSheet.Protect Password:="aaa", DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("xy").Select
ActiveSheet.Protect Password:="aaa", DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("xy").Select
ActiveSheet.Protect Password:="aaa", DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("xy").Select
End Sub
Danke Gruß Micha
Anzeige
AW: Was stimmt jetzt nicht?
09.07.2010 07:19:47
Hajo_Zi
Hallo Micha,
das geht nicht über Code. Das mußt Du beim Schutz einstellen.
Gruß Hajo
AW: Was stimmt jetzt nicht?
09.07.2010 07:25:08
Micha
Hallo Hajo,
das habe ich getan. Allerdings sind die Häckchen nach dem Öffnen der Datei wieder verschwunden und die Optionen stehen nicht zur Verfügung.

166 Forumthreads zu ähnlichen Themen

Gruppierung trotz Blattschutz
Jürgen

Hallo Leute,
habe hier schon kräftig gestöbert und eigentlich soweit die Lösung zu meinem Problem gefunden.
Ich möchte die Gruppierungsfunktion und die Auto-Filter-Funktion nutzen, auch wenn das Blatt
geschützt ist. Hierzu verwende ich folgenden Code:
Private Sub Workbook_open...
13.08.2008 10:55:00
Thread-ID: 1001434
5 Beiträge
Anzeige
Gruppierung trotz Blattschutz Passwort unbekannt
Matthias

Hallo,
habe aufgrund des Office-Wechsels von Excel 2000 auf Excel 2003 folgendes Problem:
Ausgangssituation ist ein geschütztes Arbeitsblatt mit dem Anwender unbekannten Passwort. Dieses Blatt besitzt Autofilter und Gruppierungen.
In Excel 2000 habe ich Autofilter und Gruppierung je...
11.12.2008 10:28:00
Thread-ID: 1031959
5 Beiträge
Gruppierung trotz Blattschutz
Monti

Hallo,
ich habe einen Makro in den VBA gesetzt (im Internet gefunden), damit ich in meiner gesperrten Arbeitsmappe trotzdem die Gruppierungssfunktion nutzen kann:
Sub Workbook_Open() ActiveSheet.Protect userinterfaceonly:=True, Password:="Passwort" ActiveSheet.EnableOutlining = True...
07.06.2009 22:42:37
Thread-ID: 1079768
3 Beiträge
Anzeige
Gruppierung bei Blattschutz
Michael

Hallo xl-Gemeinde,
ich habe folgende Lösung hier im Forum gefunden:
Sub Workbook_Open() Dim WsTabelle As Worksheet For Each WsTabelle In Sheets WsTabelle.Protect UserInterfaceOnly:=True, Password:="Mein Passwort" WsTabelle.EnableOutlining = True 'für Gliederung 'WsTabelle.EnableAutoFilt...
25.11.2010 09:46:54
Thread-ID: 1188694
3 Beiträge
Gruppierungen bei Blattschutz aufklappen
Andi T.
Hallo zusammen,
ich stehe vor einem Rätsel.
Folgendes zur Funktionsweise des VBA-Projektes:
Es besteht eine Arbeitsmappe mit mehreren Tabellen, in denen Daten eingetragen sind. Die Ausführung des betreffenden Makros, erstellt zuerst eines neues Tabellenblatt. In diesem Tabellenblatt wer...
02.07.2014 17:18:02
Thread-ID: 1368687
5 Beiträge
Gruppierung trotz Blattschutz
Jessica

Guten Morgen,
ich möchte mit folgendem Code erreichen, dass ich den Autofilter und die Gruppierungen trotz Blattschutz benutzen kann. Das funktioniert auch allerdings nur in dem Blatt welches aktiv war als ich das letzte mal gespeichert und geschlossen habe, ich möchte aber das es in jedem...
11.02.2015 07:52:13
Thread-ID: 1408562
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
Keine Berechnung bei Blattschutz ohne VBA
Martina

Hallo,
mein Problem wurde schon viel beschrieben, aber es gab immer eine VBA-Lösung.
Geht das denn nicht auch ohne VBA?
Mein Problem: ich habe eine Tabelle mit geschützten Spalten. Diese enthalten Formeln, die ich nicht versauen lassen will. Setze ich den Blattschutz, dann wird die...
02.08.2015 00:24:23
Thread-ID: 1439844
7 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
4
1
4
2
3
2
4
3
8
6
3
1
2
1
1
1
4
6
3
1
10
6
4
4
1