解锁特定颜色的单元格并锁定所有其他单元格

Question

我有一个包含22个单独工作表的工作簿。

我将输入单元格颜色为绿色。是否有一个公式/宏自动解锁绿色单元格并锁定其他所有内容。

Answer 1

试试这个 - 在必要时替换ColorIndex和工作表名称

Sub test()

    Dim ws As Worksheet
    Set ws = Worksheets("Sheet1")
    For Each cell In Sheet1.UsedRange
        If cell.Interior.ColorIndex = 35 Then
            cell.Locked = False
        End If
    Next

    ws.Protect userinterfaceonly:=True

End Sub

如果您需要帮助循环浏览每个工作表，请告诉我。