Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1248to1252
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
1248to1252
1248to1252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

trotz Schutz zellen einblenden und gliederung

trotz Schutz zellen einblenden und gliederung
Florian
Hallo,
ich habe folgendes Problem:
In meinem Sheet "Eingabe" wollte ich gern den Blattschutz anwenden und trotzdem die Gliederungsfunktion nutzen. Darum habe ich mit Hilfe der Suchfunktion hier im Forum diesen Code mir nun erlesen und erstellt:
Private Sub Workbook_Open()
With Sheets("Eingabe")
.Protect Contents:=True, userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub
Gliederung funktioniert super, nur gibts noch ein Problem!
Da ich viele Zeilen aus- und einblende, wenn z.b. eine ComboBox mit einem bestimmten Ergebnis ausgewählt wird, mekert der Debugger, dass das nicht möglich ist, weil das Blatt geschützt ist.
Bevor ich die Suche hier im Form nach "Gliederung + Blattschutz" begonnen hatte, stellte ich beim Blattschutz (manuell) immer ein: "Zeilen einfügen erlauben". Damit war das kein Problem, per ComboBox-Auswahl Zellen ein- oder auszublenden.
Nachdem ich aber nun den obigen Code wieder gelöscht hatte, lässt sich der Schutz nicht mehr aufheben (auch wenn ich ihn manuell aufhebe, kommt die Fehlermeldung, sobald eine ComboBox eine Zelle ein- ausblenden will, es sei ein Blattschutz vorhanden)!!!
!!! HILFE !!!
Wie bekomme ich jeglichen Schutz wieder raus (obwohl der Schutz laut Menü: "Überprüfen"->"Änderungen"->"Blatt schützen" nicht aktiv ist), bzw. wie bekomme ich es hin, dass das Sheet geschützt ist, aber trotzdem "Gliederungsfunktion" und "Zeilen einfügen" erlaubt ist?!?
Tausend Dank allen Helfern vorab!
Gruß, Flo
AW: trotz Schutz zellen einblenden und gliederung
13.02.2012 14:16:06
Florian
So... jetzt hab ich einen Code gefunden, mit dem ich zumindest den Schutz aufheben kann (obwohl, wie vorher schon beschrieben, kein Schutz aktiv ist!):
Sub Schutz_Entfernen()
For Each objWs In ThisWorkbook.Worksheets
objWs.UnProtect
Next
End Sub
Aber wie kriegt man "Zeilen einfügen erlauben" in den vorher genannten Code mit rein? 

Private Sub Workbook_Open()
With Sheets("Eingabe")
.Protect Contents:=True, userinterfaceonly:=True
.EnableOutlining = True
End With
End Sub
?
AW: trotz Schutz zellen einblenden und gliederung
13.02.2012 15:15:41
Oberschlumpf
Hi Florian
Was spricht denn dagegen, ...
... wenn du vor jedem Zeilen einfügen/löschen/aus-einblenden per VBA den Blattschutz de-aktivierst, und wenn Zeilenmanipulation erfolgt, dann per VBA den Blattschutz wieder aktivierst?
Es würde ja reichen, wenn du eine Sub schreibst, die einen Parameter erwartet. Mit dem Parameter "sagst" du dann dem Makro, ob de- oder aktiv.
Ciao
Thorsten
Anzeige
AW: trotz Schutz zellen einblenden und gliederung
13.02.2012 15:21:45
Florian
Hi Thorsten...
das ist richtig... ich hab das so auch schon einmal bei einer anderen Datei gemacht, um alle Leerzeilen auszublenden, bevor eine PDF erstellt wird.
Hab das mit so ner Art Dual-System gemacht und immer rechts neben die Felder 1 oder 0 per wenn-Formel gesetzt, damit dann VBA entsprechnd alle Zeilen mit 1 in Reihe X ausblendet...
Da könnte man in Kombination noch den Schutz jedes Mal weg und wieder hinzu nehmen..!
Ich dachte nur, es gibt einfach auch einen VBA Befehl für "Zeilen einfügen" oder "Zeilen formatieren" erlauben, wie in der manuellen Auswahl "Blatt schützen"?!
Das wäre bei so vielen Daten erheblich leichter und zeitlich nicht so intensiv!!!
Gruß°
Anzeige
AW: trotz Schutz zellen einblenden und gliederung
14.02.2012 09:11:50
fcs
Hallo Florian,
die verschiedenen Optionen, die manuell gesetzt werden können, kann man auch per Makro setzen.
Ein eingerichteter Autofilter oder eine eingerichtete Gliederung müssen aber zusätzlich aktiviert werden, was nur per Makro möglich ist.
Gruß
Franz
Beispiel: 
Sub Blattschutz_Ein()
Dim wks As Worksheet
Set wks = ActiveSheet
wks.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True _
, AllowFormattingRows:=True, AllowInsertingRows:=True, AllowSorting:=False _
, AllowFiltering:=True, userinterfaceonly:=True
wks.EnableOutlining = True
wks.EnableAutoFilter = True
End Sub
Sub Blattschutz_Aus()
Dim wks As Worksheet
Set wks = ActiveSheet
wks.Unprotect
End Sub

