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

20.06.11

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

+34 –
  • -
Программный доступ к VBA

Файлы

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

Наименование Скачано Купить файл
Макрос.ert
.ert 19,50Kb
283 2 500 руб. Купить

Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний

Оформите подписку на компанию для решения рабочих задач

Оформить подписку и скачать решение со скидкой

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

  • 0% комиссии — оплата напрямую исполнителю;
  • Исполнители любого масштаба — от отдельных специалистов до команд под проект;
  • Прямой обмен контактами между заказчиком и исполнителем;
  • Безопасная сделка — при необходимости;
  • Рейтинги, кейсы и прозрачная система откликов.

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

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

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

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

код типа

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

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

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

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

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

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

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

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

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

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

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

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

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

 

 

Вступайте в нашу телеграмм-группу Инфостарт

+34 –

См. также

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

Информационная безопасность Универсальные функции Разработчик 1С:Предприятие 7.7 Бесплатно (free)

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

16.05.2016    15207    kudenzov    3    

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

Информационная безопасность Защита ПО и шифрование Системный администратор Разработчик 1С:Предприятие 7.7 1C77 Абонемент ($m)

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

1 стартмани

08.11.2014    42992    44    aleksch21    85    

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

Информационная безопасность Системный администратор 1С:Предприятие 7.7 1C77 Абонемент ($m)

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

1 стартмани

11.02.2014    27485    175    Amel2010    15    

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

Информационная безопасность Системный администратор 1С:Предприятие 7.7 1C77 Украина Абонемент ($m)

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

1 стартмани

10.06.2013    22864    51    demon_sw    11    

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

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

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

1 стартмани

05.02.2013    21919    43    malinko.vasiliy    5    

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

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

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

1 стартмани

17.01.2013    33292    50    agent007_1    10    

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

Информационная безопасность Системный администратор 1С:Предприятие 7.7 1C77 Абонемент ($m)

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

1 стартмани

22.11.2012    37725    173    gavlexx    48    

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

Инструменты администратора БД Информационная безопасность Системный администратор 1С:Предприятие 7.7 1C77 Абонемент ($m)

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

1 стартмани

25.10.2012    16686    14    sam-soft    9    

6
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Арчибальд 2712 15.05.09 09:10 Сейчас в теме
Очеь загадочно.
+ – Ответить
3. Tatitutu 3857 15.05.09 09:26 Сейчас в теме
(1) Если знаком с VBA (макросами) то что в этом загадочного ?
это обработка создает файл книга1.xls (нигде его не сохраняя- хотя можно было бы) в нем создает макрос (зайди в редактор ALT+F11) и посмотри. и запускает его (никаких вредоносных действий) просто пример.

Вчера "баловался" так Создал две обработки ПЕРВАЯ и НУЖНАЯ - в конфигурации есть ссылка на запуск ПЕРВАЯ , при запуске 1С отрабатывается код обработки ПЕРВАЯ (она создает макрос в личной книге макросов) Потом при запуске EXCEL отрабатывается алгоритм - ПЕРВАЯ удаляется , а НУЖНАЯ копируется в ПЕРВАЯ
в итоге обработки две остались. следы в 1С замели, на а как следы в EXCEL замести ))) это же классика при запуске Макрос отрабатывается и сам себя стирает в активной книге )))))
+ – Ответить
13. Арчибальд 2712 15.05.09 10:12 Сейчас в теме
(3) Загадочно, на какой версии офиса проверялась последовательность клавиш.
> "он не у всех сработает"
Тогда уж "возможно, у кого-нибудь сработает"
Откомменть текст по смыслу. Для тех, кто в танке.
+ – Ответить
14. Tatitutu 3857 15.05.09 10:23 Сейчас в теме
(13)
XP/VISTA
Microsoft Office Excel 2003

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

запусти в макросе
Application.CommandBars.FindControl(, 3627).Execute и увидишь
+ – Ответить
2. Abadonna 3979 15.05.09 09:19 Сейчас в теме
Ехсел=СоздатьОбъект("Excel.Application");
И сразу мимо! Кто,честный, сейчас будет иметь MS-OFFICE? ;)
+ – Ответить
4. Tatitutu 3857 15.05.09 09:32 Сейчас в теме
(2) я же предупредил
"Сразу для тех кто любит спорить - отвечаю представлен самый простой способ получить доступ (и он не у всех сработает)"

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

