Приватное Sub Worksheet_Change (цель ByVal как ряд)
Если не пересечь, то (цель, ряд («col_M»)) Ничего после этого
Application.EnableEvents = ложно
Если Target.Rows.Count = ряд, то («A1», клетки (Rows.Count, «a»)). Rows.Count после этого
Application.EnableEvents = True
Выходите подводная лодка
Закончитесь если
Если Target.Columns.Count = ряд, то («A1», клетки (1, Columns.Count)). Columns.Count после этого
Application.EnableEvents = True
Выходите подводная лодка
Закончитесь если
Application.Undo
MsgBox «, котор вы можете только ввести или уничтожить все колонки или рядки, не клетки изменения.»
Application.EnableEvents = True
Закончитесь если
Закончите подводную лодку
|