破解excel加载宏密码(vba破解excel加密文件)

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）就可以了。