Prevent column/ row from deleting

[xzaqus]

Using VBA code,

1. Is it possible to block deleting, say Row 10 and Column P (but the other rows and columns should be deletable)?

2. If a sheet contains a value 'Do not delete", then the row and column of the cell should not be deletable? That is, the code should pick up the column address and row address wherever there is "Do not delete" in the sheet and then those rows and columns should be prevented from being deleted.

Thanks.

 

[xzaqus]

Sort of figured out 1 with

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("P10")) Is Nothing Then Exit Sub
On Error GoTo ExitPoint
Application.EnableEvents = False
If Not IsDate(Target(1)) Then
Application.Undo
MsgBox " You can't delete cell contents from this range ", vbCritical, ""
End If
ExitPoint:
Application.EnableEvents = True
End Sub

 

[xzaqus]

This code below, finds the address of Do not delete cell (currently displaying as a message). I am not able to pass r.address to the worksheet_change sub posted above instead of p10. That is, the above code should prevent deleting the cells/column/ row containing do not delete found using the code below. Any help will be appreciated.

Sub WhereIs()
Dim r As Range
For Each r In ActiveSheet.UsedRange
If InStr(1, r.Text, "Do not delete") > 0 Then
MsgBox = r.Address
Exit Sub
End If
Next r
End Sub