欢迎来到天天文库
浏览记录
ID:68686313
大小:12.50 KB
页数:1页
时间:2021-10-11
《如何破解EXCEL表格的密码保护》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、如何破解EXCEL表格的密码保护我们常常会在EXCEL输入密码以保护部分表格不被他人修改,但往往会忘记密码,现提供一解决方法,供大家参考! 1.按Alt+F11,打开VBA编辑器。 2.在“工程”窗口中选择要取消保护的工作表名称,单击菜单“插入→模块”。 3.在右侧的代码窗口中输入下列代码: SubRemove_WorkSheet_Password() DimiAsInteger,jAsInteger,kAsInteger DimlAsInteger,mAsInteger,nAsInteger Dimi1AsInteger,i2AsInteger,i3AsIntege
2、r Dimi4AsInteger,i5AsInteger,i6AsInteger OnErrorResumeNext If=FalseThen MsgBox"该工作表没有保护密码!" ExitSub EndIf Fori=65To66:Forj=65To66:Fork=65To66 Forl=65To66:Form=65To66:Fori1=65To66 Fori2=65To66:Fori3=65To66:Fori4=65To66 Fori5=65To66:Fori6=65To66:Forn=32To126 Chr(i)&Chr(j)&Chr(k)&_ Chr(l)&
3、Chr(m)&Chr(i1)&Chr(i2)&Chr(i3)&_ Chr(i4)&Chr(i5)&Chr(i6)&Chr(n) If=FalseThen MsgBox"已经解除了工作表保护!" ExitSub EndIf Next:Next:Next:Next:Next:Next Next:Next:Next:Next:Next:Next EndSub 4.关闭VBA编辑器,回到工作表中,按Alt+F8,打开“宏”对话框,选择“Remove_WorkSheet_Password”,并单击“执行”按钮。稍等片刻工作表保护将被取消。
此文档下载收益归作者所有