办公知识网1.Microsoft Excel忘记加密密码怎么办
Excel文件加了密码的文件， 推荐使用使用软件 “Office Password Remover”，这个软件能破解Word、Excel和Access文档密码， 而且速度很快，一般情况下解密过程要要几秒钟就行了.这个软件可以在网上搜索一上， 有很多破解版的可以下载， 这里就不提供下载了. 安装很容易， 一路Next就行了. 该软件下载并安装后，会直接在桌面形成快捷方式. 这里注意， 最好下载破解版，如果是非破解版的软件，破解后的文件很可能出现部分内容遗失的情况。
使用的方法也很简单，双击软件图标，软件弹出的界面看起来很简单，选中“文件夹”图标中，这时候指定需要破解的文档地址，找到忘记密码的Excel文件， 下面的工作软件会自己完成， 如果存在密码，该软件就会自动破解，速度很快。如果没有密码，会自动显示为None， 表示不用破解。
2.excel2003加密忘记密码了怎么办
excel—“撤销工作表保护密码”的破解并获取原始密码 在日常工作中，您是否遇到过这样的情况：您用excel编制的报表、表格、程序等，在单元格中设置了公式、函数等，为了防止其他人修改您的设置或者防止您自己无意中修改，您可能会使用excel的工作表保护功能，但时间久了保护密码容易忘记，这该怎么办？有时您从网上下载的excel格式的小程序，您想修改，但是作者加了工作表保护密码，怎么办？您只要按照以下步骤操作，excel工作表保护密码瞬间即破！ 1、打开您需要破解保护密码的excel文件； 2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如：aa; 3、停止录制（这样得到一个空宏）； 4、依次点击菜单栏上的工具---宏----宏，选aa，点编辑按钮；5、删除窗口中的所有字符（只有几个），替换为下面的内容；从横线下开始复制------------------------------------------------------------------------------------------ option explicit public sub allinternalpasswords() ' breaks worksheet and workbook structure passwords. bob mccormick ' probably originator of base code algorithm modified for coverage ' of workbook structure / windows passwords and for multiple passwords ' ' norman harker and je mcgimpsey 27-dec-2002 (version 1.1) ' modified 2003-apr-04 by jem: all msgs to constants, and ' eliminate one exit sub (version 1.1.1) ' reveals hashed passwords not original passwords const dblspace as string = vbnewline & vbnewline const authors as string = dblspace & vbnewline & _ "adapted from bob mccormick base code by" & _ "norman harker and je mcgimpsey" const header as string = "allinternalpasswords user message" const version as string = dblspace & "version 1.1.1 2003-apr-04" const repback as string = dblspace & "please report failure " & _ "to the microsoft.public.excel.programming newsgroup." const allclear as string = dblspace & "the workbook should " & _ "now be free of all password protection, so make sure you:" & _ dblspace & "save it now!" & dblspace & "and also" & _ dblspace & "backup!, backup!!, backup!!!" & _ dblspace & "also, remember that the password was " & _ "put there for a reason. don't stuff up crucial formulas " & _ "or data." & dblspace & "access and use of some data " & _ "may be an offense. if in doubt, don't." const msgnopwords1 as string = "there were no passwords on " & _ "sheets, or workbook structure or windows." & authors & version const msgnopwords2 as string = "there was no protection to " & _ "workbook structure or windows." & dblspace & _ "proceeding to unprotect sheets." & authors & version const msgtaketime as string = "after pressing ok button this " & _ "will take some time." & dblspace & "amount of time " & _ "depends on how many different passwords, the " & _ "passwords, and your computer's specification." & dblspace & _ "just be patient! make me a coffee!" & authors & version const msgpwordfound1 as string = "you had a worksheet " & _ "structure or windows password set." & dblspace & _ "the password found was: " & dblspace & "$$" & dblspace & _ "note it down for potential future use in other workbooks by " & _ "the same person who set this password." & dblspace & _ "now to check and clear other passwords." & authors & version const msgpwordfound2 as string = "you had a worksheet " & _ "password set." & dblspace & "the password found was: " & _ dblspace & "$$" & dblspace & "note it down for potential " & _ "future use in other workbooks by same person who " & _ "set this password." & dblspace & "now to check and clear " & _ "other passwords." & authors & version const msgonlyone as string = "only structure / windows " & _ "protected with the password that was just found." & _ allclear & authors & version & repback dim w1 as worksheet, w2 as worksheet dim i as integer, j as integer, k as integer, l as integer dim m as integer, n as integer, i1 as integer, i2 as integer dim i3 as integer, i4 as integer, i5 as integer, i6 as integer dim pword1 as string dim shtag as boolean, wintag as boolean application.screenupdating = false with activeworkbook wintag = .protectstructure or .protectwindows end with shtag = false for each w1 in worksheets shtag = shtag or w1.protectcontents next w1 if not shtag and not wintag then msgbox msgnopwords1, vbinformation, header exit sub end if msgbox msgtaketime, vbinformation, header if not wintag then msgbox msgnopwords2, vbinformation, header else on error resume next do 'dummy do loop 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 。
3.excel打开密码忘记了怎么办
如果Excel文件的打开密码忘记了，且密码是6位数以内的数字，可用以下步骤解开（关掉所有程序，为了速度）：
新开一Excel，同时按Alt和F11，进入VBA界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码：
Sub crack()
Dim i As Long
Dim FileName As String
i = 0
FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xlsx）,*.xls;*.xlsx", , "VBA破解"）
FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))
Application.ScreenUpdating = False
line2: On Error GoTo line1
Workbooks.Open FileName, , True, , i
MsgBox "Password is " & i
Exit Sub
line1: i = i + 1
Resume line2
Application.ScreenUpdating = True
End Sub
然后在此界面直接按F5运行此宏，选择文件，等啊等（看密码长度了）
4.EXCEL密码忘记了怎么办
Intelore Excel Password Recovery 可以帮助你快速的找回丢失或者遗忘的Excel文档的密码，支持Excel 2003/XP/2002/2000/97等各个版本，程序支持包括 "brute-force"破译技术，基于字典的破译技术和非常快速的"Booost-Up"破译技术三种破译方式，并具有类似于断点续传的功能，可以在你中断了破译之后，自动记忆并可以在下次继续从上次中断的地方继续破译过程，非常实用
软件下载地址：
转载请注明出处办公知识网 » excel加密了怎么办