|
|
|
Убрать макрос в Excel перед открытием книги
|
|||
|---|---|---|---|
|
#18+
Пытаюсь по нижеприведённому коду (взяла когда-то из форума) удалить макрос в Excel-книге,но.... то сначала Access мне пишет, что-то там про недоверии при программном доступе к VB-проекту. В безопасности, в настройках Excel ставлю соответствующую галку, мол, доверять доступ к VB-проекту (это как-то можно тоже не ручками а программно рулить?) Но и тогда Access ругается, что Subscript out of range на строчку with VBProj.VBComponents .Remove .Item("ИмяМодуля") end with Подскажите, можно ли как-то удалить макрос перед открытием книги, чтобы юзер не пугался сообщения про макрос??? Dim objXLS As Excel.Application Dim objWKB As Excel.Workbook Dim VBEObj As Object Dim VBProj As Object Set objXLS = New Excel.Application objXLS.Visible = False Set objWKB = objXLS.Workbooks.Open("C:\book0.xls") Set VBEObj = objXLS.VBE Set VBProj = objWKB.VBProject with VBProj.VBComponents .Remove .Item("ИмяМодуля") end with objWKB.Close objXLS.Quit В данном примере устанавливается, что определенный компонент семейства VBComponents является модулем, а затем этот модуль удаляется с помощью метода Remove. Debug.Print Application.VBE.ActiveVBProject.VBComponents(4).Name Application.VBE.ActiveVBProject.VBComponents.Remove Application.VBE.ActiveVBProject.VBComponents(4) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.06.2003, 11:51 |
|
||
|
Убрать макрос в Excel перед открытием книги
|
|||
|---|---|---|---|
|
#18+
насчет безопасности если получить сертификат , можно самоподписаный то в случае если он в списке доверия и им подписан твой код - при запуске никакой ругани не будет ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.06.2003, 13:22 |
|
||
|
|

start [/forum/topic.php?fid=45&fpage=1794&tid=1681162]: |
0ms |
get settings: |
11ms |
get forum list: |
17ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
46ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
37ms |
get tp. blocked users: |
2ms |
| others: | 219ms |
| total: | 354ms |

| 0 / 0 |
