Office: neue Zeile einfügen trotz Blattschutz

Hallo zusammen,

für unsere Abfragen verwenden wir ungefähr ein Template wie hier abgebildet. Die Spalten E und F sind mit einfachen Formeln hinterlegt. Letztendlich sollten die verschiedenen Bereiche nur in der Spalte D ihre Planwerte Stand: Jun eintragen. Da aber bei der letzten Abfrage einiges schief gelaufen ist und dann teilweise auch in Spalte E und F was eingetragen wurde, war das letztes mal ein großes durcheinander. Auch das einfügen von neuen Zeilen war damals ein Problem für manche Bereiche. Dieses Problem habe ich über den Button " neue Zeile einfügen" mit einem Makro fast gelöst. Es funktionert alles super und auch die Formeln werden in die neue Zelle übernommen. Allerdings würde ich gerne die Spalten C, E und F mit einem Blattschutz sperren, damit zum einen alte Planstände nicht verändert werden und zum anderen die Formeln bestehen bleiben.

Nun zu meinem Problem:
Wenn ich den Blattschutz aktiviere und somit z.B Spalte E und F sperre, dann funktionert mein Makro mit neuer Zeile einfügen nicht mehr. Ich hätte aber gerne, dass ich trotz Blattschutz eine neue Zeile einfügen kann über den Button der sowohl die Formeln und das Format übernimmt.

Kann mir da jemand weiterhelfen?

Habe für euch ein Bsp-Template hochgeladen.

Das wäre echt super.

Vielen Dank im Voraus.

Beste Grüße
Rachneff

:)

 

Hallo Rachneff,

das sollte ganz einfach gehen mit einem

Code:

vor deinem Code bzw.

Code:

nach deinem Code.

Sprich, du deaktivierst den Blattschutz, führst deinen Code aus und aktivierst den Schutz wieder.

 

Besser sogar noch so:

nur vor dem Code einfügen
Code:

Das hat den Vorteil, dass das Blatt auch geschützt bleibt, wenn der Code abstürzt

 

Vielen Dank euch beiden.

Funktioniert super. Habe mich für die 2. Variante entschieden.

Viele Grüße,
Rachneff

 

Das ganze müsste dann auch funktionieren, wenn das aktuelle Tabellenblatt kopiert wird und z.B. umbenannt wird.

Weiß da jemand weiter?

Also das bei Sheets nicht immer "Tabelle1" drin steht sondern sowas wie activesheet oder so, dass es immer das aktuelle Sheet nimmt. Damit der Button auch funktioniert, wenn ich das Tabellenblatt kopiere und umbenne

Sheets("Tabelle1").Protect Password:="Secret", UserInterFaceOnly:=True


VG

 

Du hast dir doch deine Antwort schon selbst gegeben...

Code:

Selbst ausprobieren ist nicht verboten!

 

Vielen Dank.

Habe immer ActiveSheet in der Klammer geschriebe... Learning by doing

 

Sub ZeileKopierenEinfügen()

ActiveSheet.Protect Password:="Secret", UserInterFaceOnly:=True
Dim rngZelle As Range
With ActiveCell
If .Row > 1 Then
Rows(.Row - 1).Copy
.EntireRow.Insert
Application.CutCopyMode = False
End If
For Each rngZelle In Range(Cells(.Row - 1, 1), Cells(.Row - 1, Columns.Count).End(xlToLeft))
If Not rngZelle.HasFormula And rngZelle "" Then rngZelle = ""
Next
End With
End Sub

könnte mir jemand sagen, wie ich den code anpassen muss, damit bei klick auf neue zeile einfügen nicht die zeile darüber kopiert und eingefügt wird sondern die aktuelle zeile kopiert und eingefügt wird. bzw. die formlen mit übernommen werden.
bisher habe ich das Problem, dass wenn ich unter der Überschrift die zeile anklicke und dann auf neue zeile einfügen drücke, dass dann die Formeln und das Format von der zeile darüber übernommen wird. hätte aber gerne dass die neue zeile genau das gleiche Format hat wie die zeile die angeklickt war.

hoffe das war einigermaßen verständlich geschrieben.

danke

lg rachneff

 

hier muss die -1 weg
Code:

PS:
ich würde außerdem sagen das End If ist an der falschen Stelle und sollte hier hin:
Code:

 

Danke,

und wie könnte ich einstellen, dass ein individuelles PW bei VBA aufgenommen wird. Sprich aktuell muss es ja immer Secret sein. Aber falls der Nutzer ein eigenes festlegen möchte, wie müsste ich den Code da anpassen?

 

Der Code kann nur funktionieren, wenn das Passwort bekannt ist.

Eine Möglichkeit wäre es, in einer Inputbox den Nutzer nach seinem Passwort zu fragen, damit es dann im Code verwendet werden kann.

Oder man bittet den Nutzer darum, den Blattschutz aufzuheben, damit der Code funktioniert.

 

Hallo zusammen,

ich hätte noch eine Frage,
und zwar funktioniert der Code an sich super, allerdings hätte ich gerne, dass die Leute die Zelle nach dem Blattschutz formatieren können. Sprich Fett oder kursiv oder so etwas. Diese Felder werden alle ausgegraut sobald ich auf den button neue Zeile einfügen drücke.

Wenn ich den Blattschutz manuell eingebe und ein haken bei zelle formatieren anklicke, dann funktioniert es zwar, allerdings nur solange bis ich wieder eine neue zeile einfüge.

kann mir da jemand weiterhelfen?

Danke schonmal

VG
Rachneff

 

Hast du das probiert?

Code:

 

Du musst nur beim Schutz diese Funktion erlauben:

Code: