Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
28.03.2024, 12:17:05

Войти
Хотите поблагодарить участника за дельный совет? Нажмите [Повысить]. Так вы заслуженно поднимите репутацию активному участнику.
33 233 Сообщений в 5 454 Тем от 6 750 Пользователей
Последний пользователь: Alex1210
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Excel и VBA
| | |-+  Как сделать проект vba "Project is Unviewable"
Страниц: [1]   Вниз
Печать
Автор Тема: Как сделать проект vba "Project is Unviewable"  (Прочитано 16028 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Алекс
Пользователь
**

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 97


Просмотр профиля
« : 02.07.2014, 11:49:38 »

Добрый день.
Хочу как-то защитить надстройку. Мне достаточно простой защиты - чтобы при попытке открытия выдавалось окно Project is Unviewable.
Долго искал в интернете. Нашел выход что надстройку нужно создать из файла с общим доступом.
Делаю все как по инструкции. Но ничего не выходит.

Собственно вот инструкция (правда на англ).
делаю как написано. но при сохранении ( пункт 13 в списке) этого файла как надстройки, общий доступ как-бы самоликвидируется. И файл xla записывается без него.
Я пробовал закрывать проект программой ProtectVBA - но на работе , почему-то заблокированные программой файлы не открываются (дома все ок). Выдает ошибку при запуске ( Прекращена работа MS Excel, Поиск способа устранения ошибки  и т д.)
Поэтому ищу как сделать это вручную.


For anyone interested in truly protecting their VBA projects check out the following step by step guide posted on another forum by Jan Karel Pieterse:

1. Save the Excel workbook (.xls) file into an add-in (File > SaveAs.....)
2. After you have the saved add-in (.xla), close the Excel workbook (.xls)
3. Double click on the add-in to open it
4. Press Alt+F11 to access the add-in's vba project
5. Lock the vba-project with a password
6. Double-click on the "ThisWorkbook" code module
7. Press F4 to open the Properties window
8. Change the "IsAddin" status to FALSE
9. Return to Excel by Pressing Alt+Q (or close the vbe window)
10. Go to Tools > Share Workbook
11. When the dialogue appears, check the box for: (Allow changes by.....)
12. Press OK to close the Dialogue
13. When prompted to save, Press OK
14. Press Ok to accept that "macros cannot be accessed"
15. You should feel giddy at this point because you just realized what you have
been missing right under your nose
16. Verify that the [SHARED] appears in the application title bar
17. Now save the workbook again as an Add-in (File > SaveAs...) overwriting the
previous one
18. Close this Excel workbook without saving the changes (you don't need it)
19. Test out your newly saved add-in (open it, access the vbe, try to expand
the project window, you should get the new message "Project is Unviewable"
20. Your done

The project can't be opened using passware software or the "hex method" (at least the tests I've done indicate it can't).
Записан
RAN
Эксперты
Старожил
*

Репутация: +43/-0
Офлайн Офлайн

Сообщений: 440



Просмотр профиля E-mail
« Ответ #1 : 02.07.2014, 13:10:02 »

Добрый день.
Хочу как-то защитить надстройку. Мне достаточно простой защиты
Поставьте пароль на проект.
ProtectVBA все равно не спасет
Записан

А что ты умеешь?
Учиться...
Алекс
Пользователь
**

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 97


Просмотр профиля
« Ответ #2 : 02.07.2014, 13:35:19 »

К сожалению, не спасет, но чтобы вскрыть его нужен доп софт, насколько мне известно, хоть он и есть везде.
Просто обычный пароль можно и макросом подменить что гараздо проще.
Поэтому хочется хоть немного поднять планку.
« Последнее редактирование: 28.10.2019, 21:40:01 от vikttur » Записан
Юрий М
Глобальный модератор
Ветеран
*****

Репутация: +112/-0
Офлайн Офлайн

Сообщений: 2 077



Просмотр профиля E-mail
« Ответ #3 : 02.07.2014, 13:39:27 »

Цитировать
Мне достаточно простой защиты
Цитировать
хочется хоть немного поднять планку
Нужно определиться ))
Записан
Алекс
Пользователь
**

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 97


Просмотр профиля
« Ответ #4 : 02.07.2014, 14:54:38 »

Нужно определиться ))
Определился) Хочу руками сделать "Project is Unviewable".
по инструкции не получается. Подскажите, пожалуйста, может я что-то не так делаю(
Не хочет сохраняя в формате xla оставлять общий доступ, который собственно и делает проект в последствии Unviewable.
Записан
VBATools
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 1


Просмотр профиля E-mail
« Ответ #5 : 28.10.2019, 18:07:24 »

Привет! всем! делюсь своей надстройкой ...
Комментарий глобального модератора Вы в курсе, что обсуждение взломов запрещено?
« Последнее редактирование: 28.10.2019, 21:42:53 от vikttur » Записан
Дмитрий Щербаков(The_Prist)
Администратор
Ветеран
*****

Репутация: +485/-0
Офлайн Офлайн

Сообщений: 5 828



Просмотр профиля WWW
« Ответ #6 : 30.10.2019, 10:34:18 »

Витя, ну зря. Это же не взлом по сути, человек выложил некое решение, вполне интересное кому-нибудь.
VBATools, создайте отдельную тему в ветке полезных решений. Витя, не удаляй там ничего, пожалуйста Улыбка
Записан

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Пункты приёма Спасибов:    -41001332272872  -R298726502453
vikttur
Глобальный модератор
Ветеран
*****

Репутация: +124/-0
Офлайн Офлайн

Сообщений: 1 816



Просмотр профиля
« Ответ #7 : 30.10.2019, 16:57:25 »

Извините, если ошибся. В описании было написано что-то типа "надстройка, снимающая пароли", но не было объяснения, что пароли известны
Записан
boa
Старожил
****

Репутация: +22/-0
Офлайн Офлайн

Сообщений: 252


Доброта спасет мир...


Просмотр профиля WWW
« Ответ #8 : 04.11.2019, 16:44:58 »

Добрый день,
Запустите макрос в нужной книге для блокировки проекта.
Код: (vb)
Sub LockProject()
  Application.DisplayAlerts = False
  With ActiveWorkbook 'или конкретная книга
    If Not .MultiUserEditing Then .SaveAs Filename:=.FullName, accessMode:=xlShared
  End With
  Application.DisplayAlerts = True
End Sub
Записан

Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра

Дмитрий Щербаков(The_Prist)
Администратор
Ветеран
*****

Репутация: +485/-0
Офлайн Офлайн

Сообщений: 5 828



Просмотр профиля WWW
« Ответ #9 : 04.11.2019, 17:19:25 »

boa, но не стоит забывать, что при общем доступе накладывается еще и куча других ограничений. Из основных, мешающих жить:
-нельзя изменять параметры защиты листов и книг
-нельзя использовать "умные" таблицы
-нельзя добавлять/изменять условное форматирование и проверки данных, гиперссылки, рисунки и объекты, пром.итоги и структуру(группировку), формулы массива
-нельзя добавлять сводные таблицы

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

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Пункты приёма Спасибов:    -41001332272872  -R298726502453
Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru