Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Gruppierung bei aktivem Schutz

Gruppierung bei aktivem Schutz
31.01.2022 10:01:07
Andrea
Hallo,
ich habe mehrere Tabellenblätter, in denen ich bestimmte Bereiche (bei Bedarf) sperre und wieder entsperre.
Gleichzeitig werden in allen TB aktive Zeilen farbig unterlegt. Dies habe ich Dank eurer Hilfe vor einigen Tagen gelöst bekommen.
Nun dazu meine zwei Probleme:
a) In den TB A1-A3 (tatsächlich sind es 25 TB) habe ich Gruppierungen. Diese kann ich nach Aktivieren des Schutzes nicht mehr aus- bzw. einblenden.
b) Die farbige Unerlegung der aktiven Zeile bringt bei aktivem Schutz eine Fehlermeldung.
Gibt es für die beiden Probleme Lösungen?
Wenn ja - wie können die aussehen?
Ich danke für eure Hilfe
Andrea
https://www.herber.de/bbs/user/150783.xlsm
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gruppierung bei aktivem Schutz
31.01.2022 11:34:00
Luschi
Hallo Andrea,
warum googelst Du nicht, mit - excel blattschutz gruppierung - bringen doch gleich die 1. beiden und viele weitere Links die Lösung:
https://www.pctipp.ch/praxis/office/excel-blattschutz-verhindert-aufklappen-einer-gruppierung-1907100.html
https://www.hanseatic-business-school.com/2019/05/17/excel-39-gruppieren-trotz-blattschutz/
Gruß von Luschi
aus klein-Paris
Anzeige
AW: Gruppierung bei aktivem Schutz
31.01.2022 11:47:56
Andrea
Hallo Luschi,
zunächst Danke für die Hinweise.
Ich habe den Code bei 'Diese Arbeitsmappe' eingefügt. Dann funktioniert es mit dem Tabellenblatt A1. Bei A2 gibt es einen 'Anwendungs- oder objektdefinierter Fehler'.
Oder kann es mit dem farbigen Zeilenhintergrund zusammen hängen.
Da kommt dann ein Fehler zu 'Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)' .... Cells.Interior.ColorIndex = 0.
Da komme ich nun nicht weiter. Gibt es noch einen weiteren Hinweis, den ich beachten soll?
Danke
Andrea
Anzeige
AW: Gruppierung bei aktivem Schutz
31.01.2022 13:20:04
Nepumuk
Hallo,
in das Modul "DieseArbeitsmappe":

Private Sub Workbook_Open()
Dim objWorksheet As Worksheet
For Each objWorksheet In Worksheets
With objWorksheet
Select Case .Name
Case "Gesamt"
'mach nix
Case Else
.Protect Password:="Test", UserInterfaceOnly:=True
.EnableOutlining = True
End Select
End With
Next
End Sub
Gruß
Nepumuk
Anzeige
AW: Gruppierung bei aktivem Schutz
31.01.2022 14:10:12
Andrea
Hallo Nepumuk,
vielen Dank, funktioniert mit dem Schutz.
Liebe Grüße
Andrea
AW: Gruppierung bei aktivem Schutz
31.01.2022 14:17:21
Andrea
Hallo Nepumuk,
vielen Dank, funktioniert mit dem Schutz.
Liebe Grüße
Andrea
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Gruppierung bei aktivem Schutz in Excel


Schritt-für-Schritt-Anleitung

Um die Excel Gruppierung trotz Blattschutz zu ermöglichen, kannst du folgende Schritte ausführen:

  1. Öffne dein Excel-Dokument und gehe zu dem Tabellenblatt, das du schützen möchtest.
  2. Aktiviere den Entwicklermodus: Gehe zu „Datei“ > „Optionen“ > „Menüband anpassen“ und aktiviere die Entwicklertools.
  3. Füge den VBA-Code hinzu:
    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
    • Doppelklicke auf „DieseArbeitsmappe“ und füge den folgenden Code ein:
      Private Sub Workbook_Open()
      Dim objWorksheet As Worksheet
      For Each objWorksheet In Worksheets
         With objWorksheet
             Select Case .Name
                 Case "Gesamt"
                     'mach nix
                 Case Else
                     .Protect Password:="Test", UserInterfaceOnly:=True
                     .EnableOutlining = True
             End Select
         End With
      Next
      End Sub
  4. Schließe den VBA-Editor und speichere die Arbeitsmappe als „Excel-Makro-aktivierte Arbeitsmappe“ (.xlsm).
  5. Teste die Gruppierung: Aktiviere den Blattschutz und versuche, die Gruppen ein- oder auszublenden.

Häufige Fehler und Lösungen

Fehler 1: „Anwendungs- oder objektdefinierter Fehler“

  • Überprüfe, ob der Code korrekt eingefügt wurde. Manchmal können kleine Tippfehler zu Problemen führen.

Fehler 2: Probleme mit farbigen Zeilenhintergründen

  • Stelle sicher, dass der Code zur farblichen Unterlegung der Zeilen korrekt ist. Es kann sein, dass dieser in Konflikt mit dem Blattschutz steht. Überprüfe den betreffenden Codeabschnitt.

Lösung: Wenn du die gruppierung trotz blattschutz nutzen möchtest, solltest du zunächst den Code für die farbige Unterlegung entfernen oder anpassen, um Konflikte zu vermeiden.


Alternative Methoden

Es gibt auch Methoden, um Excel Tabs zu gruppieren, ohne dass du VBA verwenden musst. Hier eine einfache Methode:

  1. Rechtsklick auf das Tabellenblatt und wähle „Blatt schützen“.
  2. Aktiviere die Option „Formatieren von Zellen“ und „Formatieren von Zeilen und Spalten“.
  3. Diese Optionen erlauben dir, die Gruppen manuell zu verwalten, auch wenn der Blattschutz aktiv ist.

Praktische Beispiele

  1. Gruppierung von Zeilen farblich: Wenn du Zeilen farblich gruppieren willst, kannst du dies manuell tun, bevor du den Blattschutz aktivierst. Nutze die bedingte Formatierung, um aktive Zeilen hervorzuheben.

  2. Gruppierung auf mehreren Blättern: Wenn du mehrere Blätter gleichzeitig schützen möchtest, kannst du den obigen VBA-Code erweitern, um alle gewünschten Blätter zu berücksichtigen.


Tipps für Profis

  • Sichere deine Makros: Stelle sicher, dass du deine Makros regelmäßig sicherst, um Datenverluste zu vermeiden.
  • Verwende Passwörter sicher: Verwende komplexe Passwörter für die Blattschutzfunktion, um unbefugten Zugriff zu verhindern.
  • Teste immer in einer Kopie: Bevor du Änderungen an deinem Hauptdokument vornimmst, teste immer in einer Kopie, um unerwartete Fehler zu vermeiden.

FAQ: Häufige Fragen

1. Kann ich Gruppierungen bei aktiviertem Blattschutz verwenden? Ja, mit dem richtigen VBA-Code kannst du Excel Blattschutz Gruppierung erlauben.

2. Was ist der Unterschied zwischen „UserInterfaceOnly“ und „Standard-Schutz“? „UserInterfaceOnly“ erlaubt es Makros, Änderungen vorzunehmen, während Benutzer weiterhin durch den Blattschutz eingeschränkt sind.

3. Funktioniert diese Methode in allen Excel-Versionen? Die beschriebene Methode funktioniert in den meisten modernen Excel-Versionen, einschließlich Excel 2010 und neuer.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige