Защита приложения Excel от проникновения пользователя в проект VBA

[Raikhman]

Проект VBA, закрытый паролем легко ломается и пользователь получает доступ к Вашему исходному тексту. Можно-ли как-то исключить возможность открытия редактора кода? Клавиша Alt+F11 легко перехватывается,а меню программы переделывается, но остается еще ярлычек листа.Например, сделать главное окно невидимым, как только пользователь щелкнул на ярлычке листа "Исходный текст"?

[EducatedFool]

Полностью защитить код проекта VBA не получится...

Тема неоднократно обсуждалась на этом и на соседних форумах.
Посмотрите, например, здесь, здесь и здесь.

но остается еще ярлычек листа

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

Можно сделать, как я видел однажды в одном макровирусе - там переопределяется команда открытия редактора VBA - создаётся пустой макрос с названием типа ToolsMacro - и попытка посмотреть код не удаётся (редактор VBA не открывается).
Но обойти такую защиту очень легко.

[Raikhman]

Как переопределить команду открытия редактора?
Где вообще лежит событие открытия главного окна редактора или его надо самому писать?

[Raikhman]

Подскажите, Как переопределить команду открытия редактора?

[Raikhman]

Я защищаюсь так: внешним загрузчиком (Exe) загружаю защищенную книгу. Пароль зашит в загрузчик и пользователь его не видит. Самое главное - загрузчик устанавливает низкий уровень защиты макросов, так что пользователь не может отключить макросы.Но открыв книгу он залезает в редактор VBA, с которого он элементарно предварительно снял пароль. Там он вырезает все ненужное и пересохраняет файл без пароля. Я думаю - здесь надо просто не пускать его в проект и тогда он не сможет воспользоваться взломанным паролем.
Что не так?

[EducatedFool]

внешним загрузчиком (Exe) загружаю защищенную книгу

А этот самый загрузчик после открытия нужной киги продолжает висеть в памяти?

Если да, то всё очень просто.
10 раз в секунду Ваш "загрузчик" считывает заголовки всех открытых окон, и, если среди них присутствует окно с заголовком Microsoft Visual Basic, посылает этому окну команду закрытия.

Но что мешает пользователю снять пароль с файла, и на другом компе (где нет "загрузчика") посмотреть код VBA?

[valerij]

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

он залезает в редактор VBA, с которого он элементарно предварительно снял пароль..

Есть сотни методов эффективных защит, защитите сам файл, а не редактор, например: через RAR + пароль(причем не надо, постоянно распаковывать, запаковывать, работа прям в RAR -е), спрятать док в фотку, заменить расширение ...........

[VictorM]

В дополнение к ссылкам EducatedFool могу порекоменовать посмотреть вот эту тему Пароль на защиту листа.

[Raikhman]

Но что мешает пользователю снять пароль с файла, и на другом компе (где нет "загрузчика") посмотреть код VBA?[/QUOTE]

Спасибо, EducatedFool и VictorM.

Пароль на файл электронной таблицы, состоящий из 20-30 символов практически не снимается внешними взломщиками паролей. Они эффективны до 10 символов и не более. Но пользователь, находяь в открытом через загрузчик файле, может его пересохранить без пароля, если я не исключу такую возможность. Я ее исключил и написал свое сохранение файла без возможности снятия пароля. Можно изменить только имя. Написал полностью свое меню и запретил его изменение со стороны пользователя и перехватил клавиши доступа к меню и к проекту (Alt+F11).
Таким образом у пользователя осталась одна возможность доступа к проекту VBA со взломанным паролем - через ярлычек листа "исходный текст". Никак не пойму, что здесь можно изменить. Или просто скрыть ярлычки листов, а навигацию по книге написать свою и засунуть ее в меню или контекстнозависимое меню.

Есть два вопроса:
1.Как написать событие на открытие главного окна проекта по типу того что при открытии листа:

Private Sub Worksheet_Activate()

2. Как управлять параметрами этих дурацких ярлычков.
Думаю, от моих дурацких вопросов я потеряю репутацию с 10 до 3.

[EducatedFool]

Как написать событие на открытие главного окна проекта по типу того что при открытии листа:
Private Sub Worksheet_Activate()

Не понял вопроса.

Может, что-то вроде этого:

Private Sub Workbook_Activate()    ' при активации книги
    UserInterface    ' изменяем под наши нужды графический интерфейс Excel
End Sub

Private Sub Workbook_Deactivate()    ' при деактивации книги (при переключении на другой файл Excel)
    RestoreInterface    ' восстанавливаем графический интерфейс Excel
End Sub

Private Sub Workbook_Open()
    Application.Visible = False    ' скрываем приложение Excel при запуске формы
    frmMain.Show    ' при открытии файла сразу запускаем главную форму
End Sub

2. Как управлять параметрами этих дурацких ярлычков.

Можно почистить их контекстное меню:

Sub УдалитьПункт_ИСХОДНЫЙ_ТЕКСТ()
    On Error Resume Next
    Application.CommandBars("Ply").Controls("Ис&ходный текст").Delete
End Sub

Sub ВосстановитьПункт_ИСХОДНЫЙ_ТЕКСТ()
    Application.CommandBars("Ply").Reset
End Sub

Или просто заблокировать данный пункт:

Sub ЗаблокироватьПункт_ИСХОДНЫЙ_ТЕКСТ()
    Application.CommandBars("Ply").Controls("Ис&ходный текст").Enabled = False
End Sub

Можно просто скрыть ярлычки листов:

Sub СкрытьЯрлычкиЛистов()
    ActiveWindow.DisplayWorkbookTabs = False
End Sub

Или вообще отключать всё лишнее:

Sub UserInterface(): ChangeInterface False: End Sub    ' скрывает всё лишнее с экрана

Sub RestoreInterface(): ChangeInterface True: End Sub    ' восстанавливает всё как было

Sub ChangeInterface(ByVal Value As Boolean)
    On Error Resume Next
    With Application
        .ScreenUpdating = False: .Caption = IIf(Value = True, Empty, "Мой заголовок окна Excel")
        .DisplayStatusBar = Value: .DisplayFormulaBar = Value
        For Each iCommandBar In .CommandBars
            iCommandBar.Enabled = Value
        Next
        With .ActiveWindow
            .Caption = IIf(Value, .Parent.Name, "")
            .DisplayHeadings = Value: .DisplayGridlines = Value
            .DisplayHorizontalScrollBar = True: .DisplayVerticalScrollBar = Value:
            .DisplayWorkbookTabs = Value
        End With: .ScreenUpdating = True
    End With
End Sub

Думаю, от моих дурацких вопросов я потеряю репутацию

Ваши вопросы вовсе не дурацкие.

Вот только обеспечить полную защиту таким способом вряд ли удастся...