Hvordan låses og præbeskytter celler, der ikke er beskadiget i Excel?
Antag, at jeg har et regneark, der udfylder nogle tomme celler inden for dataområdet, nu vil jeg låse og beskytte alle dataceller og lade de tomme celler være ulåste for at indtaste en ny værdi. Hvordan kunne du kun låse og beskytte de ikke-tomme celler så hurtigt som muligt i Excel?
Lås og beskyt alle ikke-tomme celler i et valgt område med Beskyt ark
Lås og beskyt alle ikke-tomme celler i et brugt område med VBA-kode
Lås og beskyt alle ikke-tomme celler i et valgt område med Beskyt ark
Normalt kan du afslutte dette job i Excel med følgende metode trin for trin:
1. Vælg det celleområde, du vil låse og beskytte datacellerne, og klik derefter Home > Find og vælg > Gå til Special, se skærmbillede:
2. I Gå til Special dialogboksen, vælg Blanks fra Type sektion, se skærmbillede:
3. Klik derefter på OK knappen, og alle tomme celler er blevet valgt på én gang, og tryk derefter på Ctrl + 1 nøgler til at åbne formater celler under dialogboksen Beskyttelse fanen, fjern markeringen Låst mulighed, se skærmbillede:
4. Klik OK, Og klik derefter på anmeldelse > Beskyt ark, indtast og bekræft derefter adgangskoden efter behov, se skærmbillede:
5. Klik OK for at lukke dialogerne, og nu er alle dataceller blevet beskyttet og efterlader kun de tomme celler ubeskyttede.
Lås og beskyt alle ikke-tomme celler i et brugt område med VBA-kode
Ovenstående metode har flere trin, for at opnå det så hurtigt som du kan, kan følgende VBA-kode gøre dig en tjeneste, gør venligst som dette:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik derefter på indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Lås og beskyt alle ikke-tomme celler i et regneark
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. Og tryk derefter på F5 nøglen til at køre denne kode, kun ikke-blanke celler er beskyttet på én gang i det brugte område.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!