VBA Excel: intercettare cancellazine riga

Question

Buonasera,

tra i vari eventi VBA di Excel, sto cercando come intercettare la cancellazione di una riga da parte dell'utente.

Forse si può intercettare da "Workbook_SheetChange", ma non sono riuscito a capire come.

Grazie in anticipo

Ivo

Answer 1

Prova qualcosa del genere da inserire nel modulo Thisworkbook o Questa_cartella_di_lavoro:

Option Explicit

Dim rng As Range

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

   Dim sAddress As String

   On Error Resume Next

   sAddress = rng.Address

   If sAddress = vbNullString Then MsgBox "Una o più righe intere sono state eliminate"

   Set rng = Selection.EntireRow

   On Error GoTo 0

End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

   Set rng = Selection.EntireRow

End Sub