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

Blatt schützen mit Gliederung

Blatt schützen mit Gliederung
20.12.2004 12:41:59
Manuel
Hallo zusammen!
Vielleicht kann mir einer helfen? Ich habe folgendes Problem:
- ich möchte eine Arbeitsmappe! sichern
- die Gliederungsmöglichkeit soll erhalten bleiben
- ein Passwort soll notwendig sein (z. b. test) um den Schutz aufzuheben
- der Blattschutz soll so geladen werden
Ich habe folgenden Teil eines Makros schon:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableOutlining = True
ActiveSheet.Protect userinterfaceonly:=True
Schoneinmal Vielen dank
Manuel

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blatt schützen mit Gliederung
Ramses
Hallo
Das Blatt muss mit diesem Makro bereits geschützt werden

Sub Protect_my_Sheet()
ActiveSheet.Protect Password:="xxx"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableOutlining = True
ActiveSheet.Protect userinterfaceonly:=True
End Sub

Gruss Rainer
AW: Blatt schützen mit Gliederung
Manuel
schon einmal danke, bzgl. des Passwortes, aber
- wie wende ich das Makro auf alle Blätter an und
- wie startet es bei Dateiöffnung automatisch?
AW: Blatt schützen mit Gliederung
Ramses
Hallo

Sub Protect_my_Sheet()
Dim wks As Worksheet
For each wks in Thisworkbook.worksheets
With wks
.Protect Password:="xxx"
.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
.EnableOutlining = True
.Protect userinterfaceonly:=True
End With
Next
End Sub

Das Makro musst du nur einmal ausführen.
Die Einstellungen bleiben gespeichert.
Gruss Rainer
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige