Lock and unlock cells in Excel based on color in all worksheets

Question

To unlock all yellow cells (colour index 36) and lock all non-yellow cells, I'm attempting to develop a vba macro. The code below runs, but I'm having trouble putting it in a for loop so that it runs through all of the sheets in my workbook rather than just "Sheet1."

Sub test()

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

    ws.Protect userinterfaceonly:=True

End Sub

Answer 1

The following should function if you actually want this to execute on every worksheet in your workbook:

Sub test()
    'declarations
    Dim ws As Worksheet
    'loop through each worksheet (ws) in active workbook
    For Each ws In ActiveWorkbook.Worksheets
        'remove protection
        ws.Unprotect
        'lock all cells
        ws.UsedRange.Cells.Locked = True
        'loop through used range
        For Each cell In ws.UsedRange
            'unlock cells based on color index
            If cell.Interior.ColorIndex = 36 Then cell.MergeArea.Locked = False
        Next
        'reprotect sheet
        ws.Protect userinterfaceonly:=True
    Next
End Sub