Как выделить все ячейки с разблокированным выбором в Excel?
Как известно, ячейки Excel по умолчанию заблокированы. При защите листа, чтобы иметь возможность изменять значения определённых ячеек, их сначала нужно разблокировать. Но как найти и выделить все разблокированные ячейки, если вы хотите внести изменения?
Выделение всех Разблокировать выбор с помощью кода VBA
Выделение всех Разблокировать выбор с помощью Kutools для Excel
Выделение всех Разблокировать выбор с помощью кода VBA
Следующий код VBA поможет вам быстро выделить все ячейки с разблокированным выбором. Выполните следующие действия:
1. Удерживая клавиши ALT + F11, откройте окно Microsoft Visual Basic для приложений.
2 Нажмите Вставка > Модуль и вставьте приведённый ниже код в окно модуля.
Код VBA: выделение всех Разблокировать выбор
Sub SelectUnlockedCells()
'Update 20130830
Dim WorkRng As Range
Dim OutRng As Range
Dim Rng As Range
On Error Resume Next
Set WorkRng = Application.ActiveSheet.UsedRange
Application.ScreenUpdating = False
For Each Rng In WorkRng
If Rng.Locked = False Then
If OutRng.Count = 0 Then
Set OutRng = Rng
Else
Set OutRng = Union(OutRng, Rng)
End If
End If
Next
If OutRng.Count > 0 Then OutRng.Select
Application.ScreenUpdating = True
End Sub
3. Затем нажмите клавишу F5, чтобы запустить этот код. Все ячейки с параметром «Разблокировать выбор» будут выделены. После этого вы сможете изменять значения этих ячеек, даже если лист защищён.
Примечания：
- 1. Если на вашем листе отсутствует хотя бы одна опция «Разблокировать выбор», этот код работать не будет.
- 2. Этот код VBA работает только с используемым диапазоном.
Выделение всех Разблокировать выбор с помощью Kutools для Excel
Если вы не знакомы с кодом VBA, вы также можете одним щелчком выделить все незаблокированные ячейки с помощью инструмента Выбрать незаблокированные ячейки из пакета Kutools для Excel.
Kutools для Excel: более 300 удобных надстроек для Excel — бесплатная пробная версия без ограничений на 30 дней! Получить сейчас.
Если вы уже установили Kutools для Excel, выполните следующие действия:
1. Выделите диапазон или весь лист, чтобы выбрать разблокированные ячейки.
2. Нажмите Kutools > Выделить > Выбрать незаблокированные ячейки.
3. Все элементы с опцией «Разблокировать» в вашем выделении будут сразу выбраны, как показано на следующем снимке экрана:
Если вы хотите узнать больше об этой функции, нажмите Выбрать незаблокированные ячейки.
Связанная статья:
Как определить и выделить все Заблокировать выбор в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек