Office: (Office 2013) Verbundene Zellen auslassen

Hallo Zusammen,

den unten stehenden Code benutze ich um Zellen nach der Eingabe zu sperren.
Wenn in dem Arbeitsbereich sind auch verbundene Zellen.
Kann den Code jemand so ändern , dass auch verbundene Zellen gesperrt werden ?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:N")) Is Nothing Or IsEmpty(Target) Then Exit Sub
    ActiveSheet.Unprotect ""
    Target.Locked = True
    ActiveSheet.Protect ""
End Sub

 

Hi,

versuche es so:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:N")) Is Nothing Or IsEmpty(Target) Then Exit Sub
    ActiveSheet.Unprotect ""
    If Target.MergeCells = True Then
        Target.MergeArea.Locked = True
    Else
        Target.Locked = True
    End If
    ActiveSheet.Protect ""
End Sub

---

 

Hallo Karin,
habe gerade gesehen das auf dem Blatt schon ein Schutz ist mit Passwort. Es sind Formeln hinterlegt die nicht gelöscht werden sollen.
kann man das auch lösen ?

 

Hi,

was meinst du mit "kann man das auch lösen" - was verstehst du unter das?

---

 

Hi
Herzlichen Dank für Deine Hilfe Karin.
War da etwas voreilig. Denke das ist so falsch beschrieben von mir.