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
- Bármely újrafelhasználása: Adja hozzá a leggyakrabban használt vagy összetett képleteket, diagramokat és bármi mást a kedvenceihez, és a későbbiekben gyorsan használja fel újra.
- Több mint 20 szöveges szolgáltatás: Szám kivonása a szöveges karakterláncból; Bontsa ki vagy távolítsa el a szövegek egy részét; Számok és pénznemek konvertálása angol szavakká.
- Eszközök egyesítése: Több munkafüzet és lap egybe; Egyesítsen több cellát / sort / oszlopot adatok elvesztése nélkül; Az ismétlődő sorok és összeg összevonása.
- Felosztott eszközök: Az adatok felosztása több lapra az érték alapján; Egy munkafüzet több Excel, PDF vagy CSV fájlhoz; Egy oszlop több oszlopra.
- Ugrás beillesztése Rejtett / szűrt sorok; Gróf és összeg háttérszínnel; Személyre szabott e-maileket küldhet több címzettnek tömegesen.
- Szuper szűrő: Hozzon létre speciális szűrősémákat, és alkalmazza azokat bármilyen lapra; Fajta hét, nap, gyakoriság és egyebek szerint; Szűrő félkövérrel, képletekkel, megjegyzésekkel ...
- Több mint 300 hatékony funkció; Működik az Office 2007-2021 és 365 verziókkal; Támogatja az összes nyelvet; Könnyű üzembe helyezés a vállalkozásban vagy szervezetben.
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 val vel Igaz a fenti VBA-ban, és futtassa újra a VBA-t.
A legjobb irodai termelékenységi eszközök
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
- újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
- Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
- Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
- Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
- Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
- Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
- Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
- Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
- Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