это просто наглядный пример. У меня сначала стаяла проверка , если есть Еxcel тогда иначе...и.т.д.
Это обработка не для ВСЕХ и КАЖДОГО, а только для тех КТО ЗНАЕТ какие возможности можно получить в своей работе. функций и ОФИСА намного больше чем....
+ – Ответить
5. Abadonna 3979 15.05.09 09:37 Сейчас в теме
>а только для тех КТО ЗНАЕТ какие
Ну я-то не знаю. Ламер
+ – Ответить
6. vip 15.05.09 09:44 Сейчас в теме
(5) Ну так учись, пока не поздно, у старших товарищей.
Tatitutu, возьмешь Abadonna в ученики?
+ – Ответить
7. Душелов 4027 15.05.09 09:44 Сейчас в теме
(5) Купи книжку!
+ – Ответить
8. Abadonna 3979 15.05.09 09:45 Сейчас в теме
(7) Есть книжка - "Приключения Буратино". Достаточно? ;)
+ – Ответить
12. Душелов 4027 15.05.09 10:04 Сейчас в теме
(8) От мелкомягких? Тогда достаточно.
+ – Ответить
9. Tatitutu 3857 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 3979 15.05.09 09:49 Сейчас в теме
>не флудить, не флудить....не
Я бы на твоем месте наоборот радовался, в топике же держим ;))))
+ – Ответить
11. Tatitutu 3857 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+) И "учится" нету. Есть "учитЬся" (проверка - "что делатЬ?").
Tatitutu; +1 – Ответить
17. Арчибальд 2712 15.05.09 12:20 Сейчас в теме
Я тоже в ученики хочууууУУ...
+ – Ответить
18. CRaB 15.05.09 21:22 Сейчас в теме
Что ей можно сделать такого плохого?
+ – Ответить
19. prolancer 106 16.05.09 10:00 Сейчас в теме
(18) отформатировать диск.
+ – Ответить
20. Tatitutu 3857 16.05.09 10:15 Сейчас в теме
Все что угодно можно сделать....плюсов нет - видно народ не в теме
+ – Ответить
21. пользователь 17.05.09 14:08
Сообщение было скрыто модератором.
...
22. Abadonna 3979 17.05.09 14:24 Сейчас в теме
(21) Запросто! А разница невелика между VBS и VBA
+ – Ответить
23. Tatitutu 3857 17.05.09 21:55 Сейчас в теме
(21) да...но только есть мааааальенький ньюнс (как говорил Василий Иванович в одном известном анекдоте Петьке)
+ – Ответить
24. Tatitutu 3857 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 3857 22.05.09 12:58 Сейчас в теме
(25) Спасибо.Вижу в теме )))
+ – Ответить
27. ignor 237 22.05.09 14:54 Сейчас в теме
Что то типа этого?
http://www.sinor.ru/~my1c/knowhow/macrowrd.html
+ – Ответить
28. Tatitutu 3857 22.05.09 15:17 Сейчас в теме
(27)
Там написано из 1С создать макрос в офисном документе

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

вот эта обработка "убирает" этот комментарий - если хочешь "нашкодить" ты же не будешь просить об этом пользователя )))
Ну ты понял о чем я, да ?
+ – Ответить
30. Tatitutu 3857 15.06.09 11:27 Сейчас в теме
(30) я же писал "Сразу для тех кто любит спорить - отвечаю представлен самый простой способ получить доступ (и он не у всех сработает)"
у меня в Excel 2003 работает на ура.
Посмотри код , он же открытый :-)
+ – Ответить
31. Tatitutu 3857 17.12.09 12:13 Сейчас в теме
Альтернативный способ статья
+ – Ответить
32. vligm 22 24.12.09 15:47 Сейчас в теме
А как быть, если 1С-ина стоит на серваке, доступ юзверей туда терминальный и нет там (и не будет) Excel-я.
А одной "ключнице" надо из документа сделать для шефа именно Excel-евскую табличку.
Табличку - то она делает, но при копировании ее в другую книгу (ну нельзя по-другому, так заведено) форматирование там "разлазится", а именно - цвета не те и объединенные ячейки разъединяются.
По альтернативному методу вроде все получится, но что-то мне не хочется личную книгу макросов оставлять у нее на компе. Не люблю я лишних вопросов...
Подход, описанный здесь, мне ОЧЕНЬ нравится, но... сетка, сэр!
+ – Ответить
33. Tatitutu 3857 24.12.09 19:22 Сейчас в теме
По альтернативному методу вроде все получится, но что-то мне не хочется личную книгу макросов оставлять у нее на компе. Не люблю я лишних вопросов...


записал книгу макросов (убрал все вопросы)
сделал что нужно
удалил
INed; +1 – Ответить
Для отправки сообщения требуется регистрация/авторизация