хелп помогите исправить модуль (защита ячейки)

[umka]

Если пишу то все нормально когда вставляю в свой модуль не блакирует ячейки, кто знает эту тему прошу стукните в асю или ответе выложу макрос в который вставляю
Sub test()
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
x = 4
Do While x <> 6
x = x + 1
lin = "a" & (x)
lin2 = "h" & (x)
Range("" + lin + " :" + lin2 + "").Select
Selection.Locked = True
Selection.FormulaHidden = False
Loop
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowDeletingColumns:=True, AllowDeletingRows:=True
End Sub

[GSerg]

Ещё раз, медленнее, понятнее и немного более по-русски, пожалуйста.

[umka]

GSerg
была проблема с блокировкой ячеек хз почему но все посмотрел все номано спасибо за отклик
обрисую ситуацию нужно что бы модуль создовал таблицу в которой присутствуют формулы , строку в которой занесены формуы нужно защетить от записи это сделал но!!!! теперь не могу 1)добавить строки
2)в первом столбце необходимо задать фомат даты для того что бы при изминении даты можно было подключить сартировку и макрос вырезал строки с и встовлял в тот диапазон где соответствующая дата
вот весь модуль:
Sub test()

Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
a = 7
b = 10

Do While data <> 4
data = data + 1
dataitog = data & (".1.2006")

a = a + 4
b = b + 4

y = "c" & (b)
z = "d" & (b)
x = "e" & (b)

lin = "a" & (b)
lin2 = "h" & (b)

Cells(a, 1).Value = data & (".1.2006")
Cells(b, 2).Value = "ÈÒÎÃÎ " & dataitog

Range(y).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-" & b - a & "]C:R[-1]C)"

Range(z).Select
ActiveCell.FormulaR1C1 = "=SUM(R[-" & b - a & "]C:R[-1]C)"

Range(x).Select
ActiveCell.FormulaR1C1 = "=R[-" & b - a + 1 & "]C+RC[-2]-RC[-1]"

Range("" + lin + " :" + lin2 + "").Select
Selection.Locked = True
Selection.FormulaHidden = False
Range("" + lin + " :" + lin2 + "").Select
With Selection.Interior
.ColorIndex = 40
.Pattern = xlSolid
End With

Loop
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowDeletingColumns:=True, AllowDeletingRows:=True
End Sub