Забыли пароль 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

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

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

Answer 1

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

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

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