解除EXCEL工作表锁定VIP专享

解除 2024 版 EXCEL 工作表锁定 (2024 版方法也雷同)第一步，打开 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 分钟得到密码如下图：记住密码大功告成，可以修改了！