Прескочи на основното съдържание

Как да заключите и отключите определени клетки с квадратче за отметка в Excel?

Автор: Силувия Последна промяна: 2020-09-07

Тази статия говори за използване на квадратче за отметка за заключване и отключване на диапазон от посочени клетки в Excel.

Заключете и отключете определени клетки с квадратче за отметка, като използвате VBA код


Заключете и отключете определени клетки с квадратче за отметка, като използвате VBA код

Скриптът VBA по-долу може да ви помогне да отключите или заключите диапазон от посочени клетки, когато поставяте или премахвате отметка в квадратче в работен лист. Моля, направете следното.

1. Първо, трябва да посочите име на диапазона от клетки, които трябва да заключите и отключите с квадратче за отметка.

Тук избирам диапазон A1:A14, въвеждам име LockRng в Име и след това натиснете Въведете ключ. Вижте екранна снимка:

2. В работния лист съдържа квадратчето за отметка, което ще използвате за заключване и отключване на клетки, щракнете с десния бутон върху раздела Лист и след това щракнете върху Преглед на кода от менюто с десен бутон.

Забележка: Квадратчето за отметка трябва да бъде квадратче за отметка ActiveX, когато вмъквате.

3. При изскачане Microsoft Visual Basic за приложения прозорец, моля, копирайте и поставете кода VBA по-долу в код прозорец.

VBA код: Заключване или отключване на диапазон от посочени клетки с квадратче за отметка

Private Sub CheckBox1_Click()
    Range("LockRng").Select
    On Error Resume Next
    If CheckBox1.Value = True Then
        Selection.Locked = Fals
        MsgBox "Range cells " & Selection.Address & " has been unlocked", vbInformation, "Kutools for Excel"
    Else
        Selection.Locked = True
        MsgBox "Range cells " & Selection.Address & " has been locked", vbInformation, "Kutools for Excel"
    End If
End Sub

Забележка: В кода Checkbox1 е името на квадратчето за отметка, LockRng е името на указаната клетка с диапазон. Можете да ги промените според нуждите си.

4. Натисни Друг + Q клавиши едновременно, за да затворите Microsoft Visual Basic за приложения прозорец.

Сега можете да тествате кода. Когато премахнете отметката от квадратчето, a Kutools за Excel ще се появи диалогов прозорец, за да ви каже, че посоченият диапазон е заключен, моля, щракнете върху OK бутон.

Докато поставяте отметка в квадратчето, всички клетки в посочения диапазон ще бъдат отключени и ще получите Kutools за Excel диалоговия прозорец, както е показано на дясната екранна снимка по-долу.


Свързани статии:

Най-добрите инструменти за продуктивност в офиса

🤖 Kutools AI помощник: Революционизирайте анализа на данни въз основа на: Интелигентно изпълнение   |  Генериране на код  |  Създаване на персонализирани формули  |  Анализирайте данни и генерирайте диаграми  |  Извикване на функциите на Kutools...
Популярни функции: Намерете, маркирайте или идентифицирайте дубликати   |  Изтриване на празни редове   |  Комбинирайте колони или клетки без загуба на данни   |   Кръг без формула ...
Супер търсене: VLookup с множество критерии    VLookup с множество стойности  |   VLookup в няколко листа   |   Размито търсене ....
Разширен падащ списък: Бързо създаване на падащ списък   |  Зависим падащ списък   |  Падащ списък с множество избори ....
Мениджър на колони: Добавете конкретен брой колони  |  Преместване на колони  |  Превключване на състоянието на видимост на скритите колони  |  Сравнете диапазони и колони ...
Препоръчани функции: Мрежов фокус   |  Изглед на дизайна   |   Голям формула бар    Мениджър на работни книги и листове   |  Библиотека с ресурси (Автоматичен текст)   |  Избор на дата   |  Комбинирайте работни листове   |  Шифроване/декриптиране на клетки    Изпращайте имейли по списък   |  Супер филтър   |   Специален филтър (филтър получер/курсив/зачертано...) ...
Топ 15 комплекта инструменти12 Текст Инструменти (добавяне на текст, Премахване на символи, ...)   |   50 + Графика Видове (диаграма на Гант, ...)   |   40+ Практичен формули (Изчислете възрастта въз основа на рождения ден, ...)   |   19 вмъкване Инструменти (Въведете QR код, Вмъкване на картина от пътя, ...)   |   12 Конверсия Инструменти (Числа към думи, Валутен обмен, ...)   |   7 Обединяване и разделяне Инструменти (Разширено комбиниране на редове, Разделени клетки, ...)   |   ... и още

Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време.  Щракнете тук, за да получите функцията, от която се нуждаете най-много...

Описание


Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна

  • Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
  • Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations