资源管理站

最简单方法破解获取excel工作表密码

zyglz 4745 0

特别声明:本文为原创,可自由转载、引用,但需署名作者且注明文章出处,如有侵权请联系!

最简单方法破解获取excel工作表密码

在工作中,存在某个表格不允许别人更改表格布局或者在不允许修改的单元格内进行编辑,往往会对当前工作表进行加密设置,但时间久了,加之表格多了,就有可能忘记当初设置的密码,无法对表格再次进行编辑和修改,下面介绍一种最简单的破解表格加密密码的方法!


第一步:打开excel表格的“开发工具“下的“Visual Basic”

在工程窗口的空白处点击鼠标右键,选择-插入-模块;

第二步:在新建的模块中,复制粘贴一下代码;

Sub unPsht()  '删除工作表密码
    Dim i As Byte, j As Byte, k As Byte
    Dim l As Byte, m As Byte, n As Byte
    Dim i1 As Byte, i2 As Byte, i3 As Byte
    Dim i4 As Byte, i5 As Byte, i6 As Byte
    On Error Resume Next
    If ActiveSheet.ProtectContents = False Then MsgBox "该工作表没有设置密码保护", 32, "提示": Exit Sub
    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
    ActiveSheet.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 ActiveSheet.ProtectContents = False Then
    MsgBox "找到一个可用密码" & Chr(i) & Chr(j) & _
    Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
    Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    Exit Sub
    End If
    Next: Next: Next: Next: Next: Next
    Next: Next: Next: Next: Next: Next
End Sub

第三步:执行刚刚粘贴的宏代码:

两种方法:

方法1:在刚刚粘贴代码的窗口上方点击蓝色向右的箭头或按F5快捷键,执行代码

方法2:返回表格界面在“开发工具”选项下点击“宏”,选择刚刚粘贴的宏名称“unpsht”,点击执行。

第四步:破解完成,现在表格回复到未加密状态!

评论列表 (已有0条评论)

消灭零回复

发表评论 (已有0条评论)

icon_lol.gif2016zhh.gif2016fendou.gif2016lengh.gificon_exclaim.gif2016gg.gif2016yhh.gificon_cry.gif2016bs.gif2016qd.gif2016bz.gificon_eek.gif2016ka.gif2016zhem.gificon_confused.gif2016qq.gif2016db.gif2016jk.gif2016tuu.gif2016zk.gif2016kk.gificon_neutral.gif