Trotz Blattschutz, gruppieren und Zeilen löschen
21.02.2017 11:45:06
Peggy
ich habe mich hin und her belesen. Mein Grundproblem war das ich im Blattschutz weder gruppieren noch filtern konnte. Dies habe ich mit folgendem VBA gelöst:
Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True, Password:="Passwort"
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
End Sub
Nun tauchte mit diesem VBA das nächste Problem auf. Ich muss trotzdem die dinge im Blattschutz nutzen können (Zeilen einfügen, löschen - Spalten einfügen, löschen und Zellen einfügen, löschen). Ich habe auch zu diesem Problem versucht mich zu belesen. Leider finde ich aber keine Lösung für mich die funktioniert. Ich habe folgenden VBA genutzt:
Sub Workbook_Open()
'für alle Blätter mit Passwortschutz
Dim ws As Worksheet
For Each ws In Worksheets
ws.Protect userinterfaceonly:=True, Password:="" 'Passwort anpassen
ws.EnableAutoFilter = True 'ermöglicht Autofilter
ws.EnableOutlining = True 'ermöglicht Gruppierung/Gliederung
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True 'setzt die Einstellungen, die im Blattschutz hinterlegt wurden (z.B. _
_
wurde erlaubt Zeilen zu löschen...)
Next ws
End Sub
Wenn ich diesen eintrage, kommt beim öffnen immer die Abfrage nach einem Passwort und wenn ich dies eingebe (was ich nicht möchte, am ende soll es funktionieren ohne die Passwortabfrage beim öffnen der Datei), dann kommt ein Debuggen fehler. Könnt ihr bitte schnellstmöglich helfen. Hatte in einem anderen Forum schon gefragt, da hat niemand auf meine Anfrage reagiert :-(
Achso wichtig wäre, das ihr es mir so komplett aufschreibt, das ich es nur kopieren und einfügen muss :-) Ich denke alles andere bekomme ich nicht hin :-)
Vielen Dank und liebe Grüße
Peggy
Anzeige