vba 密码破解

2 篇文章 0 订阅
文章介绍了两个使用VBA编写的宏,分别针对工作表和工作簿,用于临时解除保护并显示隐藏的sheet,以实现密码破解的功能。
摘要由CSDN通过智能技术生成


##工作表破解

Sub 破解密码()
     Dim a As Worksheet
	 For Each a In Worksheets
	   a.Protect AllowFiltering:=True
	   a.Unprotect
	 Next
End Sub




##工作簿破解
Sub 工作簿密码破解()
	ActiveWorkbook.Sheets.Copy
	   For Each sh In ActiveWorkbook.Sheets
	   sh.Visible=True
	Next
End Sub
  • 1
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
撤消vba工程密码 vba的过程可以通过以下步骤完成。 首先,在弹出的VBA编辑器中打开需要撤消密码vba工程文档。然后,按下“ALT+F11”快捷键,打开VBA编辑器界面。 接下来,右键单击工程名称,选择“模块”选项,单击“插入”按钮,选择“菜单模块”选项。在弹出的“新建菜单模块”窗口中,输入响应的VBA代码,以及新的未加密的密码。 然后,添加以下代码到VBA编辑器窗口中的“菜单模块”中: ``` Sub CrackVBAProjectPassword() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveWorkbook.ProtectStructure = False Then Continue = True exit for End If Next: If Continue = True Then Exit For Next: If Continue = True Then Exit For Next: If Continue = True Then Exit For Next: If Continue = True Then Exit For Next: If Continue = True Then Exit For Next: If Continue = True Then Exit For Next: If Continue = True Then Exit For Next: If Continue = True Then Exit For Next: If Continue = True Then Exit For Next: If Continue = True Then Exit For End Sub ``` 运行插入的VB代码。VBA编辑器窗口中的“立即窗口”将显示新的未加密密码。通过此密码即可解除vba工程密码。 最后,输入新的密码,然后保存并重新打开vba工程文档即可生效,无需使用密码即可修改vba工程的代码和数据。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值