Hoe voorkom je het verwijderen van rijen of kolommen in een gedeeld onbeveiligd werkboek?

Wanneer je een werkboek deelt met anderen, hoe kun je dan voorkomen dat anderen kolommen of rijen in je gedeelde werkboek verwijderen zonder het werkboek te beveiligen? Hier heb ik een VBA-code gevonden die kan voorkomen dat anderen kolommen en rijen in een gedeeld werkboek verwijderen.

Voorkom het verwijderen van rijen of kolommen in een gedeeld werkboek met VBA

Voorkom het verwijderen van rijen of kolommen in een gedeeld werkboek met VBA

1. Druk op Alt + F11 om een Microsoft Visual Basic for Application-venster te openen.

2. Klik op Invoegen > Module om een Module-venster te openen, kopieer vervolgens de volgende VBA-code naar het venster.

VBA: Voorkom het verwijderen van rijen of kolommen.

Sub StopDeleteRowCols()
'Updateby20221221
Dim xBarControl As CommandBarControl
Application.OnKey "^{-}", ""
For Each xBarControl In Application.CommandBars.FindControls(ID:=293)
    xBarControl.Enabled = False
Next
For Each xBarControl In Application.CommandBars.FindControls(ID:=294)
    xBarControl.Enabled = False
Next
End Sub

3. Klik op de knop Uitvoeren of druk op de F5-toets op het toetsenbord om deze code uit te voeren.

Daarna kan de optie Verwijderen niet worden toegepast in het contextmenu wanneer anderen met de rechtermuisknop klikken om geselecteerde kolommen of rijen te verwijderen. Zie screenshot:

Ook voorkomt dit dat gebruikers de sneltoets Ctrl + - kunnen gebruiken om rijen of kolommen te verwijderen.

Opmerking:

(1) Als je je werkboek al hebt gedeeld via Beoordeling > Werkboek delen, kun je geen VBA-macros meer toevoegen. Daarom is het beter om de VBA toe te voegen voordat je het werkboek deelt.

(2) Deze VBA zal de optie Verwijderen uitschakelen in het contextmenu in alle werkboeken wanneer je met de rechtermuisknop geselecteerde kolommen of rijen aanklikt.

(3) Om de optie Verwijderen in het contextmenu te herstellen, vervang dan beide False door True in de bovenstaande VBA en voer de VBA opnieuw uit.

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!