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