Hallo zusammen,
ich habe eine Tabelle1 (=Eingabe PM) aus der ich mit einem Makro eine Tabelle 2 generiere, die die Werte aus Tabelle 1 in eine andere Sortierung und Reihenfolge bringt. In Tabelle 1 sollen die User Zeilen ausschneiden und einfügen, löschen und hinzufügen können. Auch ausblenden und einblenden von Zeilen soll möglich sein. Allerdings soll der User hier einige bestimmte einzelne Zellen nicht ändern können und vor allem (und das ist mein Hauptproblem) sollen sie keine Spalten einfügen oder ausschneiden/löschen, etc. können, da sich sonst das daraus generierte Tabellenblatt 2 verändert und nicht mehr funktioniert. Deshalb habe ich das Tabellenblatt 1 mit einem Blattschutz versehen, der sich beim Öffnen via VBA Code aktiviert (falls ich oder ein User, der den Blattschutz kennt, diesen aufhebt und dann vergisst ihn wieder zu aktivieren). Ich habe nun folgenden Code zusammengesucht und gebastelt und in Diese Arbeitsmappe gespeichert:
Private Sub Workbook_Open()
Sheets("Eingabe PM").Protect UserInterfaceOnly:=True, AllowInsertingRows:=True, AllowDeletingRows:=True, AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True
Sheets("Eingabe PM").EnableOutlining = True 'für Gliederung
Sheets("Eingabe PM").EnableAutoFilter = True 'für Autofilter
End Sub
Das Einfügen von Zeilen ist so auch möglich, aber das Löschen und auch das Ausschneiden und dann Einfügen (Cut and Paste) funktioniert so leider nicht.
Ich bin leider absoluter VBA Neuling und habe bisher vergeblich alle möglichen Foren durchsucht, wie ich das Problem lösen kann.
Hat jemand eine Idee, ob das überhaupt so möglich ist, wie ich das denke?
Ich wäre für jeden Tipp sehr dankbar, habe bisher vergeblich sämtliche Foren durchsucht.
Danke euch im Voraus!
|