Нарушая запреты (Доступ к VBA из 1С)

20.06.11

Администрирование - Информационная безопасность

Программный доступ к VBA

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование		По подписке [?]	Купить один файл
Макрос.ert .ert 19,50Kb 283	283	Скачать (1 SM)	Купить за 1 850 руб.

макрос в обход СБОП (системы безопасности офисного приложения).

Все нижеизложенное представлено исключительно в поучительных целях, И АВТОР НЕ НЕСЕТ НИКАКОЙ ОТВЕТСТВЕННОСТИ ЗА ПОСЛЕДСТВИЯ, КОТОРЫЕ МОГУТ ПРОИЗОЙТИ ВСЛЕДСТВИЕ ПРОЧТЕНИЯ ПРЕДЛОЖЕННОГО МАТЕРИАЛА. Итак, если вы согласны, то читайте дальше - иначе попрошу вас удалиться...

На примере MS EXCEL если в файле есть макрос. То при открытии книги появится вопрос (открывать или не открывать) и предупреждение "типа макросы отключены". Все по честному...в настройках имеется 4 уровня безопасности (Очень высокая,Высокая,Средняя и Низкая) А у Вас какая ))))

Но.....если знать имя файла и имя нужного макроса из 1С программно он открывается не смотря на уровни безопасности

код типа

Ехсел=СоздатьОбъект("Excel.Application");
......
Ехсел.Run("МойМакрос");

А если у нас нет такого файлика EXCEL можем ли мы сами его создать ?

Да.Создаем файл.Создаем макрос.....

(кнопка "Пробуем создать макрос напрямую")

и вот засада при запуске умная программа будет ругаться

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

обидно.но нас же это не остановит

(кнопка "Создаем макрос не смотря на запреты")

создаст книгу с макрос и выполнит его - MS EXCEL узнает тебя !

(прим.автора. а макросы бывают ой какие разные)

Сразу для тех кто любит спорить - отвечаю представлен самый простой способ получить доступ (и он не у всех сработает)

но как говорится попытка, не пытка, а пример (кто предупрежден, тот вооружен)

Кто знает тот меня поймет о чем я (для тех кто не знает, сохраните созданный файл EXCEL сами ручками "программно специально не стал сохранять" и откройте его вновь)

+34 –

См. также

Проверка часового пояса

Информационная безопасность Универсальные функции Программист Платформа 1С v7.7 Бесплатно (free)

При использовании терминалок для удаленных баз, иногда при входе в базу данных необходимо исключить возможность входа пользователей с компьютеров с другим часовым поясом. Например, работают в Новосибирской базе с временем UTC +6 и пытаются зайти в базу с UTC +3.

16.05.2016 13198 kudenzov 3

Злоумышленник зашифровал базы 1С и другие файлы

Информационная безопасность Защита ПО и шифрование Системный администратор Программист Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Звонит пользователь, на экране сообщение ваши данные зашифрованы, введите пароль, пишите письма и т.д.

1 стартмани

08.11.2014 40749 44 aleksch21 85

Отчет по правам пользователей для любой конфигурации "1С:Предприятия 7.7"

Информационная безопасность Системный администратор Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Инструмент для наглядного анализа и сравнения наборов прав доступа в 1С 7.7 Работает в любых конфигурациях. В одной из обслуживаемых мной баз 40 наборов прав пользователей (120 пользователей). Этим отчетом очень наглядно выходит анализировать разницу в правах и просто описывать права пользователей в документации. Обновлено: - В новой версии отчета добавил сравнение двух разных баз и анализ внешней БД. - объекты метаданных представлены в виде дерева (объект "Дерево-Таблица значений" FormEx)

1 стартмани

11.02.2014 25504 166 Amel2010 15

Проверка прав доступа текущего пользователя. 1с 7.7

Информационная безопасность Системный администратор Платформа 1С v7.7 Конфигурации 1cv7 Украина Абонемент ($m)

Показывает права доступа текущего пользователя в базе 1с 7.7 .

1 стартмани

10.06.2013 21201 51 demon_sw 11

Расширенные права пользователей для Торговля и Склад 7.7 (из режима "Предприятие" с детализацией по всем видам документов, справочников, отчетов и обработок)

Информационная безопасность Системный администратор Программист Оперативный учет 7.7 1С:Торговля и склад 7.7 Абонемент ($m)

Если вы обслуживаете Торговлю и Склад 7.7 и устали менять права на документы и справочники по заданию руководства и список Наборов прав стал просто нечитаемым, то вам сюда.

1 стартмани

05.02.2013 20438 43 malinko.vasiliy 5

Индивидуальная установка даты запрета редактирования документов в торговле 1С 7.7

