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

發布:未知文本批量工具

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

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

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

例如，我要鎖定和保護所有紅色單元格，以防止其他用戶修改這些單元格值，以下VBA代碼可以為您解決此工作，請按以下步驟操作：

1。按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。

2。點擊插頁 > 模塊，然后將以下代碼粘貼到模塊窗口。

VBA代碼：根據顏色保護或鎖定單元格值：

Sub lockcellsbycolor()Updateby ExtendofficeDim colorIndex As IntegercolorIndex = 3Dim xRg As RangeApplication.ScreenUpdating = FalseFor Each xRg In ActiveSheet.UsedRange.CellsDim color As Longcolor = xRg.Interior.colorIndexIf (color = colorIndex) ThenxRg.Locked = TrueElsexRg.Locked = FalseEnd IfNext xRgApplication.ScreenUpdating = TrueMsgBox "All specified color cells have been locked!", vbInformation, "Kutools for Excel"End SubCopy

備注：在上面的代碼中，數字 3 字幕可視電話用于 顏色索引 = 3 腳本指示我要鎖定的紅色單元格，您可以將其更改為要鎖定的其他顏色索引。

3。然后按 F5 運行此代碼的鍵，并且只有紅色單元格已被鎖定，在活動工作表的使用范圍內其他單元格已解鎖，請參見屏幕截圖：

4。如果您想防止其他用戶修改它們，則只需應用 保護工作表 保護此工作表的功能。

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

Function GetColor(x As Range) As IntegerGetColor = x.Interior.ColorIndexEnd FunctionCopy