Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
532to536
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
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Blattschutz mit Gruppierungsmöglichkeit

Blattschutz mit Gruppierungsmöglichkeit
13.12.2004 17:24:01
Stephan
Hallo!
Ich habe folgendes Makro (rufe ich über ein externes Sheet auf, ist also nicht im aktuellen Sheet, da dies an fremde Personen geht), damit alle Blätter geschützt sind und trotzdem die bestehende Gruppierung geöffnet & geschlossen werden. Die funktioniert auch beim ersten Mal, doch sobald ich das Excel schließe und wieder öffne funktioniert die Gruppierung nicht mehr!
Ich bitte euch ganz dringen um Unterstützung...
Vielen Dank & LG, Stephan

Sub Schuetzen()
For Each Blatt _
In ActiveWorkbook.Sheets
Blatt.Protect _
Password:="wdo", _
Contents:=True, _
UserInterfaceOnly:=True, _
DrawingObjects:=True, _
Scenarios:=True
ActiveSheet.EnableOutlining = True
ActiveSheet.EnableAutoFilter = True
Next
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Blattschutz mit Gruppierungsmöglichkeit
HerbertH
probiers so:
'in "Diese Arbeitsmappe"


Option Explicit
Private Sub Workbook_Open()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
  With Blatt
     .Protect Password:="", Contents:=True, _
      UserInterfaceOnly:=True, _
      DrawingObjects:=True, Scenarios:=True
     .EnableOutlining = True
     .EnableAutoFilter = True
  End With
Next
End Sub

     gruß Herbert
Anzeige
Hat funktioniert - vielen Dank!!
13.12.2004 18:14:08
Stephan

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige