Как да заключите и предварително защитите непразни клетки в Excel?
Да предположим, че имам работен лист, който попълва някои празни клетки в диапазона от данни, сега искам да заключа и защитя всички клетки с данни и да оставя празните клетки отключени, за да въведа нова стойност. Как бихте могли да заключите и защитите непразните клетки толкова бързо, колкото можете в Excel?
Заключете и защитите всички непразни клетки в избран диапазон с Protect Sheet
Заключете и защитете всички непразни клетки в използван диапазон с VBA код
Заключете и защитите всички непразни клетки в избран диапазон с Protect Sheet
Обикновено можете да завършите тази работа в Excel със следния метод стъпка по стъпка:
1. Изберете диапазона от клетки, който искате да заключите и защитите клетките с данни, след което щракнете Начало > Търсене и избор > Отидете на Special, вижте екранна снимка:
2. В Отидете на Special изберете диалоговия прозорец Заготовки от Изберете раздел, вижте екранна снимка:
3, След това кликнете OK и всички празни клетки са избрани наведнъж, след което натиснете Ctrl + 1 за да отворите Форматиране на клетки диалогов прозорец, под Защита , премахнете отметката от Заключен опция, вижте екранна снимка:
4. Щракнете OK, А след това върху Оценки на посетители > Защита на листа, след това въведете и потвърдете паролата, както ви е необходима, вижте екранната снимка:
5. Щракнете OK за да затворите диалоговите прозорци и сега всички клетки с данни са защитени и само празните клетки остават незащитени.
Заключете и защитете всички непразни клетки в използван диапазон с VBA код
Горният метод има няколко стъпки, за да го постигнете възможно най-бързо, следният VBA код може да ви направи услуга, моля, направете следното:
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2, След това кликнете Поставете > Модулии поставете следния код в Модули Window.
VBA код: Заключване и защита на всички непразни клетки в работен лист
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. И след това натиснете F5 за изпълнение на този код, само непразни клетки са защитени наведнъж в използвания диапазон.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
