Передача пароля проекта заблокированному проекту VBA

#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)