urcitym resenim je mimo oblast dat vlozit do bunky funkci =NYNÍ(), ktera je pri zmenach na listu prepocitavana ; napr.: N35 a do objektu list vlozit udalostni proceduru, ktera vyhodnoti zmenu radku s touto funkci pri vlozeni nebo odstraneni radku:
Private Sub Worksheet_Calculate()
Dim PoslRadek As Long, Response
PoslRadek = Range("n1", [n65000].End(xlUp)).Rows.Count
If PoslRadek = 35 Then Exit Sub ' nebyl pridan ani ubran radek
Application.EnableEvents = False
Application.Undo
If PoslRadek > 35 Then
Response = MsgBox("Řádek(y) nelze vložit!", vbCritical + vbOKOnly)
Else
Response = MsgBox("Řádek(y) nelze odstranit!", vbCritical + vbOKOnly)
End If
Application.EnableEvents = True
End Sub
Je dulezite, aby vlastnost EnableEvents byla nastavena na True, jinak nedochazi k prepoctu a volani procedury