1. vba破解excel加密文件
如果Excel文件的打开密码忘记了,且密码是6位数以内的数字,可用以下步骤解开(关掉所有程序,为了速度): 新开一Excel,同时按Alt和F11,进入VBA界面,点菜单上的插入,模块,在新出来的窗口粘贴一下代码: Sub crack() Dim i As Long Dim File...
2. 如果破解excel加密文件
1.
首先选中被加密的excel文件，按F2键把文件后缀名改为rar。
2.
然后双击打开该压缩文件，选择打开XL文件夹。
3.
接着打开worksheets文件夹，将sheet1.xml文件拖到桌面。
4.
右键该文件选择使用记事本打开，按Ctrl+F键查找protection。
5.
删除该词所在尖括号内的全部内容并保存，再将该文件拖回压缩包。
6.
最后在弹窗中点击确定按钮，将压缩文件后缀名重新改为XLSX即可。
3. excel vba加密破解
如果你只有打开密码，且密码是7位数以内的数字，可用以下步骤解开：
新开一Excel，打开，记住文件路径，取消。然后把你待解密文件copy到这一路径，改名为1.xls。然后回到Excel窗口，同时按键盘的Alt和F11，右键点左上窗口中的VBAProject，插入，模块，在右边新出来的窗口粘贴一下代码
Subcrack()
DimiAsLong
i=1
line2:
OnErrorGoToline1
DoWhileTrue
Workbooks.Open"1.xls",,,,i
Workbooks("1.xls").Close0
MsgBox"Passwordis"&i
ExitSub
Loop
line1:
i=i+1
Resumeline2
EndSub
然后运行此宏（回到Excel窗口，工具，宏，宏，DefineHyperlink，运行）
如果有字母，稍微复杂些，道理是一样的。太长的密码，基本解不开了。
若果还有读写密码，且与打开密码一样，将Workbooks.Open"1.xls",,,,i改为Workbooks.Open"1.xls",,,,i,i
4. vba破解excel工作表加密
当然会出错：
因为你加密了VBA工程，而加密的VBA工程的里的代码就会被保护。
也就是说VBA工程加密后，不可以增加删除代码，不可以增加删除窗体，不可以增加删除模块和类模块。而你的代码中：
Set usForm =ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)这个是增加一个窗体，这对受保护的工程来说是不被允许的。除了你这个，还有例如ThisWorkbook.VBProject.VBComponents.Remove XXXXX（删除代码）
ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).Name = "模块1"(增加模块）
等等都是不可以的。
如果你即要加密VBA工程，又想让程序在运行过程中去新增窗体，建议可以考虑一下sendkey方法，在程序开始运行时执行sendkey解锁工程密码。你可以试试代码：（在我电脑上测试了是可以输入或增加工程密码的）
你可以在你增加窗体的那句代码前先执行inputpw()解锁工程密码。
Sub inputpw() '输入密码解锁 Dim pw$ pw = "password" If ThisWorkbook.VBProject.Protection = vbext_pp_locked Then '判断工程是否解锁 '打开VBAProject工程属性 Application.VBE.CommandBars(1).Controls("工具(T)").Controls("VBAProject 属性(&E)...").Execute Application.SendKeys pw '输入密码 Application.SendKeys "{ENTER}" 'enter解锁 End If End If End Sub Sub addpw() '加工程密码 Dim pw$ pw = "password" If ThisWorkbook.VBProject.Protection = vbext_pp_none Then '判断是否加密码工程 '打开VBAProject工程属性 Application.VBE.CommandBars(1).Controls("工具(T)").Controls("VBAProject 属性(&E)...").Execute Application.SendKeys "^+{TAB}" 'ctrl+tab移动到保护 Application.SendKeys "{TAB}" 'tab移动到第一次输密码位置 Application.SendKeys pw '输入密码 Application.SendKeys "{TAB}" 'tab移动到第二次输密码位置 Application.SendKeys pw '输入密码 Application.SendKeys "{ENTER}" 'enter加锁 DoEvents End If End Sub
5. 破解加密的excel文件
首先我们点击打开这个已经加密的Excel文件，打开时需要正确输入文档密码。输入正确密码后，进入Excel表格页面，点击左上角的【文件】。
接着左侧弹出选项，点击第4个【信息】，在这里我们可以找到取消密码的设置。接着进入信息选项，找到保护工作簿，并点击保护工作簿下方的小三角，点击【用密码进行加密】。最后在加密文档密码下方，我们将已有的密码删除，然后点击文档加密框下方的【确定】即可。
6. vba破解excel加密文件要运行多久能破解
准备工具：表格，电脑，OFFICE密码破解软件（OfficeToolbox软件）
1.打开BOX软件，在软件页面中找到文件选择选项，点击该选项进入到文件选择页面中。
2.在文件选择页面中找到需要修改的表格，鼠标左键点击选中该表格。
3.选中完毕后，在该页面中找到打开选项，点击该选项进入到破解页面中。
4.在破解页面中找到移除密码选项，点击该选项进行密码移除功能，等待功能完成。
5.功能完成后在新弹出的页面中找到确定选项，点击该选项进行操作确认。
6.确认完成，在原表格所在的文件夹中会出现一个新生成的表格，该表格即为原表格解除密码后的表格。
7. vba破解excel加密文件要
通过代码对excel代码进行加密即可：
1、打开您需要破解保护密码的Excel文件；
2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:aa；
3、停止录制(这样得到一个空宏)；
4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮；
5、删除窗口中的所有字符(只有几个),替换为下面的内容；Sub 添加密码()Dim x As IntegerFor x = 1 To Sheets.CountSheets(x).Protect "123"Next xhisWorkbook.Protect "123"
8. vba程序加密怎么破解
如果知道密码的话，按快捷键ALT+F11.进入VBA界面去删除。如果不知道密码的话，可以用一些工具或者用宏程序去暴力破解。工具我知道的现在EXCEL必备工具箱比较好用
9. vba破解word文档加密
这是因为作者对文档进行了加密，这种加密估计是在workopen事件中写入的代码，要破解vba密码一般用Advanced VBA Password Recovery ，但是作者再打开文件时进行了文件路径的检查所以，你要先在打开文件的时候禁用“宏”，然后配合Advanced VBA Password Recovery软件估计可以搞定。
10. excel vba 加密
同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：
Subtest()
Cells.Locked=True
Range("G5:G6,H5,G10:H13").Locked=False
ActiveSheet.Protect"12345"
EndSub
密码自己改，运行此宏（直接按F5）就可以了。
- 相关评论
- 我要评论
-