Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
456to460
456to460
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Outlines in geschützter Arbeitsmappe

Forumthread: Outlines in geschützter Arbeitsmappe

Outlines in geschützter Arbeitsmappe
21.07.2004 13:51:40
der
Hallo!
Ist es möglich Gruppierungen (Outlines) in einen geschützten Sheet zu benutzen. also gruppierungen öffnen & schließen?
Wenn ja wie?
danke danke danke!
der alex
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Outlines in geschützter Arbeitsmappe
21.07.2004 14:05:23
der
dort wird aber dieses problem leider nicht gelöst.. :o(
Anzeige
AW: Outlines in geschützter Arbeitsmappe
Torsten
Hallo Alex,
probier dies hier:

Private Sub Workbook_Open()
'Makro bewirkt, daß die Gliederungsfunktionen in
'dem WS trotz des Blattschutzes genutzt werden können
With Worksheets("Tabelle1")
.Protect password:="Dein Password", UserInterfaceOnly:=True
.EnableOutlining = True
End With
End Sub

Einzufügen in "Diese Arbeitsmappe"
Gruß
Torsten
Anzeige
AW: Outlines in geschützter Arbeitsmappe
Ulf
Option Explicit

Private Sub Workbook_Open()
With Sheets("Tabelle1")
.Unprotect Password:="xxx"
.EnableOutlining = True
.EnableAutoFilter = True
.Protect Contents:=True, UserInterfaceOnly:=True, Password:="xxx"
End With
End Sub

Ulf
AW: Outlines in geschützter Arbeitsmappe-prob.
der
Hallo.
Danke, es funktioniert. Gibt es eine möglichkeit wie is das automatishc für alle vorhandenen worksheets aktivieren kann?
danke, der alex
Anzeige
AW: Outlines in geschützter Arbeitsmappe-prob.
Ulf 

Private Sub Workbook_Open()
Dim Ws As Worksheet
For Each Ws In Worksheets
With Ws
.Unprotect Password:="xxx"
.EnableOutlining = True
.EnableAutoFilter = True
.Protect Contents:=True, UserInterfaceOnly:=True, Password:="xxx"
End With
Next
End Sub

Ulf
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige