《如何破解EXCEL表格的密码保护.pdf》由会员分享,可在线阅读,更多相关《如何破解EXCEL表格的密码保护.pdf(1页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、百川东到海,何时复西归?少壮不尽力,老大徒伤悲。汉乐府长歌行百学须先立志。朱熹如何破解 EXCEL 表格的密码保护 我们常常会在 EXCEL 输入密码以保护部分表格不被他人修改,但往往会忘记密码,现提供一解决方法,供大家参考!1.按 Alt+F11,打开 VBA 编辑器。2.在“工程”窗口中选择要取消保护的工作表名称,单击菜单“插入模块”。3.在右侧的代码窗口中输入下列代码:Sub Remove_WorkSheet_Password()Dim i As Integer,j As Integer,k As Integer Dim l As Integer,m As Integer,n As In
2、teger Dim i1 As Integer,i2 As Integer,i3 As Integer Dim i4 As Integer,i5 As Integer,i6 As Integer On Error Resume Next If =False Then MsgBox 该工作表没有保护密码!Exit Sub End If 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
3、 To 66 For i5=65 To 66:For i6=65 To 66:For n=32 To 126 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 =False Then MsgBox 已经解除了工作表保护!Exit Sub End If Next:Next:Next:Next:Next:Next Next:Next:Next:Next:Next:Next End Sub 4.关闭 VBA 编辑器,回到工作表中,按 Alt+F8,打开“宏”对话框,选择“Remove_WorkSheet_Password”,并单击“执行”按钮。稍等片刻工作表保护将被取消。