Удалить модуль, строку в модуле не получается

@Tigerskin · Регистрация: 27.06.2012

Author24 — интернет-сервис помощи студентам

Такой вод код:

Visual Basic

Sub gh()
d = ActiveWorkbook.VBProject.VBComponents.Item("Module2").CodeModule.Lines(2, 1) '- читает строку модуля 2 нормально
ActiveWorkbook.VBProject.VBComponents.Item("Module2").CodeModule.DeleteLines 2, 1 '- нчего не происходит
ActiveWorkbook.VBProject.VBComponents.Item("Module2").CodeModule.ReplaceLine 2, "новая" '- ничего не происходит
ActiveWorkbook.VBProject.VBComponents.Item("Module2").CodeModule.InsertLines 1, "yjdfz" '- ничего не происходит
End Sub

Почему так? Может подключить чего надо?

@Pavel55 · 18.08.2007, 02:17

Точно не знаю, но начиная с MS Excel XP - <STRONG>Серсис/Макрос/Безопасность/Надежные источники/ </STRONG>установить флажок <STRONG>Доверять доступ к Visual Basic Project</STRONG>

@Tigerskin · 20.08.2007, 14:27 **[ТС]**

Не... Это понятно, без этого не работает... Попробовал дома на XP - модули удаляет без вопросов, строки удаляет, но ругается.... Я так понимаю это виндовые глюки

)) И ничем не спастись

)

@Pavel55 997 / 356 / 135 Регистрация: 27.10.2006 Сообщений: 764
	18.08.2007, 02:17	2
	Точно не знаю, но начиная с MS Excel XP - <STRONG>Серсис/Макрос/Безопасность/Надежные источники/ </STRONG>установить флажок <STRONG>Доверять доступ к Visual Basic Project</STRONG> 0

@Tigerskin 1 / 1 / 0 Регистрация: 27.06.2012 Сообщений: 39
	20.08.2007, 14:27 [ТС]	3
	Не... Это понятно, без этого не работает... Попробовал дома на XP - модули удаляет без вопросов, строки удаляет, но ругается.... Я так понимаю это виндовые глюки )) И ничем не спастись ) 0