用VBA破解VBA工程密码保护

Sub UnProtectVBProject()'程式说明:利用SendKey解除VBAProject密码'注意事项:执行本程式需要在Excel视窗,不能在VBE视窗 Dim vbProj As Object '解除vbp密码 Set vbProj = ThisWorkbook.VBProject If vbProj.Protection = 1 Then '判断vbp是否保护 Application.SendKeys "%{F11}", True 'Alt + F11 切换到VBA视窗 Application.SendKeys "%T", True 'ALT + T 工具(繁体中文是(T)) Application.SendKeys "e", True '工具(T)-VBproject属性(E) myPW = "chijanzen" '假设密码 chijanzen Application.SendKeys myPW, True '取消保护密码时需打入原始密码 Application.SendKeys "{ENTER}", True '按确定钮(预设值) Application.SendKeys "{ENTER}", True '按确定钮(预设值) Application.SendKeys "%{F11}", True 'Alt + F11 切换到Excel视窗End If'清除密码 Application.SendKeys "%{F11}", True 'Alt + F11 切换到VBA视窗 Application.SendKeys "%T", True 'ALT + T 工具(繁体中文是(T)) Application.SendKeys "e", True '工具(T)-VBproject属性(E) myPW = "chijanzen" '假设密码 chijanzen Application.SendKeys "^{TAB}", True 'TAB 键(切换到PAge2 保护页面) Application.SendKeys "{-}", True '选取Checkbox方块(锁定专案以供检视) '({+} 选取, {-} 取消选取) Application.SendKeys "{TAB}", True 'TAB 键(跳到第一次输入密码 Textbox Application.SendKeys "{DEL}", True '清除密码 Application.SendKeys "{TAB}", True 'TAB 键(跳到第二次输入密码 Textbox Application.SendKeys "{DEL}", True '清除密码 Application.SendKeys "{ENTER}", True '按确定钮(预设值) Application.SendKeys "%{F11}", True '返回Excel视窗End Sub