Cum se blochează și se protejează celulele neocupate în Excel?
Presupunând că am o foaie de lucru care completează unele celule goale din intervalul de date, acum vreau să blochez și să protejez toate celulele de date și să las celulele goale deblocate pentru a introduce o valoare nouă. Cum ați putea să blocați și să protejați celulele care nu sunt goale cât de repede puteți în Excel?
Blocați și protejați toate celulele neocupate dintr-un interval selectat cu Protect Sheet
Blocați și protejați toate celulele neocupate dintr-un interval folosit cu cod VBA
Blocați și protejați toate celulele neocupate dintr-un interval selectat cu Protect Sheet
În mod normal, puteți finaliza această lucrare în Excel cu următoarea metodă pas cu pas:
1. Selectați intervalul de celule pe care doriți să le blocați și să le protejați celulele de date, apoi faceți clic pe Acasă > Găsiți și selectați > Du-te la Special, vezi captura de ecran:
2. În Du-te la Special fereastră de dialog, selectați Blanks de la Selectați secțiune, vezi captura de ecran:
3. Apoi apasa OK și toate celulele goale au fost selectate simultan, apoi apăsați Ctrl + 1 tastele pentru a deschide Celule de format caseta de dialog, sub Protecţie filă, debifați blocat opțiune, vezi captura de ecran:
4. Clic OK, apoi faceți clic pe Recenzie > Protejați foaia, apoi introduceți și confirmați parola după cum aveți nevoie, consultați captura de ecran:
5. Clic OK pentru a închide ferestrele de dialog și acum, toate celulele de date au fost protejate și lasă celulele goale neprotejate.
Blocați și protejați toate celulele neocupate dintr-un interval folosit cu cod VBA
Metoda de mai sus are mai mulți pași, pentru a o realiza cât mai repede posibil, următorul cod VBA vă poate face o favoare, vă rugăm să faceți acest lucru:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Apoi apasa Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: Blocați și protejați toate celulele neocupate dintr-o foaie de lucru
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. Și apoi apăsați F5 cheie pentru a rula acest cod, doar celulele non-blank sunt protejate simultan în intervalul utilizat.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!