Worksheet_Change secundario privado (blanco de ByVal como gama)
Si no intersecarse (blanco, gama (el “col_M”)) Entonces está nada
Application.EnableEvents = falso
Si Target.Rows.Count = gama (“A1”, células (Rows.Count, “A”)). Rows.Count entonces
Application.EnableEvents = verdad
Salir el submarino
Terminar si
Si Target.Columns.Count = gama (“A1”, células (1, Columns.Count)). Columns.Count entonces
Application.EnableEvents = verdad
Salir el submarino
Terminar si
Application.Undo
MsgBox “que usted puede insertar o suprimir solamente columnas enteras o filas, no células del cambio.”
Application.EnableEvents = verdad
Terminar si
Terminar el submarino
|