Соответсвенно из 1с

Макрос Excel'я вызывается дважды. И почему? И как лечить?

Microsoft Office Excel: Программный доступ к проекту Visual Basic не является доверенным
будем копать

А чего там копать? Сервис-Параметры-Безопасность-Безопасность макросов. Где то там галка - Доверять доступ к макросам.
Ну или с сертификацией воевать :)

(3) Почему ты никогда не даёшь возможности подумать человеку самому?

Послать в поиск, если только можно было. А думать, вданном случае - если не знаешь то и не придумаешь.
Ладно, каюсь.

заклевали
факт в том что это не на одной машине надо делать а сомневаюсь что безопасность можно будет отключить макросом

(5) Вот из-за таких как ты, поколение просто тупых одинэсников уже вытесняется поколением одинэсников-идиотов ...

Вот видишь, уже обвиняют, что старые дятлы клюют новичков :(
(7)RedT.

безопаснотьь низкая такая же ерунда (2)

(9) :( я не об уровне безопасности говорил

(10) :)) не дочитал все нормально

Процедура ВосстановитьРеестр()
   WshShell = СоздатьОбъект("WScript.Shell");
   Для к=1 По СпРеестр.РазмерСписка() Цикл
       Стр="";
       ЗнРег=СпРеестр.ПолучитьЗначение(к,Стр);
       WshShell.RegWrite(Стр,Число(ЗнРег),"REG_DWORD");
   КонецЦикла;
КонецПроцедуры    // ВосстановитьРеестр

Процедура СнизитьБезопасность()
   WshShell = СоздатьОбъект("WScript.Shell");
   WshShell.RegWrite("HKCU\Software\Microsoft\Office\","","REG_SZ");
   Для к=7 По 12 Цикл
       WshShell.RegWrite("HKCU\Software\Microsoft\Office\"+к+".0\","","REG_SZ");
       WshShell.RegWrite("HKCU\Software\Microsoft\Office\"+к+".0\Word\","","REG_SZ");
       WshShell.RegWrite("HKCU\Software\Microsoft\Office\"+к+".0\Word\Security\","","REG_SZ");
       Попытка
           СпРеестр.Установить("HKCU\Software\Microsoft\Office\"+к+".0\Word\Security\Level",WshShell.RegRead("HKCU\Software\Microsoft\Office\"+к+".0\Word\Security\Level"));
           WshShell.RegWrite("HKCU\Software\Microsoft\Office\"+к+".0\Word\Security\Level", 1, "REG_DWORD");
       Исключение
           WshShell.RegWrite("HKCU\Software\Microsoft\Office\"+к+".0\Word\Security\Level", 1, "REG_DWORD");
           СпРеестр.Установить("HKCU\Software\Microsoft\Office\"+к+".0\Word\Security\Level",WshShell.RegRead("HKCU\Software\Microsoft\Office\"+к+".0\Word\Security\Level"));
       КонецПопытки;
       Попытка
           СпРеестр.Установить("HKCU\Software\Microsoft\Office\"+к+".0\Word\Security\AccessVBOM",WshShell.RegRead("HKCU\Software\Microsoft\Office\"+к+".0\Word\Security\Level"));
           WshShell.RegWrite("HKCU\Software\Microsoft\Office\"+к+".0\Word\Security\AccessVBOM", 1, "REG_DWORD");
       Исключение
           WshShell.RegWrite("HKCU\Software\Microsoft\Office\"+к+".0\Word\Security\AccessVBOM", 1, "REG_DWORD");
           СпРеестр.Установить("HKCU\Software\Microsoft\Office\"+к+".0\Word\Security\AccessVBOM",WshShell.RegRead("HKCU\Software\Microsoft\Office\"+к+".0\Word\Security\Level"));
       КонецПопытки;
   КонецЦикла;
КонецПроцедуры    // СнизитьБезопасность

А как запустить макрос с параметром?.

а как пойти нах?

(14)идиот?

(13) если в книге, не в модуле то просто
oExel.SuperPuperSub(Параметр);
а так где угодно
oExel.run("SuperPuperSub",Пар1,Пар2,Пар3);
первое предпочтительнее, во втором варианте передаваемые параметры невсегда хорошо передаются...