解除EXCEL工作表锁定.doc

解除2007版EXCEL工作表锁定
(2003版方法也雷同)
第一步，打开EXCEL
第二步,点击标题视图--接着点击宏

第三步，点击录制宏
第四步,当弹出框体后按确定
第五步,再次点击宏——停止录制
第六步，再次点击宏——查看宏
第七步,弹出框体后——点击编辑
第八步，把以下代码复制进去——接着关闭就可以
复制以下代码
Sub PasswordBreaker()
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
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(i2） & _
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
第九步，再次点击宏——查看宏——点击执行
第九步，再次点击宏-—查看宏——点击执行——等1—2分钟得到密码如下图：记住密码

大功告成，可以修改了！