Hoe kan ik voorkomen dat rijen of kolommen in een gedeelde, onbeveiligde werkmap worden verwijderd?
Als u een werkmap met anderen deelt, hoe kunt u dan voorkomen dat anderen de kolommen of rijen van uw gedeelde werkmap verwijderen zonder de werkmap te beschermen? Hier vind ik een VBA-code die kan voorkomen dat anderen de kolommen en rijen in een gedeelde werkmap verwijderen.
Voorkom het verwijderen van rijen of kolommen in een gedeelde werkmap met VBA
Voorkom het verwijderen van rijen of kolommen in een gedeelde werkmap met VBA
1. druk op 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: 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. klikken lopen knop of F5 toets op het toetsenbord om deze code uit te voeren.
Wanneer anderen vervolgens met de rechtermuisknop klikken om geselecteerde kolommen of rijen te verwijderen, kan de optie Verwijderen niet worden toegepast in het contextmenu. Zie screenshot:
Het voorkomt ook dat gebruikers sneltoetsen Ctrl + - gebruiken om rijen of kolommen te verwijderen.
Opmerking:
(1) Als u uw werkmap hebt gedeeld met Review > Deel werkboek, kunt u geen VBA-macro's meer toevoegen. Daarom kunt u de VBA beter toevoegen voordat u de werkmap deelt.
(2) Deze VBA schakelt het Verwijder in het contextmenu in alle werkmappen wanneer u met de rechtermuisknop op geselecteerde kolommen of rijen klikt.
(3) Om het Verwijder vervang beide in het contextmenu Niet waar Met Waar in de VBA hierboven en voer de VBA opnieuw uit.
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!