Как программно удалить код vba?

@urman · Регистрация: 10.04.2015

Author24 — интернет-сервис помощи студентам

Подскажите пожалуйста существует ли возможность программно удалить код vba во всех формах базы Access.

@VinniPuh · 22.04.2019, 07:15

Не по теме:

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

Неужели форм больше 1000?
Тогда да, даже я бы заленился вручную все удалять.

mobile · 22.04.2019, 07:27

Сообщение от urman

программно удалить код vba во всех формах базы Access.

Можно обойти все формы и задать им свойство HasModule=False

Visual Basic

Sub deletemod()
    Dim frm As Object
    On Error Resume Next                           'Обход ошибки для форм не имеющих модуля
    For Each frm In CurrentProject.AllForms        'Цикл по всем формам
        DoCmd.OpenForm frm.Name, acDesign          'Открыть форму в конструкторе
        Forms(frm.Name).HasModule = False          'Удалить модуль формы
        DoCmd.Close acForm, frm.Name, acSaveYes    'Сохранить форму
    Next
End Sub

@urman · 22.04.2019, 07:34 **[ТС]**

Спасибо, но мне нужно чтобы код исчез или стал неработоспособным без открытия конструктора.

@Панург · 22.04.2019, 07:40

Сообщение от urman

мне нужно чтобы код исчез или стал неработоспособным без открытия конструктора.

Пачиму? Открывай формы невидимыми - WindowMode:=acHidden.

Добавлено через 1 минуту

Сообщение от urman

мне нужно чтобы код исчез или стал неработоспособным

Решил всем отомстить?

mobile · 22.04.2019, 07:41

Сообщение от urman

мне нужно чтобы код исчез или стал неработоспособным без открытия конструктора.

Поставьте пароль на вход в редактор ВБА и код всех модулей станет недоступным.

@Панург · 22.04.2019, 07:43

Сообщение от mobile

Поставьте пароль на вход в редактор ВБА и код всех модулей станет недоступным.

Серьёзно?

shanemac51 · 22.04.2019, 07:43

Сообщение от urman

мне нужно чтобы код исчез или стал неработоспособным без открытия конструктора.

похоже, что таким приемом вы хотите сохранить свою интеллектуальную собственность после дня Х

@VinniPuh · 22.04.2019, 07:44

Сообщение от Панург

...Решил всем отомстить?...

Наверное вирус какой ни то изобретает.

mobile · 22.04.2019, 07:46

Сообщение от Панург

Сообщение от mobile

Поставьте пароль на вход в редактор ВБА и код всех модулей станет недоступным.

Серьёзно?

Для не продвинутых пользователей, конечно да. Для Панурга возможно нет.

@VinniPuh · 22.04.2019, 07:52

Сообщение от mobile

...Для Панурга возможно нет...

А для Пуха?

Я не знаю, но тоже такое хочу.
В куда, чем и как, тыкать то надо?

@Панург · 22.04.2019, 07:55

Сообщение от VinniPuh

Я не знаю

всё кокетничаем...

@VinniPuh · 22.04.2019, 08:00

Сообщение от Панург

...всё кокетничаем...

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

mobile · 22.04.2019, 08:11

Сообщение от VinniPuh

А для Пуха?
Я не знаю, но тоже такое хочу.

Сам не пробовал, как-то не было необходимости.
В скрытом, но всегда доступном из любой БД WizHook есть метод SetVbaPassword. Цитирую из другого форума

Function SetVbaPassword(bstrDbName As String, bstrConnect As String, _
bstrPasswd As String) As Boolean

JasonM говорит, что не сумел заставить заработать этот метод. Рибера уточняет, что метод не работает на текущей базе данных.
Устанавливает пароль на VBA проекте. Возвращает истину, если завершился успешно.
Параметры
bstrName – полный путь к базе.
bstrConnect – похоже, не используется при правильном bstrName. Может оказаться необходимым при ранее установленном пароле на mdb.

Visual Basic

Sub wzSetVbaPassword() 
  Dim wzDBName as String 
  Dim wzConnect as String
  Dim wzPasswd ase String 
 
  WizHook.Key = 51488399 
  wzDBName = "c:\base_datos.mdb" 
  wzConnect = "" wzPasswd = "password" 
 
  Debug.Print WizHook.SetVbaPassword(_ wzDBName, wzConnect, wzPasswd) 
End Sub

@Панург · 22.04.2019, 08:16

Сообщение от VinniPuh

Нет.

Но ведь ты читал статью на другом форуме с методом.
А если не читал, то ... ладно.

@VinniPuh · 22.04.2019, 08:18

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

@Панург · 22.04.2019, 08:18

mobile, так это установка пароля через визхук. А вроде озвучено желание про несанкционированный вход.

@urman · 22.04.2019, 08:19 **[ТС]**

Сообщение от shanemac51

похоже, что таким приемом вы хотите сохранить свою интеллектуальную собственность после дня Х

да это ближе всего к истине

@VinniPuh · 22.04.2019, 08:22

Сообщение от Панург

...Но ведь ты читал статью на другом форуме с методом...

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

Добавлено через 1 минуту

Сообщение от urman

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

Вот ведь хитрец.
Почти как я.

@Панург · 22.04.2019, 08:23

Сообщение от urman

да это ближе всего к истине

все что сделано в течении рабочего дня принадлежит работодателю. Это очень скользкий момент. Я бы не советовал. Просто гордись что твоё поделие продолжат использовать и сохрани хорошие отношения.

@Панург Мы один, давай на "ты" 3632 / 1335 / 326 Регистрация: 16.06.2016 Сообщений: 3,179
	22.04.2019, 07:55	12
	Сообщение от VinniPuh Я не знаю всё кокетничаем... 0

@VinniPuh 9113 / 6059 / 591 Регистрация: 27.03.2013 Сообщений: 19,887
	22.04.2019, 08:00	13
	Сообщение от Панург ...всё кокетничаем... Нет. Не знаю, почему ты считаешь меня каким то там навороченым, но я точно не такой, просто немного урвавший знаний, но не умений - Любитель и не более. Покажут раз или два запомню и если понадобится сделаю, но не более. Ибо по жизни другая специализация. 0

@Панург Мы один, давай на "ты" 3632 / 1335 / 326 Регистрация: 16.06.2016 Сообщений: 3,179
	22.04.2019, 08:18	17
	mobile, так это установка пароля через визхук. А вроде озвучено желание про несанкционированный вход. 0

Новые блоги и статьи
Как подключить JavaScript файл в другом JavaScript файле InfoMaster 20.01.2025 В современной веб-разработке организация кодовой базы играет ключевую роль в создании масштабируемых и поддерживаемых приложений. Модульность и правильное структурирование кода стали неотъемлемыми. . .	Как откатить изменения в исходниках, не внесенные в Git InfoMaster 20.01.2025 При работе с системой контроля версий Git разработчики часто сталкиваются с необходимостью отменить внесенные изменения в исходном коде. Особенно актуальной становится ситуация, когда изменения еще. . .	В чем разница между px, in, mm, pt, dip, dp, sp InfoMaster 20.01.2025 В мире цифрового дизайна и разработки интерфейсов правильный выбор единиц измерения играет ключевую роль в создании качественного пользовательского опыта. История развития систем измерений для. . .	Как изменить адрес удалённого репозитория (origin) в Git InfoMaster 20.01.2025 В терминологии Git термин origin является стандартным именем для основного удаленного репозитория, с которым взаимодействует локальная копия проекта. Когда разработчик клонирует репозиторий с. . .	Как переместить последние коммиты в новую ветку (branch) в Git InfoMaster 20.01.2025 При работе над проектом часто возникают ситуации, когда необходимо изолировать определенные изменения от основной линии разработки. Это может быть связано с экспериментальными функциями, исправлением. . .	Как вернуть результат из асинхронной функции в JavaScript InfoMaster 20.01.2025 Асинхронное программирование представляет собой фундаментальную концепцию в JavaScript, которая позволяет выполнять длительные операции без блокировки основного потока выполнения программы. В. . .
Какой локальный веб-сервер выбрать InfoMaster 19.01.2025 В современной веб-разработке локальные веб-серверы играют ключевую роль, предоставляя разработчикам надежную среду для создания, тестирования и отладки веб-приложений без необходимости использования. . .	Почему планшеты и iPad уже не так популярны, как раньше InfoMaster 19.01.2025 Эра революционных инноваций История планшетов началась задолго до того, как эти устройства стали привычными спутниками нашей повседневной жизни. В начале 1990-х годов появились первые прототипы,. . .	Как самому прошить BIOS ноутбука InfoMaster 19.01.2025 BIOS (Basic Input/ Output System) представляет собой важнейший компонент любого компьютера или ноутбука, который обеспечивает базовое взаимодействие между аппаратным и программным обеспечением. . .	Какой Linux выбрать для домашнего компьютера InfoMaster 19.01.2025 Современные реалии выбора операционной системы В современном мире выбор операционной системы для домашнего компьютера становится все более важным решением, которое может существенно повлиять на. . .	Как объединить два словаря одним выражением в Python InfoMaster 19.01.2025 В мире программирования на Python работа со словарями является неотъемлемой частью разработки. Словари представляют собой мощный инструмент для хранения и обработки данных в формате "ключ-значение". . . .	Как без исключения проверить существование файла в Python InfoMaster 19.01.2025 При разработке программного обеспечения на Python часто возникает необходимость проверить существование файла перед выполнением операций с ним. Это критически важная задача, которая помогает избежать. . .

Как программно удалить код vba?

Решение

Решение

@urman 7 / 7 / 0 Регистрация: 10.04.2015 Сообщений: 282
		1
	Как программно удалить код vba? 22.04.2019, 06:34. Показов 5092. Ответов 45 Метки vba (Все метки) Подскажите пожалуйста существует ли возможность программно удалить код vba во всех формах базы Access. 0

@VinniPuh 9113 / 6059 / 591 Регистрация: 27.03.2013 Сообщений: 19,887
	22.04.2019, 07:15	2
	Не по теме: похоже существуют люди, у которых тараканов в голове, даже больше чем у меня. Неужели форм больше 1000? Тогда да, даже я бы заленился вручную все удалять. 0

@urman 7 / 7 / 0 Регистрация: 10.04.2015 Сообщений: 282
	22.04.2019, 07:34 [ТС]	4
	Спасибо, но мне нужно чтобы код исчез или стал неработоспособным без открытия конструктора. 0

@Панург Мы один, давай на "ты" 3632 / 1335 / 326 Регистрация: 16.06.2016 Сообщений: 3,179
	22.04.2019, 07:40	5
	Сообщение от urman мне нужно чтобы код исчез или стал неработоспособным без открытия конструктора. Пачиму? Открывай формы невидимыми - WindowMode:=acHidden. Добавлено через 1 минуту Сообщение от urman мне нужно чтобы код исчез или стал неработоспособным Решил всем отомстить? 0

mobile 26818 / 14497 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	22.04.2019, 07:41	6
	Сообщение от urman мне нужно чтобы код исчез или стал неработоспособным без открытия конструктора. Поставьте пароль на вход в редактор ВБА и код всех модулей станет недоступным. 0

@Панург Мы один, давай на "ты" 3632 / 1335 / 326 Регистрация: 16.06.2016 Сообщений: 3,179
	22.04.2019, 07:43	7
	Сообщение от mobile Поставьте пароль на вход в редактор ВБА и код всех модулей станет недоступным. Серьёзно? 0

shanemac51 Модератор 12108 / 4968 / 791 Регистрация: 07.08.2010 Сообщений: 14,610 Записей в блоге: 4
	22.04.2019, 07:43	8
	Сообщение от urman мне нужно чтобы код исчез или стал неработоспособным без открытия конструктора. похоже, что таким приемом вы хотите сохранить свою интеллектуальную собственность после дня Х 0

@VinniPuh 9113 / 6059 / 591 Регистрация: 27.03.2013 Сообщений: 19,887
	22.04.2019, 07:44	9
	Сообщение от Панург ...Решил всем отомстить?... Наверное вирус какой ни то изобретает. 0

mobile 26818 / 14497 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	22.04.2019, 07:46	10
	Сообщение от Панург Сообщение от mobile Поставьте пароль на вход в редактор ВБА и код всех модулей станет недоступным. Серьёзно? Для не продвинутых пользователей, конечно да. Для Панурга возможно нет. 0

@VinniPuh 9113 / 6059 / 591 Регистрация: 27.03.2013 Сообщений: 19,887
	22.04.2019, 07:52	11
	Сообщение от mobile ...Для Панурга возможно нет... А для Пуха? Я не знаю, но тоже такое хочу. В куда, чем и как, тыкать то надо? 0

	22.04.2019, 08:23

@Панург Мы один, давай на "ты" 3632 / 1335 / 326 Регистрация: 16.06.2016 Сообщений: 3,179
	22.04.2019, 08:16	15
	Сообщение от VinniPuh Нет. Но ведь ты читал статью на другом форуме с методом. А если не читал, то ... ладно. 0

@urman 7 / 7 / 0 Регистрация: 10.04.2015 Сообщений: 282
	22.04.2019, 08:19 [ТС]	18
	Сообщение от shanemac51 похоже, что таким приемом вы хотите сохранить свою интеллектуальную собственность после дня Х да это ближе всего к истине 0

@VinniPuh 9113 / 6059 / 591 Регистрация: 27.03.2013 Сообщений: 19,887
	22.04.2019, 08:22	19
	Сообщение от Панург ...Но ведь ты читал статью на другом форуме с методом... Наверное не читал, по крайней мере не помню, иначе бы сохранил у себя в закромах и сусеках и точно запомнил, что такое где то есть. Добавлено через 1 минуту Сообщение от urman ...да это ближе всего к истине... Вот ведь хитрец. Почти как я. 0

@Панург Мы один, давай на "ты" 3632 / 1335 / 326 Регистрация: 16.06.2016 Сообщений: 3,179
	22.04.2019, 08:23	20
	Сообщение было отмечено alexpro1979 как решение Решение Сообщение от urman да это ближе всего к истине все что сделано в течении рабочего дня принадлежит работодателю. Это очень скользкий момент. Я бы не советовал. Просто гордись что твоё поделие продолжат использовать и сохрани хорошие отношения. 0