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

Jak chronić lub blokować wartości komórek na podstawie koloru tła?

Przypuśćmy, że mam duży arkusz roboczy i wiele komórek jest wypełnionych różnymi kolorami tła, teraz chcę zablokować lub chronić komórki na podstawie określonego wypełnienia, na przykład blokowanie lub ochrona wszystkich komórek kolorem czerwonym. Czy są jakieś dobre metody radzenia sobie z tym zadaniem w programie Excel?

Chroń lub blokuj wartości komórek na podstawie koloru tła za pomocą kodu VBA


strzałka niebieski prawy bąbelek Chroń lub blokuj wartości komórek na podstawie koloru tła za pomocą kodu VBA

Na przykład chcę zablokować i chronić wszystkie czerwone krwinki, aby uniemożliwić innym użytkownikom modyfikowanie tych wartości komórek, następujący kod VBA może rozwiązać to zadanie za Ciebie, wykonaj następujące czynności:

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.

Kod VBA: Chroń lub blokuj wartości komórek na podstawie koloru:

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

Uwagi: W powyższym kodzie numer 3 w ciągu indeks koloru = 3 skrypt wskazuje czerwone komórki, które chcę zablokować, możesz zmienić go na inny indeks koloru, który chcesz zablokować.

3. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a tylko komórki koloru czerwonego zostały zablokowane, inne komórki są odblokowane w używanym zakresie aktywnego arkusza, patrz zrzut ekranu:

Doc lock komórki według koloru 1

4. Jeśli chcesz chronić je przed modyfikacją przez innych użytkowników, wystarczy zastosować rozszerzenie Chroń arkusz funkcja ochrony tego arkusza.

Wskazówki: Aby uzyskać numer indeksu kolorów, możesz zastosować następującą funkcję zdefiniowaną przez użytkownika:

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

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
officetab dół
Sortuj komentarze według
Komentarze (4)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam,
j'aurais voulu savoir si il était możliwe de faire la meme wybrał mais avec la valeur de la cellule plutôt que la couleur?
Przykład: Verrouiller toutes les cellules nie ma wartości „-” na plage B2:E25.

Merci d'Avance
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy można to zastosować do arkusza ze scalonymi komórkami i czy rozpoznaje kolor komórki oparty na formatowaniu warunkowym? Chcę zablokować komórki, które mają kod koloru 15 i te komórki mają kod koloru 15 na podstawie formatu warunkowego. Z góry dziękuję.
Ten komentarz został zminimalizowany przez moderatora na stronie
Jak uruchomić to w pętli, aby wszystkie komórki we wszystkich arkuszach, które nie mają określonego koloru, były chronione?
Ten komentarz został zminimalizowany przez moderatora na stronie
Bonjour, yat il une astuce quand la feuille est protégée d utiliser le panel des couleurs dans longlet accueil pour mettre un fond de couleur sur les cases non protégés merci
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL