Забыл пароль VBA

Question

Я использую файл расширения Ms Access 2013 (.accdb). Этот файл защищен паролем, но я помню пароль и могу открыть файл. Однако даже модули VBA защищены паролем, и я не знаю, что такое пароль, есть ли способ открыть эти модули и изменить код?

Если нет, я искал в интернете несколько программ для восстановления пароля, но смущен ли я должен купить восстановление пароля Ms Access или восстановление пароля VBA?

Systools предлагает оба этих программного обеспечения. http://www.systoolsgroup.com/access-password-recovery.html http://www.systoolsgroup.com/vba-password-remover.html

И был бы признателен, если кто-то может предложить мне лучшее программное обеспечение, потому что я не доволен их демо-версии, которая не может даже открыт доступ к файлам 2013 Ms, хотя он упоминается на их сайте

Пожалуйста, помогите это создает много проблем для меня.

Answer 1

Собственно, ознакомьтесь с этой ссылкой; это для Excel, но может работать для доступа, а также:

https://superuser.com/questions/889097/how-do-you-unprotect-the-vba-macros-for-a-macro-enabled-workbook-if-you-forgot-t

Answer 2

Sub unlock() 
Dim a, b, c, d, e, f, g, h, i, j, k, l As Integer, Test As String 
On Error Resume Next 
For a = 65 To 66: For b = 65 To 66: For c = 65 To 66: For d = 65 To 66 
For e = 65 To 66: For f = 65 To 66: For g = 65 To 66: For h = 65 To 66 
For i = 65 To 66: For j = 65 To 66: For k = 65 To 66: For l = 32 To 126 
Test = Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) & Chr(i) & Chr(j) & Chr(k) & Chr(l) 
Sheets(9).Activate 
Application.StatusBar = Test: ActiveSheet.Unprotect Test 
If ActiveSheet.ProtectContents = False Then 
    MsgBox "Password :" & Test 
    Exit Sub 
End If 
Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next 
End Sub 

Может быть, вы должны попробовать этот код, чтобы разблокировать его