Как да деактивирам възможността за вмъкване на ред и колона в 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 ще деактивира функцията Insert в контекстното меню във всички работни книги, когато щракнете с десния бутон, за да вмъкнете редове или колони.
2. За да възстановите командата Insert в контекстното меню, моля, приложете следния код:
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% и намалява стотици кликвания на мишката за вас всеки ден!