Як відключити можливість вставляти рядок і стовпець в Excel?
Зазвичай ми можемо вставляти рядки та стовпці між існуючими даними швидко та легко, якщо ви забороняєте іншим вставляти стовпці або рядки на аркуші, можливо, ви можете захистити аркуш, щоб вимкнути функцію вставки рядків або стовпців. Але як можна вимкнути функцію вставки рядка та стовпця, не захищаючи аркуш?
Заборонити іншим вставляти рядки та стовпці з кодом VBA
Заборонити іншим вставляти рядки та стовпці з кодом VBA
Наступний код VBA може допомогти вам вимкнути функцію вставки рядка та стовпця у книзі Excel, будь-ласка, зробіть наступне:
1. Прес Alt + F11 відкрити Microsoft Visual Basic для програми вікна.
2. Клацання Insert > Модулі щоб відкрити вікно модуля, скопіюйте наступний 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 для запуску цього коду, тепер, коли ви клацаєте правою кнопкою миші, щоб вставити рядки або стовпці, Insert параметр не можна застосувати в контекстному меню. Дивіться знімок екрана:
Примітки:
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 для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!