Информационная безопасность Закрытие периода Системный администратор Оперативный учет 7.7 1С:Торговля и склад 7.7 Россия Управленческий учет Абонемент ($m)

Установка даты запрета редактирования документов индивидуально для каждого пользователя,а также предоставление в индивидуальном порядке разрешения изменения конкретных документов в определенные периоды или в конкретные дни.Срок действия установок устанавливается вами. Вы можете спокойно настроить и уехать в отпуск.

1 стартмани

17.01.2013 31395 50 agent007_1 10

Управление правами в 7.7 - "на лету" до каждой кнопочки!

Информационная безопасность Системный администратор Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Система управления правами доступа "на лету" для конфигураций на платформе 1С:Предприятие 7.7. - Онлайн :: Не требует выхода пользователей. - Умная :: Позволяет управлять доступом хоть к каждой кнопке на форме. - Универсальная :: Встраивается в любую конфигурацию за 1 минуту! - Преемственная :: Сохраняет настройки существующих наборов прав.

1 стартмани

22.11.2012 35216 171 gavlexx 48

Блокиратор запуска Информационной Базы

Инструменты администратора БД Информационная безопасность Системный администратор Платформа 1С v7.7 Конфигурации 1cv7 Абонемент ($m)

Блокирует запуск Информационной базы при входе пользователя

1 стартмани

25.10.2012 15283 14 sam-soft 9

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. Арчибальд 2709 15.05.09 09:10 Сейчас в теме

Очеь загадочно.

3. Tatitutu 3849 15.05.09 09:26 Сейчас в теме

(1) Если знаком с VBA (макросами) то что в этом загадочного ?
это обработка создает файл книга1.xls (нигде его не сохраняя- хотя можно было бы) в нем создает макрос (зайди в редактор ALT+F11) и посмотри. и запускает его (никаких вредоносных действий) просто пример.

Вчера "баловался" так Создал две обработки ПЕРВАЯ и НУЖНАЯ - в конфигурации есть ссылка на запуск ПЕРВАЯ , при запуске 1С отрабатывается код обработки ПЕРВАЯ (она создает макрос в личной книге макросов) Потом при запуске EXCEL отрабатывается алгоритм - ПЕРВАЯ удаляется , а НУЖНАЯ копируется в ПЕРВАЯ
в итоге обработки две остались. следы в 1С замели, на а как следы в EXCEL замести ))) это же классика при запуске Макрос отрабатывается и сам себя стирает в активной книге )))))

13. Арчибальд 2709 15.05.09 10:12 Сейчас в теме

(3) Загадочно, на какой версии офиса проверялась последовательность клавиш.
> "он не у всех сработает"
Тогда уж "возможно, у кого-нибудь сработает"
Откомменть текст по смыслу. Для тех, кто в танке.

14. Tatitutu 3849 15.05.09 10:23 Сейчас в теме

(13)
XP/VISTA
Microsoft Office Excel 2003

в идеяле проверяем версию ПО и по шаблону
последовательность клавиш можно самому отредактировать (это пример)

запусти в макросе
Application.CommandBars.FindControl(, 3627).Execute и увидишь

2. Abadonna 3969 15.05.09 09:19 Сейчас в теме

Ехсел=СоздатьОбъект("Excel.Application");
И сразу мимо! Кто,честный, сейчас будет иметь MS-OFFICE? ;)

4. Tatitutu 3849 15.05.09 09:32 Сейчас в теме

(2) я же предупредил
"Сразу для тех кто любит спорить - отвечаю представлен самый простой способ получить доступ (и он не у всех сработает)"

нет МS OFFCE
если есть то может быть измен порядок командных панелей и ссылок

это просто наглядный пример. У меня сначала стаяла проверка , если есть Еxcel тогда иначе...и.т.д.
Это обработка не для ВСЕХ и КАЖДОГО, а только для тех КТО ЗНАЕТ какие возможности можно получить в своей работе. функций и ОФИСА намного больше чем....

5. Abadonna 3969 15.05.09 09:37 Сейчас в теме

>а только для тех КТО ЗНАЕТ какие
Ну я-то не знаю. Ламер

6. vip 15.05.09 09:44 Сейчас в теме

(5) Ну так учись, пока не поздно, у старших товарищей.
Tatitutu, возьмешь Abadonna в ученики?

7. Душелов 4021 15.05.09 09:44 Сейчас в теме

(5) Купи книжку!

8. Abadonna 3969 15.05.09 09:45 Сейчас в теме

(7) Есть книжка - "Приключения Буратино". Достаточно? ;)

12. Душелов 4021 15.05.09 10:04 Сейчас в теме

(8) От мелкомягких? Тогда достаточно.

9. Tatitutu 3849 15.05.09 09:47 Сейчас в теме

