excel无法复制粘贴已保护的工作表怎么办_第1页
excel无法复制粘贴已保护的工作表怎么办_第2页
excel无法复制粘贴已保护的工作表怎么办_第3页
excel无法复制粘贴已保护的工作表怎么办_第4页
excel无法复制粘贴已保护的工作表怎么办_第5页
全文预览已结束

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、excel无法复制粘贴己保护的工作表怎么办excel表格密码保护的解除方法表格受密码保护时,我们修改数据excel弹出“您试图更改的单元格或图表受保 护,因而是只读的。若耍修改受保护单元格或图表,请先使用撤消工作表保护 命令(在审阅选项卡的更改组中)来取消保护。可能会提示您输入密码。 这时候我们可以用vba宏代码破解法来破解表格保护密码:第一步:打幵该文件(office2007)冊贝面布周诚棚砌引用visual basic 左攻提*阋!aa鶉化大师丄安安全性臂s性 ¥缝代码 3执行对挪tl 3导入代码控件xmlif4/<1打开开发工具一点击“录制宏”,出现“录制新宏”窗口,景制

2、新宏s 1在“宏名”定义一个名称为:passwordbreaker,点击“确定”退出翻新安1农咖於第二步:再点击“宏”一 “查看宏”,选择“宏名”下的“passwordbreaker”并 点击“编辑”,宏1 $ 一城打开 “ microsoft visual basic” 编辑器,文舞o mhd «flco観入«»0)做必番行uk外wfctll)用如下内容替换右侧窗口中的所有代码:sub passwordbreaker()dim i as integer, j as integer, k as integer dim i as integer, m as inte

3、ger, n as integer dim il as integer, i2 as integer, i3 as integer dim i4 as integer, i5 as integer, i6 as integer on error resume nextfor i = 65 to 66: for j = 65 to 66: for k = 65 to 66 for i = 65 to 66: for m = 65 to 66: for il = 65 to 66 for i2 = 65 to 66: for i3 = 65 to 66: for i4 = 65 to 66 for

4、 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(il) & chr(i2) & chr(i3) & _ chr(i4) & chr(i5) & chr(i6) & chr(n)if activesheet.protectcontents = false then msgbox "one usabl

5、e password is " & chr(i) & chr(j) & chr(k) & chr(l) & chr(m) & chr(il) & chr(i2) & _ chr(i3) & chr(i4) & chr(i5) & chr(i6) & chr(n) activeworkbook.sheets(l).selectrange("al").formularlcl = chr(i) & chr(j) & _chr(k) & chr(l) &

6、amp; chr(m) & chr(il) & chr(i2) & _ chr(i3) & chr(i4) & chr(i5) & chr(i6) & chr(n)exit subend ifnext: next: next: next: next: nextnext: next: next: next: next: nextend sub©qbft 135cs«x 扣|:做,(<90) jrftji.mm (代r)(|(*«>,j jf亀鼇霤參r瀘篇r豢lier,文件 d运咖 im(d wffg

7、ra) tcoflo «5(m)u jr5?w 6 27.s曲 rtttvororeumr o笔<8昧一s nskwo (ski褰華曰决< «»t*> i atj kik at i»,*c«rtie 1 atm xw(«<«v, rt it xhi«<«r11 at xat«<*r. i2 a»i) at xat«c«r黪 i磉i5 at zm«<«r, i< at xa<e<«

8、;r ob krv«rbeatr«r i* vq r«r i*or 1clrq) 1 cwte) e chrgl) orgo 毳 cw(*$毳 cw (>略f«r i > s5 t« 66 fer j > 65 te m k 65 t« w r«r 1 > 5 t« u f«r 65 : m r»r ii > <s n u r«r i? > 65 t« 66 for »3 « m to m f< »

9、4 > t« m f«r i$ a 65 t« m 'o »晷的 t* m fw » » t» 1»r(i)纛毳 cwoo 龜.« ckr (i2) 1 cw(i3)蠹.i cw ae) a cw go itr* r«l»«tcoa om蠡 or(i毳 cw(j.cvoo a cwq) a drqb)毳 cwgi) a ckig2) a .cwg3) a cw(i<) 1 cwg5) a cwg«) acwu)$>>< (i)

10、$!<<&«»< r«r)r*r»«i«xici « cxrh)毳 cw(j _cwror) 1 cwq) a cvu) a cw(ll) « cug2) a .cu(|3> 毳 cwg4) a cu g5) a ckr ge) acwu) till mu4 h9«a<m<v< v«r1 v«v<霹驚電 beit霣算 *»< vo<u4 s必 ckft.r *cib > m xnt«<&

