Office: (Office 2007) VBA Excel Objekte bearbeiten trotz Blattschutz

Hallo,

ich stehe vor folgendem, für mich als "Nicht-Profi" unlösbarem Problem:
Ich habe eine Ecxel-Datei, in der ich folgendende Funktionen trotz Blattschutz zulassen möchte:
- Gruppierung
- Zeilen anpassen / ausschneiden / einfügen
- Spalten anpassen / ausschneiden / einfügen
- Objekte einfügen und bearbeiten (z.B. Größe ändern)
- Filtern
Ein Passwort soll für den Blattschutz auch vergeben werden.

Mein bisheriger Code sieht wi folgt aus:


Sub Workbook_Open()
Dim i As Long
For i = 1 To Worksheets.Count
Sheets(i).Protect userinterfaceonly:=True, Password:="xxx", AllowFormattingColumns:=True, AllowFormattingRows:=True
Sheets(i).EnableOutlining = True 'für Gliederung
Sheets(i).EnableAutoFilter = True 'für Autofilter
Sheets(i).EnableDrawingObjects = False

Next i
End Sub

Dieser funktioniert aber nicht richtig :-(

Ich hoffe, mir kann hier jemand helfen.

 

Hallo,

"nicht richtig" ist sehr dehnbar... ;-)
Was funktioniert hier nicht? Welche Fehlermeldung(en) gibt es?

P.S. ich frage nur, helfen kann ich ehnicht, bin ein VBA Vollpfosten!

 

Hi,

Sheets(i).EnableDrawingObjects = False geht nicht, da es für das Object Worksheet diese Funktion nicht gibt.

Deine gewünschten Einstellungen kannst du alle beim einfügen des Blattschtuzes festlegen.

Code:

Sub Workbook_Open()
Dim i As Long
For i = 1 To Worksheets.Count
Sheets(i).Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        True, AllowFormattingColumns:=True, AllowFormattingRows:=True, _
        AllowInsertingColumns:=True, AllowInsertingRows:=True, AllowFiltering:= _
        True, AllowDeletingRows:=True, AllowDeletingColumns:=True, Passwort:="DeinPasswort"
Next i
End Sub

Als Hinweis: Du kannst keine geschützten Zeilen löschen/Ausschneiden (dass ist ja der Sinn des Schutzes).

 

Hi,

dein Code löst bei mir (Excel2013) einen Laufzeitfehler '1004': Anwendungs- oder objektorientierter Fehler aus. Dieser Code dagegen funktioniert problemlos:

Code:

Sub Workbook_Open()
    Dim lngTab As Long
    For lngTab = 1 To Worksheets.Count
        Worksheets(lngTab).Protect userinterfaceonly:=True, DrawingObjects:=False, Contents:=True, Scenarios:= _
            True, AllowInsertingColumns:=True, AllowInsertingRows:=True, _
            AllowDeletingColumns:=True, AllowDeletingRows:=True, AllowFiltering:=True, Password:="xxx"
    Next lngTab
End Sub

Bis später,
Karin

 

Vielen Dank, nun besteht aber wieder das Problem, dass ich meine Gruppierung nicht mehr öffnen kann wenn der Blattschutz aktiviert ist.

 

Anscheinend muss die Gliederung getrennt vom Rest angegeben werden - so sollte es funktionieren:

Code:

Sub Workbook_Open()
    Dim lngTab As Long
    For lngTab = 1 To Worksheets.Count
        Worksheets(lngTab).Protect UserInterfaceOnly:=True
        Worksheets(lngTab).EnableOutlining = True
        Worksheets(lngTab).Protect Password:="xxx", DrawingObjects:=False, Contents:=True, Scenarios:= _
            True, AllowInsertingColumns:=True, AllowInsertingRows:=True, AllowDeletingColumns:=True, _
            AllowDeletingRows:=True, AllowFiltering:=True
    Next lngTab
End Sub

Bis später,
Karin

 

jetzt kommt nach schlißen und erneutem öffnen der Datei jedoch gleich eine Kennwortabfrage-Maske zur Aufhebung des Blattschutzes.
Wenn man diese wegklickt ist eine Gruppierung nicht möglich

 

Kann ich nicht nachvollziehen. Vielleicht hängt es mit deiner Excel-Version zusammen.

Bis später,
Karin