如何修改VBA宏实现按颜色锁定解锁Excel所有工作表单元格？

以下是修改后的完整代码，可实现遍历工作簿内所有工作表，解锁颜色索引为36的黄色单元格，同时锁定所有非黄色单元格：

Sub UnlockYellowCellsAllSheets()
    Dim ws As Worksheet
    Dim cell As Range
    
    ' 遍历工作簿中的每个工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 先取消工作表保护（若已保护，否则无法修改单元格锁定状态）
        If ws.ProtectContents Then
            ws.Unprotect
        End If
        
        ' 遍历当前工作表的已使用区域
        For Each cell In ws.UsedRange
            If cell.Interior.ColorIndex = 36 Then
                ' 黄色单元格设置为解锁
                cell.Locked = False
            Else
                ' 非黄色单元格设置为锁定
                cell.Locked = True
            End If
        Next cell
        
        ' 重新保护工作表，启用用户界面仅保护模式
        ws.Protect UserInterfaceOnly:=True
    Next ws
End Sub

关键改动说明 #

• 遍历所有工作表：使用For Each ws In ThisWorkbook.Worksheets循环，替代原代码中指定单个Sheet1的写法，自动处理工作簿内所有工作表
• 完善逻辑：补充Else分支，实现“锁定非黄色单元格”的需求（原代码仅解锁黄色单元格，未处理非黄色单元格的锁定状态）
• 权限处理：增加工作表保护判断，先取消保护再修改单元格锁定属性，避免因工作表已保护导致的操作失败
• 对象一致性：所有单元格操作基于当前循环的ws对象，避免硬编码工作表名称，提升代码通用性

内容的提问来源于stack exchange，提问作者Runwithforks