如何破解EXCEL表格的密码保护完整版
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
如何破解E X C E L表格
的密码保护
集团标准化办公室：[VV986T-J682P28-JP266L8-68PNN]
如何破解EXCEL表格的密码保护
我们常常会在EXCEL输入密码以保护部分表格不被他人修改，但往往会忘记密码，现提供一解决方法，供大家参考！
1.按Alt+F11，打开VBA编辑器。
2.在“工程”窗口中选择要取消保护的工作表名称，单击菜单“插入→模块”。
3.在右侧的代码窗口中输入下列代码：
SubRemove_WorkSheet_Password()DimiAsInteger,jAsInteger,kAsIntegerDimlAsInteger,mAsInt eger,nAsIntegerDimi1AsInteger,i2AsInteger,i3AsIntegerDimi4AsInteger,i5AsInteger,i6AsI ntegerOnErrorResumeNextIfActiveSheet.ProtectContents=FalseThenMsgBox"该工作表没有保护密码！
"ExitSubEndIfFori=65To66:Forj=65To66:Fork=65To66Forl=65To66:Form=65To66:Fori1=65To66F ori2=65To66:Fori3=65To66:Fori4=65To66Fori5=65To66:Fori6=65To66:Forn=32To126ActiveShee t.UnprotectChr(i)&Chr(j)&Chr(k)&_Chr(l)&Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_Chr(i4)&Chr(i 5)&Chr(i6)&Chr(n)IfActiveSheet.ProtectContents=FalseThenMsgBox"已经解除了工作表保护！"ExitSubEndIfNext:Next:Next:Next:Next:NextNext:Next:Next:Next:Next:NextEndSub4.关闭VBA编辑器，回到工作表中，按Alt+F8，打开“宏”对话框，选择
“Remove_WorkSheet_Password”，并单击“执行”按钮。稍等片刻工作表保护将被取消。