(5) учится, учится и еще раз учится (с) В.И.Ленин
не флудить, не флудить....не (с) правила форума-модератор
не прибедняйся, ибо таковым не кажешся (с) Налоговая

15. vip 15.05.09 11:23 Сейчас в теме

(9) > еще раз учится
Нету такого "еще раз" у В.И. Ленина.

ЗЫ. А Abadonna в ученики возьми, он падаван способный.

29. Sstalki 15.06.09 10:21 Сейчас в теме

Pr =Книга.VBProject;
{C:\DOCUMENTS AND SETTINGS\USER\РАБОЧИЙ СТОЛ\НОВАЯ ПАПКА\МАКРОС.ERT(5)}: Microsoft Office Excel: Программный доступ к проекту Visual Basic не является доверенным
Excel 2003 так-то(((

10. Abadonna 3969 15.05.09 09:49 Сейчас в теме

>не флудить, не флудить....не
Я бы на твоем месте наоборот радовался, в топике же держим ;))))

11. Tatitutu 3849 15.05.09 09:57 Сейчас в теме

(10) Спасибо.Я радуюсь, а то цитирую.

Еxcel(VBA) очень хорошо дружит с реестром
прочитать(вырезать и спрятать) хотя бы ветку
HKEY_CURRENT_USER\Software\1C\1Cv7\7.7\Titles
по имеющейся информации пробежать по файликам....

16. vip 15.05.09 11:25 Сейчас в теме

(9+) И "учится" нету. Есть "учитЬся" (проверка - "что делатЬ?").

17. Арчибальд 2709 15.05.09 12:20 Сейчас в теме

Я тоже в ученики хочууууУУ...

18. CRaB 15.05.09 21:22 Сейчас в теме

Что ей можно сделать такого плохого?

19. prolancer 106 16.05.09 10:00 Сейчас в теме

(18) отформатировать диск.

20. Tatitutu 3849 16.05.09 10:15 Сейчас в теме

Все что угодно можно сделать....плюсов нет - видно народ не в теме

21. пользователь 17.05.09 14:08

Сообщение было скрыто модератором.

...

22. Abadonna 3969 17.05.09 14:24 Сейчас в теме

(21) Запросто! А разница невелика между VBS и VBA

23. Tatitutu 3849 17.05.09 21:55 Сейчас в теме

(21) да...но только есть мааааальенький ньюнс (как говорил Василий Иванович в одном известном анекдоте Петьке)

24. Tatitutu 3849 18.05.09 16:20 Сейчас в теме

в свое время (еще в армии служил) в штабе завелся вирус....дружелюбный при печати любого документа , он заменял запятую на плохое слово....

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cells.Replace What:=",", Replacement:="ххх"
End Sub

дело всего в трех строчках, а сколько голов полетело )))

25. alf2005q 22.05.09 09:43 Сейчас в теме

(24) хорошая "нехорошая" обработка.

26. Tatitutu 3849 22.05.09 12:58 Сейчас в теме

(25) Спасибо.Вижу в теме )))

27. ignor 237 22.05.09 14:54 Сейчас в теме

Что то типа этого?
http://www.sinor.ru/~my1c/knowhow/macrowrd.html

28. Tatitutu 3849 22.05.09 15:17 Сейчас в теме

(27)
Там написано из 1С создать макрос в офисном документе

и внизу комментарий
"Примечание: если не будет работать - возможно установлен высокий уровень безопасности. Понизьте до среднего ..."

вот эта обработка "убирает" этот комментарий - если хочешь "нашкодить" ты же не будешь просить об этом пользователя )))
Ну ты понял о чем я, да ?

30. Tatitutu 3849 15.06.09 11:27 Сейчас в теме

(30) я же писал "Сразу для тех кто любит спорить - отвечаю представлен самый простой способ получить доступ (и он не у всех сработает)"
у меня в Excel 2003 работает на ура.
Посмотри код , он же открытый :-)

31. Tatitutu 3849 17.12.09 12:13 Сейчас в теме

Альтернативный способ статья

32. vligm 22 24.12.09 15:47 Сейчас в теме

А как быть, если 1С-ина стоит на серваке, доступ юзверей туда терминальный и нет там (и не будет) Excel-я.
А одной "ключнице" надо из документа сделать для шефа именно Excel-евскую табличку.
Табличку - то она делает, но при копировании ее в другую книгу (ну нельзя по-другому, так заведено) форматирование там "разлазится", а именно - цвета не те и объединенные ячейки разъединяются.
По альтернативному методу вроде все получится, но что-то мне не хочется личную книгу макросов оставлять у нее на компе. Не люблю я лишних вопросов...
Подход, описанный здесь, мне ОЧЕНЬ нравится, но... сетка, сэр!