excel文件密码忘记了该怎么办
【免费下载】excel文件忘记密码后的解密方法
excel文件忘记密码后的解密方法excel文件密码的设置有2种，一种是写保护，另外一种是打开保护。
对应不同的保护措施，应该用不同的解密方法。
一：这是写保护的破解：方法:1\打开文件2\工具---宏----录制新宏---输入名字如:aa3\停止录制(这样得到一个空宏)4\工具---宏----宏,选aa,点编辑按钮5\删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)6\关闭编辑窗口7\工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!!代码如下：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 passwordsConst DBLSPACE As String = vbNewLine & vbNewLineConst 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 & VERSIONConst MSGNOPWORDS2 As String = "There was no protection to " & _ "workbook structure or windows." & DBLSPACE & _"Proceeding to unprotect sheets." & AUTHORS & VERSIONConst 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 & VERSIONConst 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 & VERSIONConst 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 & VERSIONConst MSGONLYONE As String = "Only structure / windows " & _"protected with the password that was just found." & _ALLCLEAR & AUTHORS & VERSION & REPBACKDim w1 As Worksheet, w2 As WorksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim m As Integer, n As Integer, i1 As Integer, i2 As IntegerDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As IntegerDim PWord1 As StringDim ShTag As Boolean, WinTag As Boolean Application.ScreenUpdating = False With ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADER Exit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADER ElseOn Error Resume NextDo 'dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 With ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)If .ProtectStructure = False And _.ProtectWindows = False ThenPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)MsgBox Application.Substitute(MSGPWORDFOUND1, _ "$$", PWord1), vbInformation, HEADERExit Do 'Bypass all for...nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfIf WinTag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In Worksheets'Attempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In Worksheets'Checks for all clear ShTag triggered to 1 if not.ShTag = ShTag Or w1.ProtectContentsNext w1If ShTag ThenFor Each w1 In WorksheetsWith w1If .ProtectContents ThenOn Error Resume NextDo 'Dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 .Unprotect Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)If Not .ProtectContents ThenPWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)MsgBox Application.Substitute(MSGPWORDFOUND2, _ "$$", PWord1), vbInformation, HEADER'leverage finding Pword by trying on other sheetsFor Each w2 In Worksheetsw2.Unprotect PWord1Next w2Exit Do 'Bypass all for...nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfEnd WithNext w1End IfMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER End Sub6. 然后执行便可获得密码附件：Sub PasswordBreaker() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next 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 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For 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(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox "One usable password is " & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) ActiveWorkbook.Sheets(1).Select Range("a1").FormulaR1C1 = Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub今天解决的大问题！！解释一下：当Excel工作表采用密码保护时，就会生成一个16位(双字节) 长hash值。
EXCEL文件如何解锁
EXCEL文件如何解锁
一、文件层面的解锁方法：
1.打开要解锁的EXCEL文件，输入打开密码。
2. 在“文件”选项卡下，点击“另存为”，选择保存文件的路径和
格式（比如保存为Excel Workbook）。
3.在保存窗口的右下角，点击“工具”按钮，选择“一般选项”。
4.在弹出的“工作簿加密密码”对话框中，清空密码输入框中的内容，并点击“确定”按钮。
5.点击“保存”按钮，保存文件到指定路径。
6.关闭打开的EXCEL文件，再打开保存的文件，此时文件已解锁。
二、工作表层面的解锁方法：
1.打开要解锁的EXCEL文件，输入打开密码。
2.在“格式”选项卡下，点击“保护工作表”按钮。
3. 在弹出的“保护工作表”对话框中，清空密码输入框中的内容，
并取消勾选“Windows登录密码”。
4.点击“确定”按钮，此时工作表的保护已解除。
需要注意的是，以上方法都需要输入打开密码才能解锁文件，如果忘
记了打开密码
1. 使用商业软件：有很多第三方软件，如PassFab for Excel、
Excel Password Unlocker等，可以帮助用户破解EXCEL文件的打开密码。
2.使用自定义脚本：通过编写一些VBA脚本来破解打开密码，需要一定的编程知识。
需要注意的是，除非你是文件的拥有者或者授权人，否则破解EXCEL 文件的密码是非法的行为，建议谨慎使用上述方法。
另外，记得定期备份你的文件，避免因密码丢失或忘记导致文件无法正常打开。
excel密码忘记了怎么办？这是我见过最好的解决方法
excel密码忘记了怎么办？这是我见过最好的解决方法之前给大家有讲过保护工作表的那些事儿，简单回忆一下吧，整个excel文档加密，工作表加密、部分单元格加密、excel窗口的加密。
那么我们已经加了密的文档忘记密码了如何解决呢？之前都是给大家说密码一定要自己要备份，那么肯定有人会问那万一就是忘记了怎么办呢？其实解决方法是有的。
下面小菜老师给大家说一下关于6位一下的密码如何解决？第一步：新打开一个excel文档，同时按Alt和F11，进入VBA 界面，第二步：点菜单上的插入，模块，第三步：在新出来的窗口粘贴一下代码：Sub crack()Dim i As LongDim FileName As Stringi = 0FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xlsx）,*.xls;*.xlsx", , "VBA破解")FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))Application.ScreenUpdating = Falseline2: On Error GoT o line1Workbooks.Open FileName, , True, , iMsgBox "Password is " & iExit Subline1: i = i + 1Resume line2Application.ScreenUpdating = TrueEnd Sub注意事项：在测试的时候尽量关掉其他程序，提高速度。
想知道工作表的保护事儿吗？赶紧关注微信号“路凡教育”。
小菜老师告诉你相关的秘密。
excel解密方法
excel解密方法
Excel文件受到来自Microsoft Office的加密保护，有时候当我们需要打开一个已加密的Excel文件的时候可能会出现一些错误，Windows会要求我们提供解密密码。
打开被加密的 Excel 文件是必不可少的，也许我们已经忘记了密码怎么办呢?这里就推荐几种Excel解密方法给大家，我们可以试试去实现。
1、使用文件打开密码恢复工具来恢复文件解密密码。
这种方法需要使用专业免费的文件加密密码恢复工具，这样我们可以用加密工具针对特定的文件类型(如Word 、PDF、Excel等文件 )，来进行安全的文件解密密码恢复。
2、使用密码暴力破解软件来解密Excel。
虽然这种方法可以有效地破解文件密码，但是破解速度极慢，尤其是当文件加密强度比较高的时候，破解工具可能要花费好几个小时甚至几到几天的时间才能破解出密码，当然，这也取决于文件大小、文件加密算法和文件的密码强度等因素。
3、如果不小心忘记文件的密码，我们可以使用穷举法暴力破解Excel文件的密码；穷举法暴力破解的方法也很简单，就是让计算机列举出所有可能的密码，从中找出正确的解密密码。
4、还有就是使用解密服务，我们可以找到一些专业的文件解密服务来为我们提供文件解密服务，这样就可以省去麻烦，把文件交给解密专家，他们可以针对不同加密算法提供解码工具和技术，给出解密方案以及提供解密服务的收费标准。
总之，上述四种常见的Excel解密方法基本可以满足绝大多数人的需求，如果你遇到了Excel被加密文件，不要担心，上述四种解密方法是可以帮助你解密文件的，但是有时候，你可能需要尝试几种方案，才能实现解密文件，希望大家能够掌握一定的解密技能，及时解决文件加解密问题。
excel密码忘记了怎么解锁
excel密码忘记了怎么解锁导读：本文将介绍如何解锁忘记密码的Excel文件。
当您忘记了您的Excel密码时，可以使用两种方法进行解锁。
第一种方法是使用第三方密码恢复工具，第二种方法是使用VBA宏代码进行解锁。
下面将详细介绍这两种方法的步骤。
对于Excel密码的忘记，有两种可行的解锁方法。
第一种方法是使用第三方密码恢复工具，第二种方法是使用VBA宏代码。
下面将详细介绍这两种方法的步骤。
方法一：使用第三方密码恢复工具第一步：下载并安装密码恢复工具访问一个可信的软件下载网站，搜索并下载一个Excel密码恢复工具。
确保选择一个经过验证的工具，并确保从安全可信的来源下载。
第二步：打开密码恢复工具双击下载的文件，按照安装向导的指示进行安装，并打开密码恢复工具。
第三步：导入Excel文件在密码恢复工具中选择“导入”选项，然后选择您忘记密码的Excel文件，并点击“导入”。
第四步：选择恢复模式工具会提供不同的恢复模式，如暴力恢复、字典恢复等。
选择一个适合的恢复模式，并设置相应的选项。
第五步：开始密码恢复点击“开始”按钮，密码恢复工具将开始尝试恢复您的Excel密码。
这个过程可能需要一些时间，取决于密码的复杂性。
第六步：获得密码当密码恢复工具找到密码时，它会在屏幕上显示出来。
将找到的密码记下来，然后使用它来解锁您的Excel文件。
方法二：使用VBA宏代码第一步：打开Excel文件双击您忘记密码的Excel文件，打开它。
第二步：按下快捷键同时按下“ALT”和“F11”键，打开VBA编辑器。
第三步：插入新的模块在VBA编辑器中，选择“插入”菜单，并选择“模块”。
第四步：复制VBA代码从可信来源复制以下VBA宏代码，并在新建的模块中粘贴。
Sub PasswordBreaker()'Breaks worksheet password protection.On Error Resume NextFor Each ws In Worksheetsws.Unprotect Password:=""Next wsEnd Sub第五步：运行宏代码按下“F5”或点击“运行”按钮运行宏代码。
忘记excel密码的解决方法
忘记excel密码的解决方法
忘记Excel密码是一个常见的问题，但幸运的是有几种方法可以解决这个问题。
首先，你可以尝试使用一些基本的密码，比如你常用的密码或者与你相关的日期或数字组合。
如果你仍然无法记起密码，以下是一些更具体的解决方法：
1. 使用密码提示，在输入密码时，Excel通常会提示你设置一个密码提示。
这个提示可能会帮助你回忆起密码。
2. 使用密码恢复工具，有一些第三方工具可以帮助你恢复忘记的Excel密码。
这些工具可以通过暴力破解或其他方法来尝试解锁文件。
但请注意，使用第三方工具可能存在安全风险，因此请确保从可信赖的来源获取工具并且在使用后立即删除工具。
3. 重置密码，如果你无法通过上述方法解决问题，你可以考虑重置密码。
你可以尝试将文件另存为另一种格式或者将文件内容复制到新文档中，这样可以去除密码保护。
4. 使用Excel密码恢复服务，有一些在线服务可以帮助你恢复Excel密码。
你可以上传受保护的文件，并支付费用以获取密码。
5. 联系Microsoft支持，作为最后的手段，你可以尝试联系Microsoft支持团队寻求帮助。
他们可能有一些高级的方法来帮助
你解决问题。
总的来说，忘记Excel密码是一个令人沮丧的问题，但通常情
况下是可以解决的。
希望上述方法中的某一个能够帮助你解决问题。
excel找回密码方法
excel找回密码方法Excel是一款功能强大的电子表格软件，被广泛应用于数据处理和分析。
然而，在使用Excel时，我们有时候可能会遇到忘记密码无法打开文件的情况。
那么，接下来，我将介绍一些常用的Excel找回密码方法，帮助您解决遗忘密码的问题。
1. 通过尝试常用密码：如果您忘记了打开Excel文件的密码，首先可以尝试一些常见的密码，例如数字顺序、常用生日、姓名等。
有时候，这些简单的密码是我们自己设置的，所以可能会起作用。
2. 使用Excel密码恢复工具：如果常用密码不起作用，您可以考虑使用专业的Excel密码恢复工具。
这些工具能够帮助您破解或恢复Excel文件的密码。
您可以在互联网上搜索并下载这些工具，然后按照工具的说明进行操作。
请注意，在使用此类工具时，要确保您遵守法律法规，并仅用于合法目的。
3. 使用VBA代码破解密码：如果您了解一些Excel的VBA编程知识，您可以尝试使用VBA代码来破解密码。
您可以打开需要破解密码的Excel文件，按下ALT+F11进入VBA编辑器，然后在模块中插入以下代码：```Sub PasswordBreaker()Dim i As Integer, j As Integer, k As IntegerDim l As Integer, m As Integer, n As IntegerDim i1 As Integer, i2 As Integer, i3 As IntegerDim i4 As Integer, i5 As Integer, i6 As IntegerOn Error Resume NextFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)If ActiveSheet.ProtectContents = False ThenMsgBox "密码已破解为: " & Chr(i) & Chr(j) & _Chr(k) & Chr(l) & Chr(m) & Chr(i1) & _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```4. 寻求专业帮助：如果您对Excel密码恢复技术不熟悉，或者以上方法未能解决问题，您可以寻求专业的帮助。
excel2003忘记密码的解决教程
excel2003忘记密码的解决教程
excel2003忘记密码的解决教程：
忘记密码解决步骤1：先暂定系统中的杀毒软件，等将excel 密码破解完毕后再重新开启杀毒。
(破解类的工具杀毒软件都会误认为是木马或病毒，这个没毒，请放心使用。
)
忘记密码解决步骤2：双击运行该软件;
忘记密码解决步骤3：单击“文件”按钮，在弹出的菜单中选择“打开文件…”，然后找到你需要破解的excel表格的存放位置，打开;
忘记密码解决步骤4：此时，excel文件就已经导入了此软件，大家还可以看到可以破解“打开”、写入、工作簿密码、共享工作簿密码、vba工程密码等，全部可以移除。
点击界面上的“移除密码”;
忘记密码解决步骤5：点击“移除密码”以后会提示程序必须要链接网络才可以运行，(确定你的计算机是否已经链接好了网络，然后单击“确定”按钮);
忘记密码解决步骤6：这时后会提示“状态：正在链接到rixler server ”，只需等待几秒钟破解完成即可。
忘记密码解决步骤7：ok，密码被成功移除，该文档已经被成功解密，如下图：
忘记密码解决步骤8：哦，生成了一个新的没有密码了的文档：
西西软件 _nesoy.xls
里边内容部方便公开，我随便打开了一个测试时打开的截图。
看了excel2003忘记密码的解决教程。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
excel文件密码忘记了该怎么办
大部份朋友都喜欢加密Excel文件, 但如果很久不用, 可能自己都忘记密码了. Excel 文件忘记密码了该怎么办呢? 有个朋友就给自己的电子表格都加密了，但是现在密码不知道设是什么了, 打不开文件, 密秘数据对自己都关上了大门，发信息来我这求救了。
加密解密从来就是两个冤家, 只要能你加密上去, 就有解开的办法俗话说"道高一尺, 魔高一丈", 就是这个意思. 但不是每个人都有这么高的道行, 有如些高深的电脑知识知道如何去破解. 这些都有专业的人去做. 我们用人家的成果--破解软件就行了.
Excel文件加了密码的文件, 推荐使用使用软件“Office Password Remover”，这个软件能破解Word、Excel和Access文档密码, 而且速度很快，一般情况下解密过程要要几秒钟就行了.
这个软件可以在网上搜索一上, 有很多破解版的可以下载, 这里就不提供下载了. 安装很容易, 一路Next就行了. 该软件下载并安装后，会直接在桌面形成快捷方式. 这里注意, 最好下载破解版，如果是非破解版的软件，破解后的文件很可能出现部分内容遗失的情况。
使用的方法也很简单，双击软件图标，软件弹出的界面看起来很简单，选中“文件夹”图标中，这时候指定需要破解的文档地址，找到忘记密码的Excel文件, 下面的工作软件会自己完成, 如果存在密码，该软件就会自动破解，速度很快。
如果没有密码，会自动显示为None, 表示不用破解。