Bei Ausführung Code vorher/hinterher (ent)sperren
28.02.2017 20:36:44
Simon
Hajo hat mir diesen tollen Code formuliert:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 And UCase(Target) = "ERLEDIGT" Then
Application.EnableEvents = False
With Worksheets("Tabelle2")
.Rows("2:2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Rows(Target.Row).Copy .Rows(2)
Rows(Target.Row).Delete
End With
Application.EnableEvents = True
End If
End Sub
Kurz beschrieben: Wenn in "Tabelle1" in Spalte 3 der Status "Erledigt" gesetzt wird, dann wird die gesamte Zeile in "Tabelle2" verschoben. "Tabelle2" soll eine Art Archiv darstellen.Mein Problem ist nun, dass wenn ich bei Tabellenblatt "Tabelle2" den Blattschutz aktiviere (da dort nur noch gelesen werden soll), dann funktioniert der o. g. Code natürlich nicht mehr.
Könnte man den Code irgendwie ergänzen, dass der Blattschutz vor dem eigentlichen Code kurz aufgehoben wird und nach Beendigung des Codes wieder gesetzt wird?
Viele Grüße, Simon