Makros aktivieren - wo bleibt die Sicherheit?

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    '   erstellt von Hajo Ziplies 08.01.03
    '   ein bestimmter Bereich darf nicht ausgewählt werden
    Dim RaBereich As Range, RaZelle As Range
    ' Bereich der Wirksamkeit
    Set RaBereich = Range("C:C")
    '    ActiveSheet.Unprotect
    For Each RaZelle In Range(Target.Address)
        If Not Intersect(RaZelle, RaBereich) Is Nothing Then
            Range("D2").Select
            MsgBox ("Nur Eintragungen in Spalte D erlaubt")
            Exit For
        End If
    Next RaZelle
    '    ActiveSheet.protect
End Sub