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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige