Недавно нашла такую штука.
"Если в книге Excel есть макросы, то при открытии - взависимости от того какой уровень безопасности, появляется или не появляется предупреждение, что в книге есть макросы-они могут быть опасными или не опасными, что с ними делать " - это прописная истина мелкософтовских.
Так вот на досуге написала такую хрень - извините за выражение
Внешняя обработка при запуске - создает и замисывает Макрос в личную книгу
макросов или Шаблон.dot все это сохраняет или записываем программно макрос и его запускаем никаких вопросов не возникает ! Тут прикололась на коллегами - мужичками ...Макрос при автозапуске находит все файлы 1Cv7.MD (берет сведения из реестра) и переименовывает их в 1Cv7.MD (но только тут "С" и "M" русские) Они чуть с ума не со шли. Будьте осторожны в работе.

или нужно было тему назвать 1С и VBA ?
"....я не вижу Ваших рук" (с)

>>...создает и замисывает Макрос в личную книгу
>>макросов или Шаблон.dot все это сохраняет или записываем программно
>>макрос и его запускаем никаких вопросов не возникает !
Для того, чтобы такое стало возможно (запись макроса программно), в настройках безопасности VBA должна стоять галочка "Доверять доступ к Visual Basic Projects". Если она стоит у юзеров - ну минус вашим админам

За что так с нами - мужиками ;(

За такую шутку и вывод из работы баз по голове не погладят...
Интересно, где это за такие шутки не свернули еще голову?

При программном открытии книги Excel проверка на макросы не производится.
По этому избежать открытия из Вне, можно только закрыв книгу паролем.

(2) Савсем не обязательно...

(6) пример в студию можно?

(0) Создание вредоносных программ?

(7)
Что еще один "Фома неверующий"...
Процедура СнизитьБезопасность()
  WshShell = СоздатьОбъект("WScript.Shell");
  WshShell.RegWrite("HKCU\Software\Microsoft\Office\","","REG_SZ");
  Для к=7 По 12 Цикл
    СпРеестр.Установить("HKCU\Software\Microsoft\Office\"+к+".0\Word\Security\Level",WshShell.RegRead("HKCU\Software\Microsoft\Office\"+к+".0\Word\Security\AccessVBOM"));
    СпРеестр.Установить("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\AccessVBOM", 1, "REG_DWORD");
  КонецЦикла;
КонецПроцедуры // СнизитьБезопасность
...
Это если вам на 1С нада...
Кстати, (5) прав, при ОЛЕ "нас рать..." на безопасность, но вот доступ к проекту надо обходить как я указал тут...

Поправочка
СпРеестр.Установить("HKCU\Software\Microsoft\Office\"+к+".0\Word\Security\AccessVBOM",WshShell.RegRead("HKCU\Software\Microsoft\Office\"+к+".0\Word\Security\AccessVBOM"));

(7)
Вы не верите ?
Нет, вы не верите...
Поезжайте в киев и спросите кто такой Паниковский... (с)

(9-11) Если админу не положить на безопасность, он закроет доступ по записи на эти ветки реестра и все..

Затейника выявить и групповое избиение ногами в живот. А нет, стоп, не так. Затейницу выявить и групповое изнасилование.

(12) Лажу не пори... ты хоть позырь что за ветка...

(13) а где можно в очередь записаться? :-D

(14) Лажу не порю. Права можно раздавать/убирать на любые ветки, в т.ч. HKCU (она же HKEYS_USERS с соответствующим сидом). Потренируйся :)

Тогда чушь порешь...
Вы не верите ?
Нет, вы не верите...
Поезжайте в киев и спросите кто такой Паниковский... (с)

(17) Ваше мнение интересно, но оно неправильное :)

(18) Правдо, правильное, закрывать hkcu савсем нельзя, а ветки отдельные этож надо админу слишком много знать, чего в реалиях мало бывает...
Да и "перенаправить" можно на другую ветку...
А по ОЛЕ еще раз скажу, наплевать на все безопасности...

(19) целиком на HKCU конечно нельзя. Надо только на эту веточку. Нормальный админ ничего не делает руками - пишет скрипты и проливает их на всех компах

А как написать скрипт и распространнить на все ? Тож хотелось бы поучиться, потренироваться...

(21)
1. Перебрать компы в домене
Option Explicit
Dim Dom, Comp
Set Dom = GetObject("WinNT://MY_DOMAIN")
Dom.Filter = Array("Computer")
' Цикл по всем компам домена
For Each Comp In Dom
  'необходимые действися с Comp.Name
Next
2. Для запуска скрипта на удаленном компе пожно, например, юзать psехес.exe (www.sysinternals.com)
Например:
psехес.exe \\CompName -u MY_DOMAIN\pupkin -p pupkin_pwd cscript.exe \\Server\Share\Script.vbs
Наши админы, правда, в основном через доменную политику делают. Т.е. скрипт выполняется при логоне.

Бальшое человеческое спасибо, может еще чего подскажешь ?

а где этот psехес взять, и по Set Dom = GetObject("WinNT://MY_DOMAIN") этому где инфы набраться ?

PsExec
http://www.sysinternals.com/Utilities/PsExec.html

А теперь всеже...(ладно больше не буду издиваться)
Поезжайте в Киев и спросите кто такой Паниковский... (с)

Про GetObject("WinNT://MY_DOMAIN") посмотри в MSDN, еще вот тут много примеров (script_center.chm):
http://www.microsoft.com/downloads/details.aspx?FamilyID=b4cb2678-dafb-4e30-b2da-b8814fe2da5a&DisplayLang=en

Особое спасибо за МСДН...

Посмотри еще script_repository_1_1.chm
http://master.lermus.ru/storage/Документация/WINDOWS/script_repository_1_1.chm

Ладно хорош...
Почитай всеже (11) и (26) ...

анутянах

(31) Создай ветку с вопросом кто я есть такой ? (немного посамохвалюсь)

(13)Мальчики, как вы любите тешить своё мужское самолюбие )))
Там где вы учились - я преподовала

2(33) чего чего довала?

(33) Когда я учился, думаю ты дай бог еще в садик ходила...

(35) мало ли чего она преподОвала... бывают такие молоденькие да опытные, что тебе учиться и учиться