Ich möchte das Löschen von Zeilen und Spalten unterbinden. Hier habe ich folgendes Makro erstellt. Excel schmiert dabei ständig ab. Gibt es hierfür Lösungsvorschläge?
Selection.Locked = False
Selection.FormulaHidden = False
Range("A1").Select
ActiveWorkbook.Save
Sheets("Tabelle1").Select
Cells.Select
Sheets("Tabelle1").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowSorting:=True, _
AllowFiltering:=True, AllowUsingPivotTables:=True

Weiterhin hat meine Datei eine Gliederungsebene. Diese lässt sich jedoch aufgrund des Löschmakros nicht mehr ansteuern/öffnen. Hierfür Vorschläge.