Jak chránit nebo uzamknout hodnoty buněk na základě barvy pozadí?
Předpokládejme, že mám velký list a více buněk je vyplněno různými barvami pozadí. Nyní chci zamknout nebo chránit buňky na základě určité vyplněné barvy, jako je uzamčení nebo ochrana všech buněk červenou barvou. Existují nějaké dobré metody pro řešení tohoto úkolu v aplikaci Excel?
Chraňte nebo uzamkněte hodnoty buněk na základě barvy pozadí pomocí kódu VBA
Chraňte nebo uzamkněte hodnoty buněk na základě barvy pozadí pomocí kódu VBA
Například chci zamknout a chránit všechny červené krvinky, aby ostatní uživatelé nemohli tyto hodnoty buněk upravovat, může vám tuto práci vyřešit následující kód VBA, udělejte to takto:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Chraňte nebo uzamkněte hodnoty buněk na základě barvy:
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
Poznámka: Ve výše uvedeném kódu číslo 3 v rámci colorIndex = 3 skript označuje červené barevné buňky, které chci zamknout, můžete jej změnit na jiný barevný index, který chcete zamknout.
3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a uzamkly se pouze buňky červené barvy, ostatní buňky se odemknou v použitém rozsahu aktivního listu, viz screenshot:
4. Pokud je chcete chránit před úpravami jinými uživateli, stačí použít Chraňte plech funkce k ochraně tohoto listu.
Tipy: Chcete-li získat číslo indexu barev, můžete použít následující Uživatelem definovanou funkci:
Function GetColor(x As Range) As Integer
GetColor = x.Interior.ColorIndex
End Function
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!