prevent delete, paste, cut many cells

[zico8]

Hi,

I have one sheet where almost all cells execute some macros by Worksheet_change event.
Therefore I need to prevent all actions where user can change more than one cell at the time.

I am going to use the code:

Private Sub Worksheet_Change (byVal Target As Range)
If Target.Cells.Count > 1 Then
Application.EnableEvents = False
Application.Undo
Msgbox "Not allowed action !"
Application.EnableEvents = True
Exit Sub
End If
....
....
End Sub

It works (I think so) for attempts of delete as well as paste in many cells at the same time but the problem is when user will cut several cells. The message box appears only when cutted cells are pasted to other. So the Application.Undo works duringe the paste action and the second time when inserting oryginal values in the correct places.
At the end all is messed up.

How can I prevent then?


Is there something else that I did not consider that can brake my idea due to any unexpected user actions?

 

[Yongle]

Try this (untested)

[COLOR=#0101FD][FONT=Consolas]Private[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] [/FONT][/COLOR][COLOR=#0101FD][FONT=Consolas]Sub[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Worksheet_SelectionChange([/FONT][/COLOR][COLOR=#0101FD][FONT=Consolas]ByVal[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Target [/FONT][/COLOR][COLOR=#0101FD][FONT=Consolas]As[/FONT][/COLOR][COLOR=#000000][FONT=Consolas] Range)
   Target.Cells(1).Select
End Sub[/FONT][/COLOR]