解除EXCEL工作表锁定.pdf

《解除EXCEL工作表锁定.pdf》由会员分享，可在线阅读，更多相关《解除EXCEL工作表锁定.pdf（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、(WORD)-生产企业质量管理制度范本 760 1 解除 2007 版 EXCEL 工作表锁定（2003 版方法也雷同）第一步，打开 EXCEL 第二步，点击标题视图接着点击宏 第三步，点击录制宏(WORD)-生产企业质量管理制度范本 760 2 第四步，当弹出框体后按确定 第五步，再次点击宏停止录制 第六步，再次点击宏查看宏 第七步，弹出框体后点击编辑(WORD)-生产企业质量管理制度范本 760 3 第八步，把以下代码复制进去接着关闭就可以 复制以下代码 Sub PasswordBreaker()Dim i As Integer,j As I

2、nteger,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:F

3、or 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 One usable password is&Chr(i)&Chr(j)&_ Chr(k)&Chr(l)&Chr(m)&Chr(i1)&Chr(i

4、2)&_ Chr(i3)&Chr(i4)&Chr(i5)&Chr(i6)&Chr(n)ActiveWorkbook.Sheets(1).Select Range(a1).FormulaR1C1=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(WORD)-生产企业质量管理制度范本 760 4 第九步，再次点击宏查看宏点击执行 第九步，再次点击宏查看宏点击执行等 1-2 分钟得到密码如下图：记住密码 大功告成，可以修改了！面对强大的对手，明知不敌，也要毅然亮剑，即使倒下，也要化成一座山