Office: (Office 2007) Gruppieren trotz Blattschutz

Hallo zusammen,

bekomme es einfach nicht hin.
Hab eine Arbeitsmappe mit versch. Arbeitsblättern.
Ein Teil der Arbeitsplätter hab ich Gruppiert.
Wenn ich jetzt die Blätter mit Blattschutz(mit Kennwort)versehe funzt die Gruppierung nicht mehr.

Möchte das ein Benutzer trotz Blattschutz auf allen Arbeitsblättern Gruppieren kann wie er möchte.
Habst mit

Code:

Sub Workbook_Open()
Dim ws As Worksheet
For Each ws in Worksheets
ws.Protect userinterfaceonly:= True
ws.EnableOutlining = True 'für Gliederung
Next ws
End Sub

versucht, doch es funktioniert nicht.

Könnt Ihr mir bitte helfen.

Danke und cu.

:)

 

Hallo t_bern,

Du musst das Passwort mitgeben

Code:

Gruss Peter9

 

Hallo,

ich glaub ich bin zu doof dafür. *frown.gif*

Es geht net.
Hab meine Arbeitsmappe geöffnet.
1. Gehe in Virsual Basic
2. Diese Arbeitsmappe
3. Sub Workbook_Open()

ActiveSheet.Protect password:="mein Passwort" Contents:=True, UserInterfaceOnly:=True

ActiveSheet.EnableOutlining = True

End Sub
4. Speichern

Es geht immer noch net. (selbe Fehlermeldung)
Was mach ich falsch ?

Bitte um Hilfe

 

Hallo t_bern,

Da fehlt wohl das "Private" for der Sub

hier noch ein Beispiel

Code:

Gruss Peter9

 

Hallo,

wo muss ich hier das Passwort setzen ?

Danke und cu.

Sorry, hab keinen Ahnung von VBA

 

Hallo,

Passwort ist erstmal egal,

hier mal dein Beispiel ohne Passwort


Code:

oder mit Passwort

Code:

Oder ohne Passwort

Code:

oder wieder mit Passwort

Code:

es gehen Alle Codes

Gruss Peter9

 

Hallo Peter
Sorry wenn ich dich noch mal nerven muss.

ich muss etwas grundlegend falsch machen.
hab alles probiert und es funktioniert einfach nicht.

Blattschutz ist raus !!! gruppierungen habe ich gesetzt.

jetzt gehe ich in vba und gehe auf gesamte arbeitsmappe.
nun der cod

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
ActiveSheet.Protect Password:="test", UserInterfaceOnly:=True
ws.Protect UserInterfaceOnly:=True
ws.EnableOutlining = True 'für Gliederung
Next ws
End Sub

Ferig! Speichern
Blattschutz rein, Arbeitsmappe speichern und neu öffnen.

Jetzt fragt er mich nach dem Blattschutz !! *entsetzt

Ich versteh nichts mehr.
Kannst Du bitte noch mal ?

wenn ich im das passwort gebe (was ich ja nicht möchte) wird folgender zeile gelb markiert

ws.Protect UserInterfaceOnly:=True

 

Hallo t_bern, hallo Peter9,

möglicherweise liegt hier auch ein Mißverständnis vor. Das erste Makro von dir, t_bern funktioniert bei mir problemlos. Damit kannst du es dem Benutzer aber nur ermöglichen, bereits bestehende Gruppierungen zu verwenden, d.h. zwischen den Gliederungsebenen hin und her zu schalten. Du kannst es dem Benutzer dagegen nicht ermöglichen, Gruppierungen neu anzulegen oder aufzulösen. Das läßt sich bei geschützten Blättern leider nicht separat steuern. Hast du vielleicht das gemeint? Dann gibt es eine Alternative:

Steuere das Gruppieren/Gruppierungen auflösen mit einem Makro. Die Eigenschaft "UserInterfaceOnly" hast du ja auf "True" gesetzt, Makros dürfen also alles. Hier mal ein rudimentäres Codebeispiel für einfache Gruppierungen/Gruppierungsauflösungen:
Code:

 

Hallo,

Ich lade Dir mal ein Beispiel hoch

dort sind drei Beispiele hinter der "DieseArbeitsmappe"

wenn Du ohne Password das machst dann wirst Du beim Öffnen der Arbeitmappe nach dem Password gefragt wenn Du es mit Password machst dann kommt Die Nachfrage nach dem Password nicht

Password für die Beispiel Mappe ist aa

 

hab den fehler.
hab eine neue mappe genommen und schon funktioniert es.
danke für deine hilfe !!!!!

schöne weihnachten und guten rutsch !
tschau *rolleyes.gif*

 

Hallo Peter,

es geht doch nicht so wie ich möchte.
Passwort = test
Habs genau so gemacht wie Du beschrieben.
Beim öffnen fragt er nach dem Passwort !? Wenn ich das Passwort eingebe, dann wird der Balattschutz auf ein leeres Passwort zurück gesetzt.

Wenn Du Lust hast, kannst Du dir die Arbeitsmappe ja mal anschauen. Wäre echt super nett von Dir.
Tschau und Gruß
*rolleyes.gif*

 

Hallo Peter hab mir mal deine Excel Arbeitsmappe angesegen und bei der habe ich das selbe Problem.

Beim ersten öffnen der Arbeitsmappe war alles in Ordnung.
Wenn ich aber auf Tabelle 2 springe und speicher u. schließe die arbeitsmappe habe ich bei deiner arbeitsmappe auch das problem dass er mich meim öffnen der mappe nach dem balttschutz fragt.

ich versteh nix mehr *entsetzt

 

hoi,

vielleicht probierst du mal, aus

Code:

das

Code:

zu machen.

da ActiveSheet lediglich das grade aktive arbeitsblatt nimmt, während ws bei dir alle bläätter durchläut.

greetz

schmali

 

Hallo t_bern,

dann solte der Code gehen

Code:

deine Datei ist geändert und mit hochgeladen und geht

Gruss Peter9

 

Hallo zusanmmen,

ich möchte diesen Eintrag mal kurz rauskramen und stelle folgende Frage:
Gibt es eine Möglichkeit OHNE MAKRO bei aktivierten Blattschutz die Gruppierungen zu zulassen (d.h. zum einen Gruppierungen auf- bzw. zuklappen und möglichst auch neue Gruppierungen anzulegen)?

Vielen Dank.