Hoppa till huvudinnehåll

Hur förhindrar man radering av rader eller kolumner i en delad oskyddad arbetsbok?

Författare: Sun Senast ändrad: 2022-12-21

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


pil blå höger bubbla 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:

doc-inaktivera-radera rad-kolumn-1

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

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

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...

Beskrivning


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!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Está genial el código! Gracias! Pero esto no bloquea el poder eliminar la fila haciendo CTRL- .....
Sabrías cómo poder bloquearlo también?

Gracias!
This comment was minimized by the moderator on the site
Hi, I have updated the code in the article, you can try again, now it prevent the shortcuts and the delete command.
This comment was minimized by the moderator on the site
Bonjour

Je n'arrive plus à supprimer le fait de supprimer des lignes maintenant que j'ai créer ce code VBA.
Comment se traduit "les Vetitables" en français j'ai essayé "true" mais ça ne fonctionne pas

Merci de votre réponse
This comment was minimized by the moderator on the site
Sorry, Sand, I do not understand French.
This comment was minimized by the moderator on the site
Nice piece of code, but it doesn't prevent the user from using {ctrl} - to delete rows...
This comment was minimized by the moderator on the site
Vba code to disable delete, cut and insert option in Excel hoe ribbon
This comment was minimized by the moderator on the site
Can you Please share the vba code to disable Cut,Insert and Delete option in Home ribbon??? However i know thw vba code to disable it through right click and keyboard. But here i need code to disable cut, insert and delet option in excel home ribbon.
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations