Public glOldRows As Long
Private Sub Worksheet_Activate()

glOldRows = DataBase.Range(“ZONAAA”).Rows.count

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng1 As Range
Dim RngValue
Set Rng1 = Range(“ZONAAA”)

If Rng1.Rows.count glOldRows Then
MsgBox “¡No se pueden modificar las filas!”
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
Exit Sub
End If

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rng1 As Range
Set Rng1 = Range(“ZONADATOS”).Resize

If Rng1.Rows.Count + 1 Then
MsgBox “¡cant add rows!”
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
Exit Sub
Else
If Rng1.Rows.Count – 1 Then
MsgBox “¡cant delete rows!”
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
Exit Sub
End If
End If
end sub

Did you get a response to your query regarding excel 2007 on any other forum? Or did you figure it out?

Thanks
-Jairam

- Bob

First of all, thanks for all your comments, I learned a lot.

One comment to Dick’s first method (you know the one where you check events after they happen), and which has the major drawback of not being able to prevent them.

You can actually make it right by simply rejecting any change that you don’t explicitly allow.

The code to do that:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim TargetWs As Worksheet
Set TargetWs = Sh

If( … ‘ I don’t like what the user is doing… ) Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
End If
End Sub

This method also has a downside. If some code runs in the meantime that clears the undo buffer, the undo fails.

Best regards,
Balint

I am working with some named ranges.

On my change event, I have some code that looks like this:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Rng1 As Range

Set Rng1 = Range(“Sh1billsW”).Resize

If Rng1.Rows.Count + 1 Then
MsgBox “Row Added”
MsgBox “Number of Rows = ” & Rng1.Rows.Count
Else
If Rng1.Rows.Count – 1 Then
MsgBox “Row Deleted”
Exit Sub
End If
End If

End Sub

It is almost there.
If I add or delete a row, it does return the proper row count in the named range.
However, anytime I do anything in the worksheet, it still runs that code.
I only want the code to run in the (event) that a row is inserted or deleted

Any ideas?

Thanks
Mark

My solution is a little restrictive, but if you have a defined range (not necessarily named, but just a critical area)that you want to monitor, fill an unused adjacent range (Column if rows are of interest, and vice versa for columns) with numbers, and examine the sum. If the sum is different after the change event fires, you can [carefully] assume the row (or column) was deleted, and proceed with the msgbox and undo. There may be some holes in this scheme, but it works in my limited case. I hide the column that contains the numbers to avoid prying eyes…

Thanks. What I am trying to do is enable the Data>Filter>AutoFilter button. What is described above seems to be the pre-2002 version of Protect AllowFiltering := True, which I’m using (in XL 03). Both of these seem to allow the user to use a filter that’s already set, but not to set and unset a Filter, i.e, click on the AutoFilter button. Of course, I’m probably just not understanding, so please help me out.