Prevent row deletion and cell modification

[theo.mani]

Hi
I have been trying to use the following macros in a unprotected worksheet to enable me to prevent users from modifying the cells:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("X15:Z22")) Is Nothing Then Exit Sub
Application.EnableEvents = False
MsgBox "Hey, leave me alone!", 48, "Sorry, I'm protected."
Application.Undo
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If ActiveCell.HasFormula Then
MsgBox ("Formula in cell do not remove or change!")
Else
End If
End Sub

The issue i have is that this doesn't stop the user from deleting rows. I tried using protect worksheet function to overcome having to use macros all together but delete row ends up being disabled

Can anyone help or help me to modify these macros in some way to prevent row deletion?

[Fotis1991]

Welcome to the forum.

We'd like to help you but first.

Pls take some minutes to read forum rules and specially-in this case- rule#3

[theo.mani]

sorry about that :-)

Please Login or Register  to view this content.

Please Login or Register  to view this content.