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

Як захистити або заблокувати значення комірок на основі кольору тла?

Припустимо, у мене є великий аркуш, і кілька комірок заповнені різними кольорами тла, тепер я хочу зафіксувати або захистити комірки на основі певного заповненого кольору, наприклад, заблокувати або захистити всі комірки червоним кольором. Чи є якісь методи для вирішення цього завдання в Excel?

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


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

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

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код 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 клавішу для запуску цього коду, і заблоковано лише клітинки червоного кольору, інші клітинки розблоковані в використовуваному діапазоні активного аркуша, див. знімок екрана:

doc lock комірки за кольором 1

4. Якщо ви хочете захистити їх від модифікації іншими користувачами, вам просто потрібно застосувати Захистити аркуш функція для захисту цього аркуша.

Поради: Щоб отримати номер індексу кольорів, ви можете застосувати таку функцію, яку визначає користувач:

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

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (4)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Привіт,
j'aurais voulu savoir si il était possible de faire la même chose mais avec la valeur de la cellule plutôt que la couleur?
Приклад: Verrouiller заявляє, що клітини не мають значення "-" де 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 oglet accueil pour mettre un fond de couleur sur les case non protégés merci
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL