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
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:
2. I Gå till Special dialogrutan väljer du Blanks från Välja avsnitt, se skärmdump:
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:
4. Klicka OKOch klicka sedan på översyn > Skydda arket, ange och bekräfta lösenordet efter behov, se skärmdump:
5. Klicka OK för att stänga dialogerna, och nu har alla dataceller skyddats och lämnar bara de tomma cellerna oskyddade.
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
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...
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!
