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

Blatt schützen mit Gliederung

Forumthread: 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
Anzeige

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
Anzeige
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)

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