Hur förhindrar man radering av rader eller kolumner i en delad oskyddad arbetsbok?
När du delar en arbetsbok till andra, hur kan du förhindra att andra tar bort kolumnerna eller raderna i din delade arbetsbok utan att skydda arbetsboken? Här hittar jag en VBA-kod som kan hindra andra från att radera kolumner och rader i en delad arbetsbok.
Förhindra radering av rader eller kolumner i en delad arbetsbok med VBA
Förhindra radering av rader eller kolumner i en delad arbetsbok med VBA
1. Tryck Alt + F11 att öppna en Microsoft Visual Basic för applikation fönster.
2. klick Insert > Modulerna för att öppna ett modulfönster och kopiera sedan följande VBA till fönstret.
VBA: Förhindra radering av rader eller kolumner.
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. klick Körning knapp eller F5 på tangentbordet för att köra den här koden.
När andra sedan högerklickar för att radera valda kolumner eller rader kan alternativet Ta bort inte användas i snabbmenyn. Se skärmdump:
Det hindrar också användare från att använda kortkommandon Ctrl + - för att ta bort rader eller kolumner.
Notera:
(1) Om du har delat din arbetsbok med översyn > Dela arbetsbok, du kan inte lägga till några VBA-makron längre. Därför borde du lägga till VBA innan du delar arbetsboken.
(2) Denna VBA inaktiverar Radera i snabbmenyn i alla arbetsböcker när du högerklickar på valda kolumner eller rader.
(3) För att återställa Radera i snabbmenyn, ersätt båda Falsk med Sant i VBA ovan och kör VBA igen.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!