Як заблокувати та попередньо визначити непорожні клітинки в Excel?
Припустимо, у мене є аркуш, який заповнює деякі порожні клітинки в межах діапазону даних, тепер я хочу заблокувати та захистити всі комірки даних, а порожні комірки залишити розблокованими, щоб ввести якесь нове значення. Як ви могли лише зафіксувати та захистити непусті клітинки так швидко, наскільки це можливо в Excel?
Зафіксуйте та захистіть усі непусті клітини у вибраному діапазоні за допомогою Protect Sheet
Зафіксуйте та захистіть усі непорожні комірки у використаному діапазоні за допомогою коду VBA
Зафіксуйте та захистіть усі непусті клітини у вибраному діапазоні за допомогою Protect Sheet
Зазвичай ви можете закінчити цю роботу в Excel наступним способом покроково:
1. Виберіть діапазон комірок, які потрібно заблокувати та захистити комірки даних, а потім клацніть Головна > Знайти та вибрати > Перейти до спеціального, див. скріншот:
2, в Перейти до спеціального діалогове вікно, виберіть Бланки від Select розділ, див. знімок екрана:
3. Потім натисніть OK , і всі порожні клітинки були виділені відразу, а потім натисніть Ctrl + 1 ключі, щоб відкрити Формат ячеек у діалоговому вікні під захист вкладка зніміть прапорець Заблокований варіант, див. скріншот:
4. Клацання OK, А потім натисніть Розгляд > Захистити аркуш, потім введіть і підтвердьте пароль, як вам потрібно, див. знімок екрана:
5. Клацання OK щоб закрити діалогові вікна, і тепер усі комірки даних захищені, і лише порожні клітинки залишаються незахищеними.
Зафіксуйте та захистіть усі непорожні комірки у використаному діапазоні за допомогою коду VBA
Вищевказаний метод має кілька кроків, щоб досягти його якомога швидше, наступний код VBA може зробити вам послугу, будь ласка, зробіть так:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Потім натисніть Insert > Модуліта вставте наступний код у Модулі Вікно
Код 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% та зменшує сотні клацань миші для вас щодня!