| Вопрос: Снять защиту с VBA | Добавлено: 21.04.08 10:36 |
Автор вопроса:  Андрей
|
|
Подскажите пожалуйста! Как снять защиту программно с редактора VBA(т.е. увидеть весь код, нажатие на Alt+F11 в Excel), зная пароль.
С листа: ActiveSheet.Unprotect(Значение) Примерно так же наверное и с VBA, помогите! |
| Ответы | Всего ответов: 13 |
|
Номер ответа: 1 Автор ответа:  J. Smith ICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #1 | Добавлено: 21.04.08 10:59 |
| у меня так неполучилось, по моему только руками | ||
|
Номер ответа: 2 Автор ответа: Андрей Вопросов: 5 Ответов: 23 |
Профиль | | #2 | Добавлено: 21.04.08 11:05 |
| ладно, спасибо! Знаю теперь что незьзя. А может кто знает, что можно | ||
|
Номер ответа: 3 Автор ответа: J. SmithICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #3 | Добавлено: 21.04.08 11:07 |
|
Попробуй так, загружаеш в ВБ объект Excel, в него XLS документ, делаеш видимым, SendKeys "{Alt}+F11", SendKeys "пароль", SendKeys "{Enter}"
Только я чёт непойму чё ты от эксэля добиваешся |
||
|
Номер ответа: 4 Автор ответа: АндрейВопросов: 5 Ответов: 23 |
Профиль | | #4 | Добавлено: 21.04.08 11:09 |
|
Я не от Excel добиваюсь. Я подключаюсь к нему с
1С через COM соединение. Там есть пароль и я хочу его снять |
||
|
Номер ответа: 5 Автор ответа:  User Unknown Вечный Юзер! ICQ: uu@jabber.cz Вопросов: 120 Ответов: 3302 |
Профиль | | #5 | Добавлено: 21.04.08 11:26 |
| Значит тоже самое через SendMessage | ||
|
Номер ответа: 6 Автор ответа: АндрейВопросов: 5 Ответов: 23 |
Профиль | | #6 | Добавлено: 21.04.08 11:39 |
| спасибо. буду пробовать | ||
|
Номер ответа: 7 Автор ответа: J. SmithICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #7 | Добавлено: 21.04.08 11:40 |
| UU. SendMessage передаёт события только в активное окно? У меня: У FindWindow взял указатель свёрнутого окна "Документ - WordPad", SendMessag-у передал указатель, константу KeyPress, код клавиши, неполучилось. | ||
|
Номер ответа: 8 Автор ответа: АндрейВопросов: 5 Ответов: 23 |
Профиль | | #8 | Добавлено: 21.04.08 11:42 |
| это уже хуже | ||
|
Номер ответа: 9 Автор ответа:  Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #9 | Добавлено: 21.04.08 12:48 |
| WM_KEYDOWN, WM_KEYUP | ||
|
Номер ответа: 10 Автор ответа: J. SmithICQ: ненавижу Вопросов: 40 Ответов: 477 |
Web-сайт: Профиль | | #10 | Добавлено: 21.04.08 13:05 |
| Так их по очереди все три события надо посылать? | ||
|
Номер ответа: 11 Автор ответа: АндрейВопросов: 5 Ответов: 23 |
Профиль | | #11 | Добавлено: 21.04.08 13:07 |
| Спасибо всем большое, я без этого обошёлся. Мне этот пароль не нужен был! | ||
|
Номер ответа: 12 Автор ответа: DrugONICQ: nospam Вопросов: 10 Ответов: 53 |
Профиль | | #12 | Добавлено: 09.09.08 23:05 |
|
Я тоже долго мучался, но так и не нашел полностью программного способа снятия защиты с проекта, зная пароль (!).
Public Sub UnprotectVBAProject() Dim wb As Workbook Dim vbp As VBProject Set wb = ThisWorkbook Set vbp = wb.VBProject If vbp.Protection <> 1 Then Exit Sub Set Application.VBE.ActiveVBProject = vbp SendKeys "password" & "~~" Application.VBE.CommandBars(1).FindControl(ID:=2578, _ recursive:=True).Execute MsgBox ("Защита проекта отключена" 
End Sub Ну вот примерно так... |
||
|
Номер ответа: 13 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #13 | Добавлено: 12.09.08 14:27 |
Оно самое, меня опередили - надо подключить библиотеку с VBE и можно жёстко извращаться даже над кодом макросов! 
|
||
Страница: 1 |