Excel: Zelle nach Eintrag sperren und beim schliessen sichern

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    'Als gespeichert festlegen damit keine Nachfrage von Excel kommt  
    ActiveWorkbook.Saved = True
    'Speichere das Sheet automatisch bevor es geschlossen wird  
    ActiveWorkbook.Save
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim ws As Worksheet, changeRange As Range
    'Arbeitsblatt auf dem die Änderung vorgenommen wird  
    Set ws = Sh
    'Bereich der überwacht wird  
    Set changeRange = ws.Range("C2,C3,C5,C6,C8,C9,C11,C12,C14,C15")  
    'Wenn eine Änderung an einer Zelle vorgenommen wird die in der Liste steht ...  
    If Not Application.Intersect(changeRange, Target) Is Nothing Then
        If ws.ProtectContents = True Then
            'Wenn das Sheet geschützt ist entferne kurzfristig den Schutz um die Zelle als gesperrt festzulegen.  
            ws.Unprotect ""  
            Target.Locked = True
        Else    'Sheet ist ungeschützt  
            Target.Locked = True
        End If
        'aktiviere den Blattschutz mit leerem Kennwort  
        ws.Protect "", Contents:=True  
    End If
End Sub