Highlight protected cells in Excel

Ever wondered how you can view protected cells in Excel at a glance?
Here's how.

Sub Highlight_Locked_Cells()
'Color all cells that are locked in the sheet in yellow; 46 for orange instead of 6.
Dim mCell As Range
For Each mCell In ActiveSheet.UsedRange.Cells
If mCell.Interior.ColorIndex = 6 Then mCell.Interior.ColorIndex = 0
Next
For Each mCell In ActiveSheet.UsedRange.Cells
If mCell.Locked = True Then mCell.Interior.ColorIndex = 6
Next
Exit Sub
End Sub

Sub Remove_Highlight_Locked_Cells()
For Each mCell In ActiveSheet.UsedRange.Cells
If mCell.Interior.ColorIndex = 6 Then mCell.Interior.ColorIndex = 0
Next
Exit Sub
End Sub