Protect columns and cells via VBA

[anvs]

In a spreadsheet, Col A is used to register processes.
In Col B and Col C are the results of the code in use.
From D2:G30 are the results of other calculations by formulas.
If it was possible:
I would like to protect the results of Col B and Col C and cells D2:G30, being able to continue to insert new processes in Col A and obtain the respective results in Col B and Col C.
I tried via ProtectedSheet but it does not record the results of the calculations.

Code in use:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim w
If Target.Column > 1 Then Exit Sub
Application.EnableEvents = False
w = Target: Application.Undo
If w <> Target Then
Target = w
If Target(, 2) = "" Then
Target(, 2) = Now
else
Target(, 3) = Now
End If
SendKeys "{DOWN}"
End If
Application.EnableEvents = True
End Sub

Thanks in advance.
anvs

 

[offthelip]

You could try just putting this in the worksheet selection change, which will make it very difficult to modify columns B and C

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not (Intersect(Target, Range("B:B")) Is Nothing) Then
 Cells(Target.Row, 1).Select
End If
If Not (Intersect(Target, Range("C:C")) Is Nothing) Then
 Cells(Target.Row, 4).Select
End If

End Sub

 

[anvs]

The contents of all cells (Col B, Col C and other cells) can still be deleted.

 

[offthelip]

Have you tried it? , you can't select them so it is rather difficult to delete the contents

 

[anvs]

Ok.
I made a small (clean) prototype to test code of the Roliis13 and work fine.
It will be a conflict within my sheet that I will try to resolve.
Thank you very much for your interest.
I appreciate the availability.
anvs