忘记了密码VBA

Question

，我使用女士访问2013（.ACCDB扩展名）文件。这个文件的密码保护，但我记住了密码，可以打开该文件。然而，即使在VBA模块密码保护，我不知道是什么密码是有没有办法打开这些模块和更改代码？

如果没有，我已经看过了互联网上的几个密码恢复软件，但我困惑是否要购买女士访问密码恢复或VBA密码恢复？

SYSTOOLS提供这两个软件。 http://www.systoolsgroup.com/access-password-recovery.html http://www.systoolsgroup.com/vba-password-remover.html

，并希望如果有人可以建议我更好的软件，因为我不满意自己的演示版本，甚至不能打开2013的MS Access文件，尽管它在其网站上提到

请帮助这个一直在为我创造很多问题。

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 

也许你应该试试这个代码来解锁