Cum se dezactivează capacitatea de a insera rând și coloană în Excel?
În mod normal, putem insera rânduri și coloane între datele existente rapid și ușor, dacă împiedicați alții să introducă coloane sau rânduri într-o foaie de lucru, poate fi protejați foaia pentru a dezactiva funcția de inserare rânduri sau coloane. Dar, cum ați putea dezactiva funcția de inserare rând și coloană fără a proteja foaia?
Împiedicați alții să introducă rânduri și coloane cu cod VBA
Împiedicați alții să introducă rânduri și coloane cu cod VBA
Următorul cod VBA vă poate ajuta să dezactivați inserarea funcției rând și coloană în registrul de lucru Excel, vă rugăm să faceți acest lucru:
1. presa Alt + F11 pentru a deschide o Microsoft Visual Basic pentru aplicație fereastră.
2. Clic Insera > Module pentru a deschide o fereastră de modul, apoi copiați următorul VBA în fereastră.
Cod VBA: împiedicați inserarea de rânduri și coloane:
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. presa F5 pentru a rula acest cod, acum când faceți clic dreapta pentru a introduce rânduri sau coloane, Insera opțiunea nu poate fi aplicată în meniul contextual. Vedeți captura de ecran:
note:
1. Acest VBA va dezactiva funcția Insert în meniul contextual din toate registrele de lucru atunci când faceți clic dreapta pentru a insera rânduri sau coloane.
2. Pentru a restabili comanda Insert în meniul contextual, vă rugăm să aplicați următorul cod:
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
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!