内容导航:


一、excel密码怎么破解


操作方法:

  • 01

    打开excel工作表。

  • 02

    然后在Excel表中找到【视图】。

  • 03

    点开【宏】。

  • 04

    然后选择【录制宏】。

  • 05

    接着会弹出一个窗口,点击【确定】。

  • 06

    在此点开【宏】,点击【停止录制】。

  • 07

    然后再点击【宏】,弹出窗口点击【编辑】。

  • 08

    然后点击【模板1】,并清空右边红框里的代码,如下图。

  • 09

    然后把破解代码复制粘贴进入空白处(破解代码小编将在文章最底部分享给大家)。

  • 10

    然后在打开【查看宏】,点击执行破解代码。

  • 11

    会弹出一个框,是英文的,看不懂没关系,点击确定,解密需要一段时间。

  • 12

    破解代码:
    PublicSubAllInternalPasswords()
    'Breaksworksheetandworkbookstructurepasswords.BobMcCormick
    'probablyoriginatorofbasecodealgorithmmodifiedforcoverage
    'ofworkbookstructure/windowspasswordsandformultiplepasswords
    '
    'NormanHarkerandJEMcGimpsey27-Dec-2002(Version1.1)
    'Modified2003-Apr-04byJEM:Allmsgstoconstants,and
    'eliminateoneExitSub(Version1.1.1)
    'RevealshashedpasswordsNOToriginalpasswords
    ConstDBLSPACEAsString=vbNewLine&vbNewLine
    ConstAUTHORSAsString=DBLSPACE&vbNewLine&_
    "AdaptedfromBobMcCormickbasecodeby"&_
    "NormanHarkerandJEMcGimpsey"
    ConstHEADERAsString="AllInternalPasswordsUserMessage"
    ConstVERSIONAsString=DBLSPACE&"Version1.1.12003-Apr-04"
    ConstREPBACKAsString=DBLSPACE&"Pleasereportfailure"&_
    "tothemicrosoft.public.excel.programmingnewsgroup."
    ConstALLCLEARAsString=DBLSPACE&"Theworkbookshould"&_
    "nowbefreeofallpasswordprotection,somakesureyou:"&_
    DBLSPACE&"SAVEITNOW!"&DBLSPACE&"andalso"&_
    DBLSPACE&"BACKUP!,BACKUP!!,BACKUP!!!"&_
    DBLSPACE&"Also,rememberthatthepasswordwas"&_
    "putthereforareason.Don'tstuffupcrucialformulas"&_
    "ordata."&DBLSPACE&"Accessanduseofsomedata"&_
    "maybeanoffense.Ifindoubt,don't."
    ConstMSGNOPWORDS1AsString="Therewerenopasswordson"&_
    "sheets,orworkbookstructureorwindows."&AUTHORS&VERSION
    ConstMSGNOPWORDS2AsString="Therewasnoprotectionto"&_
    "workbookstructureorwindows."&DBLSPACE&_
    "Proceedingtounprotectsheets."&AUTHORS&VERSION
    ConstMSGTAKETIMEAsString="AfterpressingOKbuttonthis"&_
    "willtakesometime."&DBLSPACE&"Amountoftime"&_
    "dependsonhowmanydifferentpasswords,the"&_
    "passwords,andyourcomputer'sspecification."&DBLSPACE&_
    "Justbepatient!Makemeacoffee!"&AUTHORS&VERSION
    ConstMSGPWORDFOUND1AsString="YouhadaWorksheet"&_
    "StructureorWindowsPasswordset."&DBLSPACE&_
    "Thepasswordfoundwas:"&DBLSPACE&""&DBLSPACE&_
    "Noteitdownforpotentialfutureuseinotherworkbooksby"&_
    "thesamepersonwhosetthispassword."&DBLSPACE&_
    "Nowtocheckandclearotherpasswords."&AUTHORS&VERSION
    ConstMSGPWORDFOUND2AsString="YouhadaWorksheet"&_
    "passwordset."&DBLSPACE&"Thepasswordfoundwas:"&_
    DBLSPACE&""&DBLSPACE&"Noteitdownforpotential"&_
    "futureuseinotherworkbooksbysamepersonwho"&_
    "setthispassword."&DBLSPACE&"Nowtocheckandclear"&_
    "otherpasswords."&AUTHORS&VERSION
    ConstMSGONLYONEAsString="Onlystructure/windows"&_
    "protectedwiththepasswordthatwasjustfound."&_
    ALLCLEAR&AUTHORS&VERSION&REPBACK
    Dimw1AsWorksheet,w2AsWorksheet
    DimiAsInteger,jAsInteger,kAsInteger,lAsInteger
    DimmAsInteger,nAsInteger,i1AsInteger,i2AsInteger
    Dimi3AsInteger,i4AsInteger,i5AsInteger,i6AsInteger
    DimPWord1AsString
    DimShTagAsBoolean,WinTagAsBoolean

    Application.ScreenUpdating=False
    WithActiveWorkbook
    WinTag=.ProtectStructureOr.ProtectWindows
    EndWith
    ShTag=False
    ForEachw1InWorksheets
    ShTag=ShTagOrw1.ProtectContents
    Nextw1
    IfNotShTagAndNotWinTagThen
    MsgBoxMSGNOPWORDS1,vbInformation,HEADER
    ExitSub
    EndIf
    MsgBoxMSGTAKETIME,vbInformation,HEADER
    IfNotWinTagThen
    MsgBoxMSGNOPWORDS2,vbInformation,HEADER&nbs



