Note: The other languages of the website are Google-translated. Back to English

Hogyan lehet megakadályozni, hogy bizonyos cellatartalmak törlődjenek az Excel programban?

Ez a cikk arról szól, hogy megakadályozzuk bizonyos cellatartalmak törlését az Excelben. A cikkben leírt módszerekkel érheti el.

A munkalap védelme révén megakadályozhatja egyes cellatartalmak törlését
VBA kód használatával megakadályozhatja bizonyos cellatartalmak törlését


A munkalap védelme révén megakadályozhatja egyes cellatartalmak törlését

Alapértelmezés szerint a munkalap összes cellája zárolva van. Ha meg szeretné akadályozni, hogy bizonyos cellatartalmak törlődjenek, és a védelem után más cellákat szerkeszthetővé tesz, kérjük, tegye a következőket.

1. Kattintson a gombot a munkalap bal felső sarkában a teljes munkalap kiválasztásához. Ezután nyomja meg a gombot Ctrl + 1 billentyűk megnyitásához Cellák formázása párbeszédablak.

2. A felbukkanóban Cellák formázása párbeszédpanelen törölje a jelet a Zárt lehetőség a Védelem lapot, majd kattintson a OK gomb. Lásd a képernyőképet:

3. Jelölje ki azokat a cellákat, amelyekből nem szeretné törölni a tartalmat, majd nyomja meg az gombot Ctrl + 1 billentyű a Cellák formázása párbeszédpanelt, ellenőrizze a Zárt lehetőség a Védelem lapot, majd kattintson a OK gombot.

4. Most kattintson Felülvizsgálat > Védje a lapot, majd adja meg és erősítse meg jelszavát mindkét Védje a lapot és a Jelszó megerősítése párbeszédpaneleket.

Most a munkalap védett. És a megadott cellatartalom nem törlődik tovább.


VBA kód használatával megakadályozhatja bizonyos cellatartalmak törlését

A fenti két módszer mellett futtathatja a VBA kódot, hogy megakadályozza a cellatartalmak törlését egy munkalapon. Kérjük, tegye a következőket.

1. Nyissa meg azt a munkalapot, amely azt a cellatartalmat tartalmazza, amelyet nem szeretne törölni, kattintson a jobb gombbal a Lap lapra, majd kattintson a gombra Kód megtekintése a jobb egérgombbal kattintva.

2. Másolja és illessze be az alábbi VBA kódot a Microsoft Visual Basic for Applications ablak.

VBA-kód: megakadályozza, hogy az egyes cellatartalmak törlődjenek az Excelben

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:E7")) Is Nothing Then Exit Sub
    On Error GoTo ExitPoint
    Application.EnableEvents = False
    If Not IsDate(Target(1)) Then
        Application.Undo
        MsgBox " You can't delete cell contents from this range " _
        , vbCritical, "Kutools for Excel"
    End If
ExitPoint:
    Application.EnableEvents = True
End Sub

Megjegyzések: A kódban az A1: E17 az a tartomány, amelyet a cellatartalom törlése megakadályoz. Az Ön igényei szerint módosíthatja a tartományt.

Mostantól, amikor megpróbálja törölni a cellatartalmat az A1: E17 tartományból, a Kutools az Excel számára párbeszédpanel az alábbi képernyőképen látható, kattintson a gombra OK gombot.


Kapcsolódó cikkek:


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.
kte lap 201905

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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (17)
Az 5-t az 5-ből kiértékelte · 1 értékelés
A weboldal moderátora ezt a megjegyzést minimalizálta
Pont amit kerestem, köszönöm a segítséget!
A weboldal moderátora ezt a megjegyzést minimalizálta
ne aggódj, mindig itt leszek és segítek :)
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia,

Most próbáltam ki a VBA szkriptet, és bár a legtöbb helyzetben nagyon jól működik. Ez azonban nem működik, ha egy szerkeszthető cellából a nem szerkeszthető oszlopba/cellába lép. A probléma abból adódik, hogy - parancs szerint - feldobja a hibaüzenetet, de nem tartja meg azokat az adatokat, amiket az eredeti, szerkeszthető cellába írt be, ahonnan a tabulátor volt.

Módosítaná a szkriptet, hogy az elfogadja a szerkeszthető cellában lévő adatokat, amikor a nem szerkeszthető fülre lép?

Egészségére
A weboldal moderátora ezt a megjegyzést minimalizálta
Jó napot,
Megpróbáltam, ahogy említetted a te esetedben, de nem jelentkezett hiba. Adna egy képernyőképet az esetről, vagy elmondaná az Office verzióját?
Köszönöm a megjegyzést.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ha nem akarod megnézni a lapot vagy VBA kódot írni, akkor egy egyszerű technikát használok, amely megakadályozza a felülírást, kivéve ha a "DELETE" billentyűt használják (a backspace nem engedélyezett, de a törlést nehéz megállítani ). Amit tettem, egy adatellenőrzést adtam hozzá a következő beállításokkal:

