Enkelte kolonner må ikke slettes

Hej Eksperter.
Jeg har et lille excel problem som jeg håber i kan hjælpe med:
I et regneark må de første 4 kolonner ikke kunne slettes. Jeg har fundet en property på protection-klassen, men har ikke helt fattet hvordan den bruges.
Fandt følgende i hjælpen:
Sub ProtectionOptions()

    ActiveSheet.Unprotect

    'Unlock column A.
    Columns("A:A").Locked = False

    ' Allow column A to be deleted on a protected worksheet.
    If ActiveSheet.Protection.AllowDeletingColumns = False Then
        ActiveSheet.Protect AllowDeletingColumns:=True
    End If

    MsgBox "Column A can be deleted on this protected worksheet."

End Sub
       
Eksemplet er så bare det omvendte af min problemstilling, men det er jo det mindste problem. Hvordan 'trigger' man denne funktion, så brugeren får besked hvis de forsøger at slette den første kolonne??