Марокс для excel по защите строк

[IgorGO]

понятно... повиснет. он не висит, он считает, у 2007 офиса размер листа 1 048 576 строк и 16 384 столбца, умножим две эти цифры столько ячеек. У вас уже были примеры, как обрабатывать не все ячейки листа а только те, что нужны...
удачи

[evutk]

Я пытался таким образом сделать, но лочит в итоге абсолютно все:

Sub ProtectYellow()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange.Cells
If cell.Interior.ColorIndex = 6 Then
cell.Locked = True: Exit Sub
End If
If cell.Interior.ColorIndex = 3 Then
cell.Locked = True: Exit Sub
End If
Next
ActiveSheet.Protect UserInterfaceOnly:=True, Password:="456"

End Sub

---
EducatedFool,
к сожалению, с Вашим вариантом та же проблема происходит - лок на все ячейки идет :\

[IgorGO]

может предварительно защиту с листа снять?
и Sub ProtectYellow надо переименовывать - уже не только желтые защищаются. Плохо когда название процедуры не соответствует выполняемой задаче.

[EducatedFool]

EducatedFool,
к сожалению, с Вашим вариантом та же проблема происходит - лок на все ячейки идет :\

Что значит на все?
Проверял несколько раз - блокируются только ячейки выбранных цветов.

Если Вы берете пустой лист, и красите на нём пару ячеек, то макрос обработает лишь малую часть листа (так как основная часть ячеек находится в неиспользуемой области.

Если же на листе есть данные, в области данных блокируются только те ячейки, цвет которых прописан в макросе.

Вот еще раз пример макроса:
Создайте новую книгу Excel, и запустите сначала макрос PaintCells, а потом ЗащититьЦветныеЯчейки

Ну и проверяйте.
Заблокированы только ячейки 4-х выбранных цветов (с цифрами от 4 до 7)

Sub ЗащититьЦветныеЯчейки() ' проверено в Excel 2003
    ActiveSheet.Unprotect
    [e40] = "текст": [k66] = 45687
    Dim cell As Range
    For Each cell In ActiveSheet.UsedRange.Cells    ' перебираем все ячейки в используемой области листа
        Select Case cell.Interior.ColorIndex
            Case 4, 5, 6, 7: cell.Locked = True    ' блокируем ячейки этих цветов
            Case Else: cell.Locked = False ' остальные разблокируем
        End Select
    Next
    ActiveSheet.Protect UserInterfaceOnly:=True
End Sub

Sub PaintCells()    ' красим некоторые ячейки в разные цвета
    ActiveSheet.UsedRange.Clear
    For i = 4 To 20
        For j = 6 To 32
            Cells(j, i).Interior.ColorIndex = (i + j) Mod 10
            Cells(j, i) = (i + j) Mod 10
        Next
    Next
End Sub

Sub СнятьЗащитуЛиста()
    ActiveSheet.Unprotect
End Sub