1. VBA密码破解

如果Excel文件的打开密码忘记了，且密码是6位数以内的数字，可用以下步骤解开：关闭所有程序（为了速度）。

新开一Excel，同时按Alt和F11，进入VBA界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码：Subcrack()DimiAsLongDimFileNameAsStringi=1FileName=Application.GetOpenFilename("Excel文件（*.xls&*.xlsx）,*.xls;*.xlsx",,"VBA破解")FileName=Right(FileName,Len(FileName)-InStrRev(FileName,"\"))Application.ScreenUpdating=Falseline2:OnErrorGoToline1Workbooks.OpenFileName,False,True,,iMsgBox"Passwordis"&iExitSubline1:i=i+1Resumeline2Application.ScreenUpdating=TrueEndSub然后直接按F5运行此宏，找到你要的文件，等啊等，如果有字母，稍微复杂些，道理是类似的。太长的密码，基本解不开了。

若果还有读写密码，且与打开密码一样，将Workbooks.OpenFileName,False,True,,i改为Workbooks.OpenFileName,False,True,,i,i按下F5后会出现密码

2. vba代码助手破解方法

1. 先要下载一个控件qrmaker，下载的文件解压后，将QRMaker文件夹里的所有文件复制到c:\windows\system32下。通过“开始→运行”，在运行窗口里输入regsvr32 c:\windows\system32\QRmaker.ocx注册组件。

2. 打开Excel，因为之后要用到VBA，进入Excel选项，勾选“在功能区显示开发工具”，切换到开发工具选项卡，单击Visual Basic打开VBA编辑器，选择“工具→引用→浏览”，找到c:\windows\system32\QRMaker.ocx，关闭编辑器。

3. 回到Excel中，在空白处插入一个命令按钮，右击该按钮选择指定宏→录制，宏命名为print2d，停止录制宏。

4. 同时插入其他控件中的QRMaker Control，点“确定”后鼠标会变成十字，在空白区域画一个二维码控件。

5. 再次打开VBA编辑器，在左边找到模块1，双击后清空右边所有内容，输入以下代码：

Sub print2d()

Dim QRString1 As String

'定义变量

QRString1 = Sheet1.Range("A1")

'将A1单元格的值传递给QRString1

Sheet1.Select

Sheet1.QRmaker1.AutoRedraw = ArOn

'启用QRmaker的自动重画属性

Sheet1.QRmaker1.InputData = QRString1

'将QRString1的值传递给QRmaker1

End Sub

保存关闭VBA编辑器，回到Excel，单击Print2D按钮就可以将A1单元格的内容生成二维码。

3. vba的密码怎么破

如果知道密码的话，按快捷键ALT+F11.进入VBA界面去删除。如果不知道密码的话，可以用一些工具或者用宏程序去暴力破解。工具我知道的现在EXCEL必备工具箱比较好用

4. vba代码密码可以破解吗

1、先对excel档进行一般的vbaproject”工程密码保护"。

2、打开要保护的档，选择∶工具--->保护--->保护并共用活页簿--->以追踪修订方式共用-->输入密码-->保存档。

完成后，当你打开“vbaproject”工程属性时，就将会提示∶“工程不可看"

5. vba程序加密怎么破解

有个笨办法，不知道是否有用。 制作一个无用的宏例如： sub aa() dim i as long i=1 end sub 然后通过菜单 工具－－宏－－选项，给宏aa指定快捷键，例如指定为CTRL+P，可以间接实现。

6. vba破解版

网上能找到一些专门破解Office密码的软件，一般都是使用字典和暴力两种方式，如果密码不长可以试出来，可以破解打开文件的密码和打开VBA的密码，不过一定要小心，这种软件不是正式软件，有很多都有毒或是木马，小心小心。

7. vba 破解

准备工具：表格，电脑，OFFICE密码破解软件（OfficeToolbox软件）

1.打开BOX软件，在软件页面中找到文件选择选项，点击该选项进入到文件选择页面中。

2.在文件选择页面中找到需要修改的表格，鼠标左键点击选中该表格。

3.选中完毕后，在该页面中找到打开选项，点击该选项进入到破解页面中。

4.在破解页面中找到移除密码选项，点击该选项进行密码移除功能，等待功能完成。

5.功能完成后在新弹出的页面中找到确定选项，点击该选项进行操作确认。

6.确认完成，在原表格所在的文件夹中会出现一个新生成的表格，该表格即为原表格解除密码后的表格。

8. VBA破解

这是因为作者对文档进行了加密，这种加密估计是在workopen事件中写入的代码，要破解vba密码一般用Advanced VBA Password Recovery ，但是作者再打开文件时进行了文件路径的检查所以，你要先在打开文件的时候禁用“宏”，然后配合Advanced VBA Password Recovery软件估计可以搞定。

9. vba代码加密破解

当然会出错：

因为你加密了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

10. vba加密破解

在VBA编辑器的"工具”菜单里点“VBAProject属性"，在“保护”页中把“查看时缩定工程”的勾选上，然后输入密码后确定即可。这样下次打开查看代码时就需要输入密码了。但这种加密方式的破解，早就有专用工具了，可以在网络上查找试试。比较好的方法是，把做好含有VBA代码的Excel编译成exe文件，这种工具也可以在网上找到，自己找一下吧。