поиск не заблокированных ячеек макросом

[NoLL]

Господа! Помогите!
Казалось бы мелочь, можно ли на листе найти, при помощи макроса, незаблокированные ячейки(тоесть там где не стоит галочка на блоке в формате ячейки и что бы макрос закрашивал их краным?

Неважно заблокирован лист или нет.

[EducatedFool]

Понажимайте кнопочки в файле-примере:



Вот весь код:

Sub Закрасить()
    Dim cell As Range: Application.ScreenUpdating = False
    For Each cell In ActiveSheet.UsedRange.Cells
        If Not cell.Locked Then cell.Interior.Color = vbRed
    Next cell
End Sub

Sub Очистить()
    ActiveSheet.UsedRange.Interior.ColorIndex = 0
End Sub

[NoLL]

Огромное спасибо!!

[vostok]

Всем привет! А я вот защищаю ячейки столбцами, а в данном примере после 40-й ячейки не красит, почему?

[EducatedFool]

а в данном примере после 40-й ячейки не красит, почему?

Потому, что ячейки перебираеются только в используемой части листа: ActiveSheet.UsedRange

Ячейки приходится перебирать в цикле - поэтому перебор ВСЕХ ячеек на листе (да ещё и с их раскраской) весьма замедлит макрос.