Disabling Option to Delete using VB Code

I have three columns in an excel sheet.

A B C
Date Logged HRID Name

This excel sheet has a timestamping VB code applied. (see below) How do I customize it in a way that details under column A will not be deleted manually? I tried password protect but I seem to get VB Code debug issues whenever I activate it.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Select Case Target.Column
Case 2 To 3
If Not IsDate(Cells(Target.Row, "a").Value) Then
Application.EnableEvents = False
Cells(Target.Row, "a").Value = Now()
End If
If IsEmpty(Target) Then Target.Offset(0, -1).ClearContents
End Select
Application.EnableEvents = True
End Sub

Thank you.

EDIT: Please Edit your post above and put the code in code tags, like I do here:
---------------------

1) Unlock the cells in columns B and C where the user will enter data.
2) Protect the sheet with a password
3) Use this in the sheet module:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
    Select Case Target.Column
        Case 2 To 3
            Application.EnableEvents = False
            If Not IsDate(Cells(Target.Row, "a").Value) Then
                Cells(Target.Row, "a").Value = Now()
            End If
            If IsEmpty(Target) Then Target.Offset(0, -1).ClearContents
            Application.EnableEvents = True
        End Select
End Sub

Private Sub Worksheet_Activate()
    Me.Protect "password", UserInterfaceOnly:=True
End Sub

Obviously you'll need to edit the second macro to have your password, and you may need to tweak the additional parameters so the sheet is protected with the features you want. I'm just showing you how to add the hidden parameter UserInterfaceOnly which allows macros to work on a protected sheet in protected cells even though the user can't.

Question about your macro's behavior...if someone deletes a value in column C, column B gets cleared, too. Is that right? Clear column B and leave column A?

Also, do you really want a full timestamp? You can get just the date by changing Now() in the macro to Date.

Originally Posted by ltmaiyk

Any suggestion?

Um, yes. Did you not read my posts above?

1) Edit your original post above, post #1, and add [code] and [/code] tags around the code you posted, it will look like mine in post #2 when you do that.

It is a forum rule, if you don't do it, this thread will get moderated and I won't be able to respond at all.

2) I posted code for you to try in post #2.

3) I asked you a couple of questions in post #3 about what you WANT to happen when data is manually cleared from column C. Please answer it. They are not macro questions.

You know, I just assumed, wrongly so, that you would know the Worksheet_Activate macro wouldn't allow you to edit the sheet until you changed to a different sheet then came back to it, thus "activating" that macro.

Here, use this instead. Take out the Worksheet_Activate() macro completely. Then put this macro into the the ThisWorkbook module:

Private Sub Workbook_Open()
    Sheets("Sheet1").Protect "password", UserInterfaceOnly:=True
End Sub

Be sure to edit that to the correct sheet name if it's not Sheet1. Then save and close your workbook. Now when you open it the flag will be set and your other macro will work.

========
If column C is protected, too, why does your original macro check for column 2 or 3? Shouldn't it just check for column 2, column "B"?

If you really need to just watch column B and you don't want the macro to cause an error if you try to delete the contents of more than one cell at a time, use this instead:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cell As Range

For Each Cell In Target
    If Cell.Column = 2 Then
        Application.EnableEvents = False
            If IsEmpty(Cell) Then
                Target.Offset(0, -1).ClearContents
            ElseIf Not IsDate(Cells(Cell.Row, "A")) Then
                Cells(Cell.Row, "A").Value = Now()
            End If
        Application.EnableEvents = True
    End If
End Sub

If that takes care of your need, please click EDIT in your original post, click GO ADVANCED and set the PREFIX box to SOLVED.