Hoppa till huvudinnehåll

Hur låser och förhandsskyddar celler som inte är fria i Excel?

Om jag antar att jag har ett kalkylblad som fyller i några tomma celler inom dataområdet, nu vill jag låsa och skydda alla dataceller och lämna de tomma cellerna olåsta för att mata in något nytt värde. Hur kunde du bara låsa och skydda de icke tomma cellerna så snabbt du kan i Excel?

Lås och skydda alla icke-tomma celler i ett valt område med Skydda ark

Lås och skydda alla icke-tomma celler i ett använt område med VBA-kod


pil blå höger bubbla Lås och skydda alla icke-tomma celler i ett valt område med Skydda ark

Normalt kan du avsluta det här jobbet i Excel med följande metod steg för steg:

1. Välj det cellintervall som du vill låsa och skydda datacellerna och klicka sedan Hem > Hitta och välj > Gå till Special, se skärmdump:

doc lås icke-tomma celler 1

2. I Gå till Special dialogrutan väljer du Blanks från Välja avsnitt, se skärmdump:

doc lås icke-tomma celler 2

3. Klicka sedan OK knappen och alla tomma celler har markerats på en gång och tryck sedan på Ctrl + 1 nycklar för att öppna Formatera celler under dialogrutan Skydd fliken, avmarkera Låst alternativ, se skärmdump:

doc lås icke-tomma celler 3

4. Klicka OKOch klicka sedan på översyn > Skydda arket, ange och bekräfta lösenordet efter behov, se skärmdump:

doc lås icke-tomma celler 4

5. Klicka OK för att stänga dialogerna, och nu har alla dataceller skyddats och lämnar bara de tomma cellerna oskyddade.


pil blå höger bubbla Lås och skydda alla icke-tomma celler i ett använt område med VBA-kod

Ovanstående metod har flera steg, för att uppnå det så snabbt du kan kan följande VBA-kod göra dig en tjänst, vänligen gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka sedan Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Lås och skydda alla icke-tomma celler i ett kalkylblad

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. Och tryck sedan på F5 för att köra den här koden, skyddas endast icke-tomma celler på en gång i det använda intervallet.

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations