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

Hilfe! - Worksheet Protection

Forumthread: Hilfe! - Worksheet Protection

Hilfe! - Worksheet Protection
12.03.2004 21:00:24
Charlie
Hallo liebes Forum!
Ich habe mich schon mal mit diesem Problem an Euch gewandt aber ich konnte es leider trotz der guten Hilfe von K.Rola nicht loesen.
Ich habe in einem Arbeitsblatt Reihen-Gruppierungen vorgenommen und dann das Arbeitsblatt mit einem Passwort geschuetzt - es kam was kommen musste - natuerlich ist jetzt nicht mehr moeglich die Gruppierungen zu "entfalten" (Klick auf + bzw. - Zeichen links neben den Zellen) ohne das Arbeitsblatt zu entsperren.
Das Arbeitsblatt ist aber fuer eine Arbeitsgruppe gedacht und es ist das Beste wenn sie nicht rumfummeln koennen (ausser in den freigeschalteten Zellen) :)
K.Rola hat mir das vorgeschlagen:

Sub Schutz()
With Sheets("Tabelle1")
.EnableSelection = xlUnlockedCells
.EnableOutlining = True
.Protect DrawingObjects:=True
.Protect Contents:=True
.Protect Scenarios:=True
.Protect password:="xxx"
End With
End Sub

Irgendwie funzt das aber nicht!
'---------------------------------
.EnableOutlining = True
'---------------------------------
Ist das wirklich diese Funktion?
Ich meine zB wenn ich Reihen 2-10 gruppiere, verschwinden diese und man sieht
nur noch Reihe 1 und dann kommt Reihe 11. Links daneben ist ein + Zeichen
und so kann ich diese Zellen ausklappen.
Stehe ich total auf dem Schlauch?
Hat jemand noch eine Idee?
DANKE! Ich baue auf Euch!
Beste Gruesse, Charlie
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Hilfe! - Worksheet Protection
12.03.2004 21:48:42
K.Rola
Hallo,
da fehlt eine Kleinigkeit:
Option Explicit

Sub Schutz()
With Sheets("Tabelle1")
.EnableSelection = xlUnlockedCells
.EnableOutlining = True
.Protect DrawingObjects:=True
.Protect Contents:=True
.Protect Scenarios:=True
.Protect Password:="xxx", userInterfaceOnly:=True
End With
End Sub

Gruß K.Rola
Anzeige
AW: Hilfe! - Worksheet Protection
12.03.2004 22:43:27
Charlie
ES FUNKTIONIERT!!
DANKE K.ROLA!
Aber wie kann ich das auf alle Arbeitsblaetter verwenden in einem Modul?
Echt klasse!
Danke nochmal
AW: Hilfe! - Worksheet Protection
12.03.2004 23:12:28
K.Rola
Hallo,
diese Art Schutz wird n i c h t gespeichert und muss jedesmal
z.B. beim Öffnen der Mappe explizit gesetzt werden.
Diesen Code in das Modul von "DieseArbeitsmappe":
Option Explicit

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
With ws
.EnableSelection = xlUnlockedCells
.EnableOutlining = True
.Protect DrawingObjects:=True
.Protect Contents:=True
.Protect Scenarios:=True
.Protect Password:="xxx", userInterfaceOnly:=True
End With
Next
End Sub

Gruß K.Rola
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige