Note: The other languages of the website are Google-translated. Back to English

Как защитить или заблокировать значения ячеек на основе цвета фона?

Предположим, у меня есть большой рабочий лист, и несколько ячеек заполнены разными цветами фона, теперь я хочу заблокировать или защитить ячейки на основе определенного цвета заливки, например, заблокировать или защитить все ячейки красным цветом. Есть ли какие-нибудь хорошие методы для решения этой задачи в Excel?

Защита или блокировка значений ячеек на основе цвета фона с помощью кода VBA


стрелка синий правый пузырь Защита или блокировка значений ячеек на основе цвета фона с помощью кода VBA

Например, я хочу заблокировать и защитить все красные ячейки, чтобы другие пользователи не могли изменять эти значения ячеек, следующий код VBA может решить эту задачу за вас, пожалуйста, сделайте следующее:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: защита или блокировка значений ячеек на основе цвета:

Sub lockcellsbycolor()
'Updateby Extendoffice
    Dim colorIndex As Integer
    colorIndex = 3
    Dim xRg As Range
    Application.ScreenUpdating = False
    For Each xRg In ActiveSheet.UsedRange.Cells
        Dim color As Long
        color = xRg.Interior.colorIndex
        If (color = colorIndex) Then
            xRg.Locked = True
        Else
            xRg.Locked = False
        End If
    Next xRg
    Application.ScreenUpdating = True
    MsgBox "All specified color cells have been locked!", vbInformation, "Kutools for Excel"
End Sub

Внимание: В приведенном выше коде число 3 в индекс цвета = 3 скрипт указывает ячейки красного цвета, которые я хочу заблокировать, вы можете изменить его на другой индекс цвета, который вы хотите заблокировать.

3, Затем нажмите F5 ключ для запуска этого кода, и только ячейки красного цвета были заблокированы, другие ячейки разблокированы в используемом диапазоне активного листа, см. снимок экрана:

док-блокировка ячеек по цвету 1

4. Если вы хотите защитить их от изменения другими пользователями, вам просто нужно применить Защитить лист функция для защиты этого листа.

Советы: Чтобы получить номер индекса цвета, вы можете применить следующую функцию, определяемую пользователем:

Function GetColor(x As Range) As Integer
GetColor = x.Interior.ColorIndex
End Function

Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (4)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Привет,
j'aurais voulu savoir si il était, возможно, de faire la même selected mais avec la valeur de la cellule plutôt que la couleur?
Например: Verrouiller toutes les cellules dont la valeur est "-" de la plage B2:E25.

Merci d'Avance
Этот комментарий был сведен к минимуму модератором на сайте
Можно ли это применить к листу с объединенными ячейками и может ли он распознать цвет ячейки, основанный на условном форматировании? Я хочу заблокировать ячейки с цветовым кодом 15, а эти ячейки имеют цветовой код 15 на основе условного формата. Заранее спасибо.
Этот комментарий был сведен к минимуму модератором на сайте
Как запустить это в цикле, чтобы все ячейки на всех листах, которые не имеют определенного цвета, были защищены?
Этот комментарий был сведен к минимуму модератором на сайте
Bonjour, yat il une astuce quand la feuille est protégée d utiliser le panel des couleurs dans l onglet accueil pour mettre un Fond de Couleur sur les case non protégés merci
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL