Как отключить возможность вставки строк и столбцов в Excel?
Обычно мы можем быстро и легко вставлять строки и столбцы между существующими данными. Если вы хотите предотвратить вставку столбцов или строк другими пользователями на листе, возможно, вы можете защитить лист, чтобы отключить функцию вставки строк или столбцов. Но как можно отключить функцию вставки строк и столбцов без защиты листа?
Предотвращение вставки строк и столбцов с помощью кода VBA
Предотвращение вставки строк и столбцов с помощью кода VBA
Следующий код VBA поможет вам отключить функцию вставки строк и столбцов в книге Excel. Пожалуйста, выполните следующие действия:
1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Нажмите Вставить > Модуль, чтобы открыть окно Модуля, затем скопируйте следующий код VBA в это окно.
Код VBA: предотвращение вставки строк и столбцов:
Sub NoInsert()
'Updateby Extendoffice
Dim I As Integer
Dim cbStr As String
Dim cbCtrl As CommandBarControl
Application.ScreenUpdating = False
For I = 1 To 2
If I = 1 Then
cbStr = "row"
Else
cbStr = "column"
End If
For Each cbCtrl In Application.CommandBars(cbStr).Controls
If cbCtrl.ID = 3183 Then
cbCtrl.Enabled = False
End If
Next
Next
Application.ScreenUpdating = True
End Sub
3. Нажмите клавишу F5, чтобы запустить этот код. Теперь, когда вы щелкаете правой кнопкой мыши, чтобы вставить строки или столбцы, опция Вставить не будет доступна в контекстном меню. См. скриншот:
Примечания:
1. Этот код VBA отключит функцию Вставить в контекстном меню во всех книгах при попытке вставить строки или столбцы.
2. Чтобы восстановить команду Вставить в контекстном меню, примените следующий код:
Sub NoInsert()
'Updateby Extendoffice
Dim I As Integer
Dim cbStr As String
Dim cbCtrl As CommandBarControl
Application.ScreenUpdating = True
For I = 1 To 2
If I = 1 Then
cbStr = "row"
Else
cbStr = "column"
End If
For Each cbCtrl In Application.CommandBars(cbStr).Controls
If cbCtrl.ID = 3183 Then
cbCtrl.Enabled = True
End If
Next
Next
Application.ScreenUpdating = True
End Sub
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек