Hvordan beskyttes eller låses celleværdier baseret på baggrundsfarve?
Antag, jeg har et stort regneark, og flere celler er fyldt med forskellige baggrundsfarver. Nu vil jeg låse eller beskytte cellerne baseret på en bestemt fyldt farve, såsom at låse eller beskytte alle celler med rød farve. Er der nogen gode metoder til at håndtere denne opgave i Excel?
Beskyt eller lås celleværdier baseret på baggrundsfarve med VBA-kode
Beskyt eller lås celleværdier baseret på baggrundsfarve med VBA-kode
For eksempel vil jeg låse og beskytte alle røde celler for at forhindre andre brugere i at ændre disse celleværdier, kan følgende VBA-kode løse dette job for dig, gør venligst som dette:
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.
VBA-kode: Beskyt eller lås celleværdier baseret på farve:
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
Bemærk: I ovenstående kode, nummeret 3 i farveindeks = 3 scriptet angiver de røde farveceller, jeg vil låse, du kan ændre det til et andet farveindeks, som du vil låse.
3. Tryk derefter på F5 nøgle til at køre denne kode, og kun celler med rød farve er blevet låst, andre celler låses op i det anvendte område af det aktive ark, se skærmbillede:
4. Hvis du vil beskytte dem mod at blive ændret af andre brugere, skal du bare anvende Beskyt ark funktion for at beskytte dette regneark.
Tip: For at få farveindeksnummeret kan du anvende følgende brugerdefinerede funktion:
Function GetColor(x As Range) As Integer
GetColor = x.Interior.ColorIndex
End Function
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!