Hoe niet-lege cellen in Excel te vergrendelen en vooraf te beveiligen?

Stel dat ik een werkblad heb dat enkele lege cellen binnen het gegevensbereik bevat, nu wil ik alle gegevenscellen vergrendelen en beschermen en de lege cellen ontgrendeld laten om een nieuwe waarde in te voeren. Hoe kon je de niet-lege cellen alleen zo snel mogelijk vergrendelen en beschermen in Excel?

Vergrendel en bescherm alle niet-lege cellen in een geselecteerd bereik met Bescherm blad

Vergrendel en bescherm alle niet-lege cellen in een gebruikt bereik met VBA-code

Vergrendel en bescherm alle niet-lege cellen in een geselecteerd bereik met Bescherm blad

Normaal gesproken kunt u deze taak in Excel stap voor stap voltooien met de volgende methode:

1. Selecteer het celbereik dat u wilt vergrendelen en de gegevenscellen wilt beveiligen, en klik vervolgens op Home > Zoek en selecteer > Ga naar speciaal, zie screenshot:

2. In de Ga naar speciaal dialoogvenster, selecteer blanks van de kies sectie, zie screenshot:

3. Dan klikken OK en alle lege cellen zijn tegelijk geselecteerd, en druk vervolgens op Ctrl + 1 toetsen om de te openen Cellen opmaken dialoogvenster onder het Bescherming tab, verwijder het vinkje Vergrendeld optie, zie screenshot:

4. Klikken OKEn klik op Review > Bescherm het blad, voer vervolgens het wachtwoord in en bevestig het zoals je nodig hebt, zie screenshot:

5. Klikken OK om de dialoogvensters te sluiten, en nu zijn alle datacellen beschermd en laten alleen de lege cellen onbeschermd.

Vergrendel en bescherm alle niet-lege cellen in een gebruikt bereik met VBA-code

De bovenstaande methode heeft meerdere stappen, om dit zo snel mogelijk te bereiken, kan de volgende VBA-code je een plezier doen, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Dan klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: vergrendel en bescherm alle niet-lege cellen in een werkblad

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. En druk vervolgens op F5 sleutel om deze code uit te voeren, worden alleen niet-lege cellen tegelijk beschermd in het gebruikte bereik.

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop...

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!