Макрос работал, а потом ПЕРЕСТАЛ и начал выдавать ОШИБКУ!!!

[Legachoff]

Макрос работал, а потом ПЕРЕСТАЛ и начал выдавать ОШИБКУ!!!
Ошибка вот здесь:
Rows(k + r + p + 1) .Insert Shift:=xlDown
а потом: метод Insert из класа Range завершен неверно.

Самое удивительное что 10 мин назад он нармально работал...

http://wikikak.org/
http://text-books.ru/

[alibek]

Защита листа наверное включена. Либо k+r+p+1 равно недопустимому значению.

[Legachoff]

да защита листа, вкл и вкл макросом, и выдает тоже ошибку: нельзя установить cвойств Locked класса Range.

[alibek]

Ну а что ты тогда хочешь?
Включенная защита листа означает, что нельзя менять его структуру.

[Legachoff]

оно начинает глючить в том плане что защита листа включаеться так:

Sub protection()
ActiveSheet.Protect ("602")
Rows("1:4000").Locked = True
End Sub

выдает ошибку:нельза установить свойство Lock класса Range

а при снятии защиты пока всё ок:

Sub ProtectionOptions()
ActiveSheet.Unprotect ("602")
'Unlock row 1.
Rows("1:4000").Locked = False
End If

[alibek]

Вначале Lock, потом Protect. И, соответственно, наоборот.

[Legachoff]

Спасибо большое! и за терпение тоже...