Developing.ru

Пожалуйста
Нужен скрипт который не будет позволять делать это с моим Excel-ом:

Private Sub CommandButton1_Click()
Dim exAp As New Excel.Application
Dim wb As Workbook
Dim ws As Worksheet
Dim i As Integer
' В этом экселе надстроек не будет!!!
exAp.Visible = True
For i = 1 To exAp.AddIns.Count
exAp.AddIns.Item(i).Installed = False
Next i
Set wb = exAp.Workbooks.Add
Set ws = wb.Worksheets.Add
MsgBox "OPA! Alt-F11 - NO XLA!"
wb.Close False
exAp.Quit
Set exAp = Nothing
End Sub
Предполажительно это примерный текст макроса из-за которого у меня не работает надстройка
Т.Е.:
есть Макрос который в xla работает отлично.Проверял его подключение и путь даже в regedit. Сам по себе xla запускается.
Но как только я открываю программный комплекс Галактика и выбираю нужный мне отчёт с выводом данных в excel
и открываю VBA и вижу ни фига ,хотя там на самом деле подключено около 6 разных xla . А если просто открыть excel то все xla видны и загружены. Такое впечатление что политика Галактики перекрывает экселевские параметры запуска или я не прав. ПОмогите Пожалуйста. КАк убить галактические хитрости.

Alex_2006, ты уверен, что правильный раздел для своего сообщения выбрал?

Мне нужен своего рода патч который не будет давать выключать надстройки во время запуска Excel из ПК Галактика.
На самом деле это очень необходимо.Так как через __.xla мы исправили много недоработок.В регэдиторе мой XLA значится ка OPEN3.