#vba #passwords
#vba #пароли
Вопрос:
Как передать пароль к защищенному проекту VBA?
Чтобы проверить, защищен ли проект № 11, мы можем использовать следующий код:
Application.VBE.VBProjects(11).Protection
которые возвращают 1 if yes
и 0 if no
, но я не нашел никакой информации о передаче пароля, кроме SendKeys()
метода на основе
Комментарии:
1.
SendKeys
это единственный способ.
Ответ №1:
http://www.pcreview.co.uk/forums/unprotecting-vba-project-t989191.html
'Const conPW as String = "MyPassword"
'Open VBE
Call SendKeys("%{F11}", True)
'Open Project Explorer
Call SendKeys("%(V)P", True)
'PageUp 5 times to be sure "VBAProject" is selected
Call SendKeys("{PGUP 5}", True)
'Hit Enter to give prompt, enter PW and Enter again.
Call SendKeys("{ENTER}" amp; conPW amp; "{ENTER}", True)
…