Как отключить возможность вставки строки и столбца в 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
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!