Anzeige
AW: trotz Schutz zellen einblenden und gliederung
14.02.2012 09:14:50
Florian
Super Franz, das war genau das, wonach ich gesucht habe!!!
Also kann ich für das Gruppieren "EnableOutlining = True" verwenden, und für Zeilen einfügen "AllowInsertingRows:=True" ... sehr gut!
Besten Dank und viele Grüße, Florian
AW: trotz Schutz zellen einblenden und gliederung
14.02.2012 11:31:40
Florian
Noch eine Frage:
Wie kann ich das ganze noch mit einem Password versehen?
Wenn ich meine Datei mit folgendem Code öffne, reicht nur ein Klick auf "Blattschutz aufheben" und es kommt keine Passwortabfrage:
Private Sub Workbook_Open()
With Sheets("Eingabe")
.Protect Password:=123, UserInterfaceOnly:=True
.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFormattingRows:=True,  _
AllowInsertingRows:=True
.EnableOutlining = True
End With
With Sheets("Vollkosten")
.Protect Password:=123, UserInterfaceOnly:=True
.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFormattingRows:=True,  _
AllowInsertingRows:=True
.EnableOutlining = True
.Rows("1:393").EntireRow.Hidden = False
End With
With Sheets("Vollkosten (nur fix)")
.Protect Password:=123, UserInterfaceOnly:=True
.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFormattingRows:=True,  _
AllowInsertingRows:=True
.EnableOutlining = True
.Rows("1:393").EntireRow.Hidden = False
End With
With Sheets("Grenzkosten")
.Protect Password:=123, UserInterfaceOnly:=True
.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFormattingRows:=True,  _
AllowInsertingRows:=True
.EnableOutlining = True
.Rows("1:250").EntireRow.Hidden = False
End With
With Sheets("Preiszusammenstellung 1")
.Protect Password:=123, UserInterfaceOnly:=True
.Protect DrawingObjects:=False, Contents:=True, Scenarios:=True, AllowFormattingRows:=True,  _
AllowInsertingRows:=True
.EnableOutlining = True
.Rows("1:102").EntireRow.Hidden = False
End With
End Sub

Anzeige
AW: trotz Schutz zellen einblenden und gliederung
14.02.2012 22:42:54
Detlef
Hallo Florian,
ergänze:
wks.Protect Password:=123,
Gruß Detlef
AW: trotz Schutz zellen einblenden und gliederung
15.02.2012 08:51:30
Florian
Hallo Detlef,
vielen Dank für den Tipp, jedoch kommt jetzt die Fehlermeldung "Objekt erforderlich"...?!
Gruß, Florian
AW: trotz Schutz zellen einblenden und gliederung
15.02.2012 11:12:53
Detlef
Hallo Florian,
so muß es aussehen.
Sub Blattschutz_Ein()
Dim wks As Worksheet
Set wks = ActiveSheet
wks.Protect Password:=123, DrawingObjects:=False, Contents:=True, Scenarios:=True _
, AllowFormattingRows:=True, AllowInsertingRows:=True, AllowSorting:=False _
, AllowFiltering:=True, userinterfaceonly:=True
wks.EnableOutlining = True
wks.EnableAutoFilter = True
End Sub


Sub Blattschutz_Aus()
Dim wks As Worksheet
Set wks = ActiveSheet
wks.Unprotect Password:=123
End Sub

Gruß Detlef
Anzeige
AW: trotz Schutz zellen einblenden und gliederung
15.02.2012 11:13:53
Florian
Danke Detlef, probier es dann gleich mal aus! Gruß, Florian

301 Forumthreads zu ähnlichen Themen

An Zellengröße anpassen in Verbundenen Zellen
Kai

Hallo
Ich habe folgendes Problem.
Ich habe die Zellen D12-G23 verbunden.
Darin soll ein längerer Text stehen, welcher mit sverweis geholt wird.
Wenn ich die Zelle mit Zeilenumbruch formatiere, dann ist der Text zu lang (unten fehlt was).
Wenn ich den Text mit "An Zellengröße...
18.08.2008 17:09:00
Thread-ID: 1002694
3 Beiträge
Anzeige
Script um auf jeden Blatt eine Zelle zu markieren
Eddie

Hallo, ich habe eine eigentlich ganz einfache sache, aber irgendwie ruft wohl eher das WE in meinen Kopf :-)
Ich will eigentlich nur ein kleinen VBA Code ... der in jeden vorhandenen Tabellenblatt die Zelle A1 markiert
Vielleicht kann mir jemand da etwas sagen ?
gruß Eddie
22.08.2008 15:11:53
Thread-ID: 1003910
15 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Anzeige
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Zelle mit heutigem Datum finden
Steffi

Hallo liebe Spezialisten,
hier im Forum hat man mir den unten stehenden Code gezeigt um im Bereich "F:F" die Zelle mit dem heutigen Datum zu finden. Das klappt soweit auch prima :-)
Wenn das Datum jedoch per Formel wie z.B. =HEUTE() erzeugt wurde, funktioniert der Code nicht.
Könnt...
05.09.2008 11:46:00
Thread-ID: 1007634
12 Beiträge
Bild in UserForm dynamisch aus Internet laden
Ben

hallo,
ich möchte in folgender Codezeile ein Bild aus dem Internet laden, statt von der Festplatte.
Wenn ich jedoch einfach C:\... durch eine "http" Resource ersetze bekomme ich eine Fehlermeldung.
UserForm.DYNAMISCH_PIC.Picture = LoadPicture("C:\temp\bild.jpg")
Weiss jemand w...
05.09.2008 12:55:00
Thread-ID: 1007652
2 Beiträge
gleich Zellen finden
Johannes

Hallo Excel-Kenner,
mein Sohn hatte gerade in der Schule bei der Bruchrechnung die Aufgabe vier verschiedene Brüche in aufsteigender Folge zu sortieren. Klarer Fall "kleinstes gemeinsames Vielfache" suchen und entsprechend erweitern und dann vergleichen.....
Aber für die Nenner mit 35,...
15.09.2008 15:29:00
Thread-ID: 1009809
3 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox

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
2
7
14
9
2
5
5
11
1
2
4
5
4
2
2
1
8
7
9
3
3
6
15
2
5