I'm not an experienced programmer and I've been trying to use the code below to prevent users from deleting / adding rows or columns in a particular spreadsheet. However, it is not working at all. I properly inserted the code in the object "Worksheet".
Can you please help?
- [B]Private Sub Worksheet_SelectionChange(ByVal Target As Range)[/B]
- [B]If ((Target.Address = Target.EntireRow.Address Or Target.Address = Target.EntireColumn.Address)) Then[/B]
- [B] With Application[/B]
- [B] .EnableEvents = False[/B]
- [B] .Undo[/B]
- [B] MsgBox "No deleting rows or columns", 16[/B]
- [B] .EnableEvents = True[/B]
- [B] End With[/B]
- [B]End If[/B]
- [B]End Sub[/B]