Kako zaščititi ali zakleniti vrednosti celic glede na barvo ozadja?
Recimo, da imam velik delovni list in da je več celic napolnjenih z različnimi barvami ozadja, zdaj pa želim celice zakleniti ali zaščititi na podlagi določene zapolnjene barve, na primer zaklepanje ali zaščito vseh celic z rdečo barvo. Ali obstajajo dobre metode za reševanje te naloge v Excelu?
Zaščitite ali zaklenite vrednosti celic glede na barvo ozadja s kodo VBA
Zaščitite ali zaklenite vrednosti celic glede na barvo ozadja s kodo VBA
Na primer, želim zakleniti in zaščititi vse rdeče celice, da drugim uporabnikom preprečim spreminjanje teh vrednosti celic, vam lahko to nalogo reši naslednja koda VBA, naredite tako:
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
Koda VBA: Zaščiti ali zakleni vrednosti celic glede na barvo:
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
Opombe: V zgornji kodi številka 3 znotraj barvni indeks = 3 skript označuje rdeče barvne celice, ki jih želim zakleniti, lahko jih spremenite v drug barvni indeks, ki ga želite zakleniti.
3. Nato pritisnite F5 ključ za zagon te kode in zaklenjene so bile samo rdeče barvne celice, druge celice se odklenejo v uporabljenem obsegu aktivnega lista, glejte posnetek zaslona:
4. Če jih želite zaščititi pred spreminjanjem drugih uporabnikov, morate samo uporabiti Zaščitite list funkcija za zaščito tega delovnega lista.
Namigi: Če želite pridobiti številko barvnega indeksa, lahko uporabite naslednjo uporabniško določeno funkcijo:
Function GetColor(x As Range) As Integer
GetColor = x.Interior.ColorIndex
End Function
Najboljša orodja za pisarniško produktivnost
Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%
- Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
- Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
- Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
- Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
- Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
- Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
- Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
- Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
- Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
