如何根據背景顏色保護或鎖定單元格值？

假設我有一個很大的工作表，並且多個單元格填充了不同的背景顏色，現在，我想根據某些填充顏色來鎖定或保護單元格，例如鎖定或保護所有紅色的單元格。在 Excel 中有什麼好方法可以處理這個任務嗎？

使用 VBA 代碼根據背景顏色保護或鎖定單元格值

使用 VBA 代碼根據背景顏色保護或鎖定單元格值

例如，我想鎖定並保護所有紅色單元格，以防止其他用戶修改這些單元格值，以下 VBA 代碼可以幫助您完成此操作，請按照以下步驟進行：

1. 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2. 點擊 插入 > 模塊，並將以下代碼粘貼到模塊窗口中。

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

注意：在上述代碼中，colorIndex = 3 腳本中的數字 3 表示我要鎖定的紅色單元格，您可以將其更改為您想鎖定的其他顏色索引。

3. 然後按 F5 鍵運行此代碼，只有紅色單元格被鎖定，在當前工作表的已用範圍內，其他單元格均被解鎖，請參見截圖：

4. 如果您希望防止其他用戶修改它們，只需應用 保護工作表 功能來保護此工作表即可。

提示：要獲取顏色索引號，您可以應用以下用戶定義函數：

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

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！