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 pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
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!