二、解除excel加密的方法步骤详解


在 Excel 中经常碰到一些加密了的文档,如果觉得每次打开都嫌麻烦就需要把密码给撤销了。下面是由我分享的如何解除excel加密的 方法 ,希望对你有用。

  解除excel加密的方法

解除加密步骤1:在excel里点击文件,另存为命令。

解除加密步骤2:为文件指定保存地址。

解除加密步骤3:指定好保存地址和文件名后,点击工具常规选项。


解除excel加密的方法图1

解除加密步骤4:将打开权限密码或者修改权限密码删除,确定,然后保存即可。


解除excel加密的方法图2

  EXCEL中求某一区域内不重复的数据个数

例如求A1:A100范围内不重复数据的个数,某个数重复多次出现只算一个。有两种计算方法:

一是利用数组公式:

=SUM(1/COUNTIF(A1:A100,A1:A100))

输入完公式后按Ctrl+Shift+Enter键,让它自动加上数组公式符号"{}"。

二是利用乘积求和函数:

=SUMPRODUCT(1/COUNTIF(A1:A100,A1:A100))

  excel在已有的单元格中批量加入一段固定字符的方法

例如:在单位的人事资料,在excel中输入后,由于上级要求在原来的职称证书的号码全部再加两位,即要在每个人的证书号码前再添上两位数13,如果一个一个改的话实在太麻烦了,那么我们可以用下面的办法,省时又省力:

1)假设证书号在A列,在A列后点击鼠标右键,插入一列,为B列;

2)在B2单元格写入: ="13" & A2 后回车;



三、excel文件被设置了密码怎么破解


打开文档后,通过文件菜单中“另存为”,将文档存为rtf格式。保存好文件后,先关掉文档再打开另存的文件,选择工具栏中的“解除文档保护”命令,不用填写密码就可以解除此文件的“文档保护功能”,而且任何信息都不会丢失。用Office Password Remover这个软件可以打开。
使用方法:
首先运行解压好的OPRemove.exe 这个程式,打开程式后能看到中间文本框后面有个类似目录的按钮。
选择后出现下图的画面,点击移除密码。
呆几秒钟后便出现“该文件已被成功破解”,点确定即可,这时候就大功告成了。 在这里要注意的是,破解后的文章名字会有点变化,加了“DEMO”这四个字母,翻译过来就是示范的意思,不必在意,重命名去掉就能了。