电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

excel密码破解的三种方式--以备不时之需!

excel密码破解的三种方式--以备不时之需!_第1页
excel密码破解的三种方式--以备不时之需!_第2页
excel 密码破解的三种方式--以备不时之需!(建议收藏)excel 密码破解的三种方式以备不时之需!(建议收藏) excel 工作表密码破解的方法大致有以下三种: VBA 代码破解; 将文件后缀名修改为 RAR 压缩文件后打开相关文件将加密代码删除; 下载现成的插件。 在演示这三种解密方法之前,我们先对 Excel 文件进行加密,以便后面的操作演示: 对身份证校验工作表进行加密 提示输入密码才能修改,说明已经加密成功! 下面依次演示如何使用这三种方法进行破解 Excel 文件的密码。 方法一:VBA 代码破解 右键单击身份证校验工作表,单击查看代码,如下图所示: 然后粘贴以下 VBA 代码,在点击运行(F5),大功告成! Sub 密码破解() ActiveSheet.Protect DrawingObjects:=True, CONTENTS:=True, AllowFiltering:=True ActiveSheet.Protect DrawingObjects:=False, CONTENTS:=True, AllowFiltering:=True ActiveSheet.Unprotect End Sub 其实代码还不止这个 Sub RemoveShProtect() Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer Dim i7 As Integer, i8 As Integer, i9 As Integer Dim i10 As Integer, i11 As Integer, i12 As Integer Dim t As String On Error Resume Next If ActiveSheet.ProtectContents = False Then MsgBox 该工作表没有保护密码! Exit Sub End If t = Timer 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 i7 = 65 To 66: For i8 = 65 To 66: For i9 = 65 To 66 For i10 = 65 To 66: For i11 = 65 To 66: For i12 = 32 To 126 ActiveSheet.Unprotect Chr(i1) 解除工作表保护!用时 0.00) 秒 Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub 方法二:将文件后缀名修改为 RAR 压缩文件后打开相关文件将加密代码删除进行破解。 1、我们关闭工作簿,将此工作簿重命名修改文件后缀名为“rar” 2、双击打开 rar 文件,找到 sheet1.xml,文件路径为“xl>>worksheets>>sheet1.xml”,因为身份证验证工作表是第一个工作表,所以选择 sheet1.xml...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

阳光书坊+ 关注
实名认证
内容提供者

阳光书坊,传播未来

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部