Hoe de mogelijkheid om rij en kolom in Excel in te voegen uitschakelen?
Normaal gesproken kunnen we snel en gemakkelijk rijen en kolommen tussen bestaande gegevens invoegen. Als u voorkomt dat anderen kolommen of rijen in een werkblad invoegen, kunt u het blad beveiligen om de functie Rijen of kolommen invoegen uit te schakelen. Maar hoe kunt u de functie rij en kolom invoegen uitschakelen zonder het blad te beschermen?
Voorkom dat anderen rijen en kolommen invoegen met VBA-code
Voorkom dat anderen rijen en kolommen invoegen met VBA-code
De volgende VBA-code kan u helpen om de rij- en kololfunctie in Excel-werkmap uit te schakelen, doe dit als volgt:
1. pers Alt + F11 om een te openen Microsoft Visual Basic voor toepassing venster.
2. Klikken Invoegen > Module om een modulevenster te openen en kopieer vervolgens de volgende VBA naar het venster.
VBA-code: voorkom het invoegen van rijen en kolommen:
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. pers F5 sleutel om deze code uit te voeren, nu wanneer u met de rechtermuisknop klikt om rijen of kolommen in te voegen, de Invoegen optie kan niet worden toegepast in het contextmenu. Zie screenshot:
Opmerkingen:
1. Deze VBA schakelt de functie Invoegen in het contextmenu in alle werkmappen uit wanneer u met de rechtermuisknop klikt om rijen of kolommen in te voegen.
2. Pas de volgende code toe om de opdracht Invoegen in het contextmenu te herstellen:
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
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!