Kako zakleniti in pretektirati neprazne celice v Excelu?
Recimo, da imam delovni list, ki zapolni nekaj praznih celic znotraj obsega podatkov, zdaj pa želim zakleniti in zaščititi vse podatkovne celice ter pustiti prazne celice odklenjene, da vnesem neko novo vrednost. Kako bi lahko samo prazne celice zaklenili in zaščitili čim hitreje v Excelu?
Zaščitite in zaščitite vse neprazne celice v izbranem obsegu z zaščitnim listom
Vse neprazne celice v uporabljenem obsegu zaklenite in zaščitite s kodo VBA
Zaščitite in zaščitite vse neprazne celice v izbranem obsegu z zaščitnim listom
Običajno lahko to opravilo v Excelu dokončate po korakih po korakih:
1. Izberite obseg celic, ki ga želite zakleniti in zaščititi podatkovne celice, nato pa kliknite HOME > Poiščite in izberite > Pojdi na posebno, glej posnetek zaslona:
2. v Pojdi na posebno pogovorno okno, izberite Blanks Iz Izberite razdelek, glej posnetek zaslona:
3. Nato kliknite OK naenkrat so bile izbrane vse prazne celice in nato pritisnite Ctrl + 1 tipke za odpiranje Oblikuj celice v pogovornem oknu pod Zaščita jeziček, počistite polje Zaklenjen možnost, glej posnetek zaslona:
4. Kliknite OKIn nato pregled > Zaščitite list, nato vnesite in potrdite geslo, kot ga potrebujete, glejte posnetek zaslona:
5. Kliknite OK , da zaprete pogovorna okna, in zdaj so vse podatkovne celice zaščitene, prazne celice pa ostanejo samo zaščitene.
Vse neprazne celice v uporabljenem obsegu zaklenite in zaščitite s kodo VBA
Zgornja metoda ima več korakov. Če jo želite doseči čim hitreje, vam lahko naslednja koda VBA naredi uslugo, storite tako:
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. Nato kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
Koda VBA: Zaklenite in zaščitite vse neprazne celice na delovnem listu
Sub UnlockEmptyCells()
'Updateby Extendoffice
Application.ScreenUpdating = False
Cells.Locked = True
Selection.SpecialCells(xlCellTypeBlanks).Locked = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
End Sub
3. In nato pritisnite F5 ključ za zagon te kode, v uporabljenem obsegu so naenkrat zaščitene samo neprazne celice.
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!