1) Engedélyezés --> List

2) törölje a jelet az "Üres figyelmen kívül hagyása" és a "cellán belüli legördülő menü" jelölőnégyzetből.

3) A forrásba írjon be két idézőjelet (pl. "")

4) A Hibafigyelmeztetés lapon jelölje be a "Hibaváltozás megjelenítése érvénytelen adatok megadása után", válassza a "Stop" lehetőséget a stílushoz, majd írjon be egy hibaüzenetet és leírást (pl. Ne írjon felül)
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia,
Köszönöm a megosztást.
A weboldal moderátora ezt a megjegyzést minimalizálta
VBA kód – Nagyszerű tipp köszönöm

Létezik olyan VBA-kód, amely megakadályozza, hogy bizonyos cellatartalmak módosuljanak ÉS töröljék az Excelben?
A szokásos védőlap nem működik számomra, mivel elvesztettem az adatok rendezésének képességét?

Előre is köszönöm - Neil
A weboldal moderátora ezt a megjegyzést minimalizálta
"Adott cellatartalom törlésének megakadályozása a munkalap védelmével" Az Ön útmutatása szerint tettem, de a cellaadatok mégis törölhetők, azaz a védelem nem működik. Bármilyen megoldás.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Ahsan!
Alkalmaztad a VBA módszert?
Hozzá kell adnia a VBA-t a munkalapkód ablakhoz. Tegyük fel, hogy a védeni kívánt cellatartalom a Sheet9-ben található, kérjük, kattintson a jobb gombbal a lapfülre, és válassza a Kód megtekintése parancsot a helyi menüből, majd közvetlenül másolja a kódot a kódablakba az alábbi képen látható módon.
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló! Ez a kód jól működik, de a sor/oszlop törlése megkerüli. Van erre valami megoldás? Egészségedre, David.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia David,
Melyik Excel verziót használod? Kipróbáltam a kódot, a megadott tartományban lévő teljes sorok és oszlopok nem törölhetők a kód alkalmazása után.
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm az értékes információkat.
Az alábbi VBA-val kapcsolatban:
Private Sub Worksheet_Change (ByVal Target mint Range)
Ha a metszéspont(cél, tartomány("A1:E7")) semmi, akkor lépjen ki az alból
Hiba esetén GoTo ExitPoint
Application.EnableEvents = Hamis
Ha nem IsDate(Cél(1)) Akkor
Alkalmazás.Visszavonás
MsgBox " Ebből a tartományból nem törölheti a cella tartalmát " _
, vbCritical, "Kutools for Excel"
Ha véget
Kilépési pont:
Application.EnableEvents = Igaz
End Sub

A fentiek lehetővé teszik a végrehajtást egy bizonyos meghatározott tartományon belül. Nem teszi lehetővé új sorok hozzáadását. Van-e mód új sorok hozzáadására, de ugyanaz a védelem megmarad.
Köszönettel és üdvözlettel
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Oussama Abou faraj!
Különböző módszerekkel való próbálkozás után úgy tűnik, nem tudom ezt működésre bírni. Új sor hozzáadása után a terület azonnal zárolásra kerül, és az újonnan beszúrt cella nem szerkeszthető.
A weboldal moderátora ezt a megjegyzést minimalizálta
Lehetséges valami hasonlót csinálni munkafüzet szinten?

Private Sub Worksheet_Change (ByVal Target mint Range)
Ha a metszéspont(cél, tartomány("A1:M7000")) semmi, akkor lépjen ki az alból
Hiba esetén GoTo ExitPoint
Application.EnableEvents = Hamis
Ha nem IsDate(Cél(1)) Akkor
Alkalmazás.Visszavonás
MsgBox " Ebből a tartományból nem törölheti a cella tartalmát " _
, vbCritical, "Kutools for Excel"
Ha véget
Kilépési pont:
Application.EnableEvents = Igaz
End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Gelu!
Arra gondol, hogy megakadályozza az "A1:M7000" tartomány törlését az aktuális munkafüzet összes munkalapjáról?
A weboldal moderátora ezt a megjegyzést minimalizálta
Nem, úgy értettem, hogy NEM engedélyezem a törlést (a wks vagy wkb védelme nélkül).

Jó, hogy a fenti Wks szinten működik.

Ha van valami, hogy wkb szinten működjön, az még jobb lenne (sok lapom van)

G
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez remek. Azon tűnődtem, hogy ez egy lehetőség-e, és az is biztos, hogy az volt. Köszönöm a nagyon egyszerű utasításokat.

Andres S.
Az 5-t az 5-ből kiértékelte
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi