Многих мучает вопрос как с помощью команды макроса в Excel удалить сам макрос или один из его модулей.
Варианты такие:
*******************
Sub DeleteAllLines() ' удаляет все что написано в Модуле1
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 1, .CountOfLines
End With
End sub
*******************
Sub DeleteModule() ' удаляет сам Модуль1
Dim vbc As VBComponent
Set vbc = ThisWorkbook.VBProject.VBComponents("Module1")
ThisWorkbook.VBProject.VBComponents.Remove vbc
Set vbc = Nothing
End sub
*******************
Sub DeleteModule() ' удаляет весь макрос
Dim tmp As String
Dim vbc As VBComponent
Dim prj As VBIDE.VBE

Set prj = Excel.Application.VBE

For Each vbc In prj.VBProjects("NAME").VBComponents
If (vbc.Type = vbext_ct_MSForm Or vbc.Type = vbext_ct_StdModule Or vbc.Type = vbext_ct_ClassModule) And vbc.Name <> "Module2" Then
tmp = vbc.Name
prj.VBProjects("NAME").VBComponents.Remove vbc
tmp = ""
End If
Next vbc
Set prj = Nothing

End sub
*******************

НО!!!!!!!!!!!!!!!!!!!
Все эти коды выполняются ТОЛЬКО с установленной галочкой «Доверять доступ к Visual Basic Project» («Trust access to Visual Basic Project») в параметрах безопасности макросов.

ВНИМАНИЕ ВОПРОС!
Как программным методом (кодами в начале макроса) изменить параметры безопасности и установить соответствующую галочку?

Я НЕ ПИШУ ВИРУСЫ, дело в том, что я продаю свои мелкие программки на VBA и хочу защитить свои авторские права. Мне надо чтобы после определенной даты или после определенного кол-ва запуска программы она удаляла сама себя. Мне НЕ НАДО воздействовать на другие файлы и программы, надо только "лицензировать" свою.

Была еще такая идея:
После проверки даты или кол-ва запусков, в случае привышения макрос сохраняет свой же файл в формате Excel 3.0, который не может содержать макросов. Идея прекрасно воплощяется в жизнь, но только если сам макрос не защищен паролем! Может как-то развить это направление?


Слышал еще такое:
Что если проект имеет цифровую подпись MicroSoft то даже эта галочка не нужна, т.к. в таком случае Excel воспринемает эту прогу как "свою родную" и разрешает любые манипуляции с макросом самим макросом. Для этого надо всего-лишь подписаться цифровым сертификатом MS. Кто-нибудь знает как это сделать? Тем более что прога по присвоению сертификатов находится в стандартной комплектации Офиса.

Заранее спасибо за все советы!

k-nikeКак вариант.
А если в начале макроса делать проверку и не выполнять его просто по определенному условию?

Да это как раз не вариант... Елси просто не запустить макрос - его тело останется без изменений, и если в него влезть - можно просто убрать эту проверку и прога заработает. А влезть даже в запароленый макрос - не проблема... "спасибо" всяким прогам по открытию VBA паролей.

Ashton GoldenAxeВНИМАНИЕ ВОПРОС!
Как программным методом (кодами в начале макроса) изменить параметры безопасности и установить соответствующую галочку?
За уровень безопасности отвечает параметр "Level" раздела реестра "HKEY_CURRENT_USER\\Software\\Microsoft\\Office\\11.0\\Excel\\Security" (для Office 2003).

За доверительный доступ отвечает параметр "AccessVBOM" того же раздела.

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

Во! Мы близки к развязке!
Но!
после написания такого:

Sub pop()
\' Меняем доверие
On Error Resume Next

Dim objShell
Dim vatReturn

Set objShell = CreateObject("WScript.Shell")

vatReturn = objShell.RegRead( _
"HKEY_CURRENT_USER\\Software\\Microsoft\\Office\\11.0\\Excel\\Security\\AccessVBOM")
MsgBox vatReturn

objShell.RegWrite _
"HKEY_CURRENT_USER\\Software\\Microsoft\\Office\\11.0\\Excel\\Security\\AccessVBOM", _
1, "REG_DWORD"
MsgBox vatReturn
\' удаляем все строки в Модуле 1
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 1, .CountOfLines
End With

End Sub


Даже когда сначала выдает значение парамерта "0", затем меняет его на "1", все равно галочка не появляется и модуль не стирается... только когда вручную вставишь галочку в поле Доверять доступ к VB Project только тогда макрос удалит модуль1...
Т.е. в реестре меняется. а на деле ничего не происходит, даже после перезапуска Excel...

Артем GИнтересно... раз мешает пароль может на каком то этапе его прогрмно убрать?

Интересная идея... А как можно макросом отключить свой собственный пароль? Есть мысли?

NikzА если вот такой дикий вариант:

Делаете в VB6 ActiveX Dll.
В нем пишете код для макроса.
регистрируете Dll в системе.
затем в Excel подключаете эту dll, и запускаете в ней процедуру с вашим кодом.

А в самой dll можно втыкать любые проверки на исполнение макроса, подломать их будет достаточно сложно...

см аттач.

Это довольно сложно... в смысле заставить юзверя сначала Dll регистрировать ... дело в том, что изначальная задача - упростить жизнь простым смертным, которые не знают даже как поменять уровень безопасности, ну а как прописать dll в систему им точно не по-зубам...

Nikz
а что мешает повесить в Workbook_Open() автоматическую регистрацию dll


Хмм... я об этом не подумал...
А можно опубликовать что конкретно должно находиться в dll чтобы я смог удалить один из модулей? Я просто с dll никогда не связывался...
Если это возможно - киньте примерчик такой библиотеки на мыло или тут выложите... goldenaxxe@mail.ru
А если возможно - то пару xls + dll которые взаимодействуют друг с другом...

А можно с помощью VBA имитировать нажатия клавишь?
и программно просто последовательно нажимая виртуальные клавиши поставить эту галочку «Доверять доступ к Visual Basic Project» ?
или с помощью запущенной VBA стандартной Экранной клавиатурой (Главное меню\Программы\Стандартные\Специальные возможности\Экранная клавиатура)

Вот еще:
Я писал что с помощью ключа
objShell.RegWrite _
"HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Excel\Security\AccessVBOM", _
1, "REG_DWORD"

я менял параметр AccessVBOM, который в реестре менялся, а в Excel - нет.
Я попробовал руками поменять параметр AccessVBOM в реестре - и тоже в Excel ничего не поменялось!!! НО!!! если Excel закрыт - то поменяв этот параметр при следующем запуске Excel галочка ПОЯВЛЯЕТСЯ!!! Т.е. надо чтоб скрипт сработал при закрытом Экселе!!! Как это можно сделать? Может макрос закрыть Excel и продолжать работать из оперативной памяти?

k-nike
Не хочу показаться пессимистом, но:
1. Если юзер чайник, то навряд ли он может что-то изменить.
2. А если он маломальски в этом разбирается (по крайней мере, знает про программы, которые вскрывают VBA-пароли), то ему не составит труда вскрыть файл еще до того как закончится срок действия макросов или элементарно скопировать этот файл.

Тут на форуме тусуется человек, который продает VBA-пректы. У него бы поинтересоваться как их защищать, если это, конечно, не секретная информация. Кажется его MXAlex зовут или как-то так.

Может лучше тогда это дело на VB переписать?

Согласен, но согласитесь, чаще всего мы начинаем лезть в программу только тогда, когда она ломается... Мне например и нафиг не надо знать как работает чужой макрос, если он работает... я туда полезу только если меня что-то не устроит... На это я и расчитываю... что когда юзер будет пользовать мою прогу - она будет работать и мыслей туда лазить у него не возникнет, а когда истечет срок годности - и лазить будет некуда %))
По поводу написания такой проги на других языках - можно, но это будет уже 2 файла, один ехе и один xls(в котором всякие исходники для каждого конкретного запуска)... а это дополнительные трудности для распространения.

White Owl GoldenAxeВНИМАНИЕ ВОПРОС!
Как программным методом (кодами в начале макроса) изменить параметры безопасности и установить соответствующую галочку?
Никак. Абсолютно.

Короче!
Все те, кто заявляет так категорично - могут отдыхать!
По поводу уровня защиты - программно поменять можно, только окно Экселя должно быть закрыто. Скрипт сюда выкладывать не буду (лично - могу послать)
По поводу галочки доверия доступа к VBA проектам - ставится и убирается программно "на раз" прямо на глазах пользователя и без его участия!!! И никаких гвоздей.
И вообще после пары дней усиленного штудирования литературы и хелпов к VBA могу сказать одно: ТАМ МОЖНО ВСЕ, ВПЛОТЬ ДО УНИЧТОЖЕНИЯ ВСЕХ ДИСКОВ ВКЛЮЧАЯ СИСТЕМНЫЙ!!!
А те, кто "где-то" "что-то" слышал про невозможность это сделать - ИДИТЕ ЛЕСОМ, УЧИТЕ МАТЧАСТЬ!!!
Мной написаны коды, которые могут по определенному условию уничтожать саму рабочую книгу, все модули и макросы в ней, даже если макрос защищен паролем! а также, в случае необходимости, уничтожать свои уцелевшие копии на этом компе и на компах в сети.

[/quot]Можно? Правда? Показывай. Не хочешь публично - мой емыл в профайле есть :)[/quot]
Послал лично...

AvtopicПомнится как то автор начинал вопрос с этого кода и по моему, это код VBA???
GoldenAxeSub DeleteAllLines() ' удаляет все что написано в Модуле1
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
.DeleteLines 1, .CountOfLines
End With
End sub
*******************
Sub DeleteModule() ' удаляет сам Модуль1
Dim vbc As VBComponent
Set vbc = ThisWorkbook.VBProject.VBComponents("Module1")
ThisWorkbook.VBProject.VBComponents.Remove vbc
Set vbc = Nothing
End sub
*******************
Sub DeleteModule() ' удаляет весь макрос
Dim tmp As String
Dim vbc As VBComponent
Dim prj As VBIDE.VBE

Set prj = Excel.Application.VBE
А если потом передумал, то конечно, компьютер работает под программу, и разные вирусы пишутся как обыкновенные программы, и форматирование идет программно, Но все это, не изменение уровня зашиты в Excele с помощью кода VBA

О чем писал автор:
GoldenAxeКак программным методом (кодами в начале макроса) изменить параметры безопасности и установить соответствующую галочку?

Да, это код VBA, а что не устраивает? И именно программным методом именно с помощью кода VBA ставится галочка Доверия доступа к VBP. И именно с помощью VBA можно поменять уровни безопасности, главное чтоб юзер хоть один раз запустил макрос...

White Owl GoldenAxeПослал лично...хм.....
Почти убедил.
Минусы твоего конкретного макроса:
- Не будет работать на Экселях других версий.
- Не будет работать на не русских Экселях.
Но в принципе, да. Если этот макрос разрешить хотя бы один раз - он сделает то что нужно.

Но главный минус - программная смена уровня безопасности потенциально вирусоопасна. Как только до твоего трюка додумается очередной кретин-вирусописатель этот трюк будет включен в базы антивирусов и твоя ЧЕСТНАЯ рабочая книга начнет считаться вирусом :)

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

Да, на счет минусов согласен, но ведь никаких проблем узнать версию Excel и Винды нет,

Sub ExcelVersion()

On Error Resume Next

Dim objShell
Dim vatReturn

Set objShell = CreateObject("WScript.Shell")

vatReturn = objShell.RegRead( _
"HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Excel.Application\CurVer\")
MsgBox vatReturn

End Sub

Так же можно установить и версию Винды.

А на счет антивирусов - да, это к сожалению останется... но где наша не пропадала? %)) Найдем и как это обойти %)))
Главное таким "макаром" можно сделать очень многие полезные и не очень вещи %)))

SmeL_md GoldenAxe Мне НЕ НАДО воздействовать на другие файлы и программы, надо только "лицензировать" свою.Тоже приходится писать на VBA софт открытым текстом, так что о защите думал так же как и Вы. и пришел к тому, что скинул я весь код в ActiveX dll. Пишу код для CAD, а не для Excell. Но интерфес думаю будет похожий вот все манипуляции.
1)ActiveX DLL (project name SMELCAD см. GetInterfaceObject ниже) SmeLCAD.dll
В References нужно будет добавить все то для чего пишешь.
Данный код считывает текст введенный в CAD и запускает данный путь.
2)Макрос в CAD
ThisDrawing в моем случае, это активное окно CAD.

Да, такой вариант существует, но сложность в том, что проги я пишу для ламеров, которым будет сложно объяснить наличие ДВУХ файлов вместо одного и обязательность прописывания dll-библиотеки...