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 het 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 Beoordeling > 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.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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 honderden muisklikken voor u elke dag!