виж това дали ще ти свърши работа

Sub ProtectCell()

Worksheets("Sheet1").Unprotect

For i = 1 To 50
For j = 1 To 5
If Cells(i, j).Interior.Color = Range("H1").Interior.Color Then
Cells(i, j).Locked = True
Else
Cells(i, j).Locked = False
End If
Next j
Next i



Worksheets("Sheet1").Protect

End Sub


като в област H1 - ти е цвета който отговаря на заключените клетки, вече може да увеличиш цикъла до колкото ти е необходимо и да преместиш вместо в H1 цвета да ти е в друга клетка или в друг лист

вместо това

Range("H1").Interior.Color

мисля, че можеш и да сложиш и номера който съответства на цвета който искаш да имат клетките, така ще избегнеш задаването на цвят на някой клетка която да взимаш за сравнение. Не съм го пробвал но ако уцелиш цвета и номера не мисля, че ще има проблем.

Редактирано от alexoff на 14.09.04 17:11.