Hogyan lehet megakadályozni a megosztott, nem védett munkafüzet sorainak vagy oszlopainak törlését?

Ha megoszt egy munkafüzetet másokkal, hogyan akadályozhatja meg másokat abban, hogy a munkafüzet védelme nélkül töröljék a megosztott munkafüzet oszlopait vagy sorait? Itt találok egy VBA kódot, amely megakadályozhatja másokat abban, hogy töröljék az oszlopokat és sorokat egy megosztott munkafüzetből.

Megakadályozza a VBA-val megosztott munkafüzet sorainak vagy oszlopainak törlését

Megakadályozza a VBA-val megosztott munkafüzet sorainak vagy oszlopainak törlését

1. nyomja meg Alt + F11 megnyitni a Microsoft Visual Basic alkalmazásokhoz ablak.

2. kettyenés betétlap > Modulok a Modul ablak megnyitásához, majd másolja a következő VBA-t az ablakba.

VBA: Megakadályozza a sorok vagy oszlopok törlését.

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. kettyenés futás gombot vagy F5 billentyűt a kód futtatásához.

Aztán amikor mások jobb gombbal kattintanak a kijelölt oszlopok vagy sorok törlésére, a Törlés opció nem használható a helyi menüben. Lásd a képernyőképet:

Ezenkívül megakadályozza, hogy a felhasználók a Ctrl + - billentyűkombinációt használják sorok vagy oszlopok törléséhez.

Jegyzet:

(1) Ha megosztotta a munkafüzetét a Felülvizsgálat > Munkafüzet megosztása, nem adhat tovább VBA makrókat. Ezért jobb, ha a munkafüzet megosztása előtt adja hozzá a VBA-t.

(2) Ez a VBA letiltja a töröl az összes munkafüzet helyi menüjében, amikor jobb gombbal kattint a kijelölt oszlopokra vagy sorokra.

(3) A töröl a helyi menüben kérjük, cserélje le mindkettőt Hamis dolgoztam, ahol az Igaz a fenti VBA-ban, és futtassa újra a VBA-t.

Oldja fel az Excel Magic alkalmazást a Kutools AI segítségével

• Intelligens végrehajtás: Cellaműveletek végrehajtása, adatok elemzése és diagramok létrehozása – mindezt egyszerű parancsok hajtják végre.
• Egyedi képletek: Személyre szabott képleteket állíthat elő a munkafolyamatok egyszerűsítéséhez.
• VBA kódolás: Írjon és implementáljon VBA kódot könnyedén.
• Képlet értelmezése: Könnyedén megértheti az összetett képleteket.
• Szöveg fordítása: Törje le a nyelvi akadályokat a táblázatokban.

Növelje Excel képességeit AI-alapú eszközökkel. Töltse le most és tapasztalja meg a még soha nem látott hatékonyságot!