11、#171;r4 ixb 1 asi)>b il ai inupr, li» >4 aii mk at am«<«ri as int«(«r# & as int«<«r >2 ai inl«<tr# i3 ai inu<*r is at int«c«r, >5 ai int*c*roh errr rtiwut n«xtfori s 65 to 66:for j s65 to66 f«r ks 65 to 66ur1 

12、71; 65 to m:for «65 tom fr »i« s5 t0 66uri2 s 65 to 66fr i3s 65 to 66 fori4 = 65 to wuri5 « 65 to 66for 16= 6566 forn s 32 t0 126letivnpr«t«el ckr(i)毳 ckr (j) a ckr qe)義ckrq) ckroh) a ckr(il) « ckr(>2) a chr(i3)毳chrg4) « chrgs) a chr (16)毳 cer cn)if acliv&l

13、t;shttt froltctconltnti = ftltt thenisbox *ont usable ptssvord is 裊 ckr(i)裊 ckr(j)喪chroc)毳 chrq) < ckroi) t chr(il) « chr(i2) ackrg3) a chrgo akclivttorkbook sh««poraulchroo 毳 chrol)毳ckr(i3) a chr(i4)ixit subtu ifktxl vtxt (uxt k<l«x< mtxt not m<ihd subcmlir ec uitrik

14、microsoft office exceld>« i at lm*c.r, dia 1 as1dta il at oia a< at iid*<*r#无法在未fi用宏的工作簿中ffiff以下功k vb项目若费使保存的文件興有达空功k,滇寧击否” 然后从文件类w表中送择一个fi用5m文件类fl:若要«保ff力*j6用j準击否®)«助0<)0» error r«iu»« k«xl f>r i « 65 t0 w for j f>r 1 s 6s to 66 fr

15、 1 fw i2 5 5566 forf>r i5 s 65 to 66 foratk as1 atn as int«c«r|2 at>3 at ihu<«ris as int«<«r, 16 at int«<«r» $5 to 66 f«r k « 65 u m :65 to 66 p«r il c $5 t0 66 i3 s 65 t0 66 por i< s $5 t0 w 16 s 65 t0 66 for n = 32 t0 1»

16、tiv«sh«et vnprotwct ckr(>> 毳 ckr(j)羲 chr 00 羲 cwq) a chrb) a cxr(il)毳 chr(i2)毳 ckrg3) « cxr(><) 1 ckr(is)裊 ckr(i6) a ckr (n)if kctiv<sh«t prot«etco&l<nts = ftlst then t<box *0»t uttbl* ptttword i» * < ckr(i) a ckr (j) ckrqc) a ckrq) 

17、1; ckru) a ckr(il)毳 chr(i2)毳. ckr(i3)毳 ckr(>4) « chr (is)毳 ckr (16) « cxru) activtvorkbk sheets(1). select霣爲*赢1.>疒* g* rky 1 i microsoft visual basicjtt私间»警&:此文档中&含宏、acuwx校件、xml if展色gg戎y*b坩件中司rtl含个人值«*井且这埜«不«过“文松s2”进行粉外镄 flma) 口脚 »«ku)><<

18、; (mftls baeel ?*isu«i qb(n«si i(»»5|su<t3 (fflfi褰攀 i txatferku«:脚14蚵轉1:格价* (山)j(lw «u1 (代r>|曲卿 j ;f«b<v«r4*r «ak«r"z1 :s必 rot«ov4br<«)mr pie i at iat«c«r, j at i»l«c«rv k ai !»<<<加裊 1

19、 鼇 xbt«<«r. a atft at xat«<«ria 11 ai x><«c«r. i2as xn<«<tr9 i3 atxnt«<«r>i« i< at15at16 atxm«<»r0» btrr iu««»« b«alf«r 1 > 6$t«66prj est«u farfer 1 > mtemlr* 粘t*(4 fmftr 12 的 t* m f*r u <5 t* m f« i« 65 t> w ftr is $5 t秘 fm <5 t« m fm » « » ft l» “cw(i) cw (j) ckv 00 ,chrq) a cwu) a ckrbl) * ckr(>2)毳 cw<i3毳.or go 毳 or (is扇 cw(is) a cwu)h< f<1%« tx«i»oft* ttitm* pttt

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论