Kako preprečiti brisanje določene vsebine celic v Excelu?
Ta članek govori o preprečevanju brisanja določene vsebine celic v Excelu. To lahko dosežete z metodami v tem članku.
Preprečite brisanje določene vsebine celice z zaščito delovnega lista
S kodo VBA preprečite brisanje določene vsebine celice
Preprečite brisanje določene vsebine celice z zaščito delovnega lista
Vse celice na delovnem listu so privzeto zaklenjene. Če želite preprečiti brisanje določene vsebine celic in omogočiti urejanje drugih celic po zaščiti, storite naslednje.
1. Kliknite 
v zgornjem levem kotu delovnega lista, da izberete celoten delovni list. Nato pritisnite Ctrl + 1 tipke za odpiranje Oblikuj celice pogovorno okno.
2. V pojavnem oknu Oblikuj celice pogovorno okno, počistite polje Zaklenjen možnost pod Zaščita kartico in nato kliknite OK . Oglejte si posnetek zaslona:
3. Izberite celice, za katere ne želite, da se vsebina izbriše, pritisnite Ctrl + 1 tipke za odpiranje Oblikuj celice znova pogovorno okno, preverite Zaklenjen možnost pod Zaščita kartico in nato kliknite OK gumb.
4. Zdaj kliknite pregled > Zaščitite list, nato določite in potrdite svoje geslo v obeh Zaščitite list in potrdi geslo pogovorna okna.
Zdaj je delovni list zaščiten. In navedena vsebina celice ne bo več izbrisana.
S kodo VBA preprečite brisanje določene vsebine celice
Poleg zgornjih dveh metod lahko zaženete tudi kodo VBA, da preprečite brisanje določene vsebine celice na delovnem listu. Naredite naslednje.
1. Odprite delovni list, ki vsebuje vsebino celice, ki je ne želite izbrisati, z desno miškino tipko kliknite jeziček Sheet in nato kliknite Ogled kode v meniju z desnim klikom.
2. Kopirajte in prilepite spodnjo kodo VBA v okno Code na Microsoft Visual Basic za aplikacije okno.
Koda VBA: preprečite brisanje določene vsebine celic v Excelu
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 SubOpombe: V kodi je A1: E17 obseg, katerega vsebina celice ne bo izbrisana. Razpon lahko spremenite glede na vaše potrebe.
Od zdaj naprej, ko poskušate izbrisati vsebino celice iz obsega A1: E17, boste dobili Kutools za Excel pogovorno okno, kot je prikazano na spodnji sliki zaslona, kliknite OK gumb.
Sorodni članki:
- Kako preprečiti brisanje določenega delovnega lista v Excelu?
- Kako preprečiti izbiro več delovnih listov v Excelu?
Najboljša orodja za pisarniško produktivnost
Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%
- Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
- Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
- Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
- Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
- Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
- Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
- Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
- Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
- Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
