Помогите со скриптом "не выключающим мне всё"

[Alex_2006]

Пожалуйста
Нужен скрипт который не будет позволять делать это с моим 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 видны и загружены. Такое впечатление что политика Галактики перекрывает экселевские параметры запуска или я не прав. ПОмогите Пожалуйста. КАк убить галактические хитрости.

[AiK]

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

[Alex_2006]

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