excel保护密码忘了怎么解（忘记了excel密码,如何撤销保护密码）

本文目录一览：

• 1、工作表密码保护忘了怎样解除
• 2、excel表格保护密码忘了怎么办
• 3、excel表设置密码后忘记了如何打开怎么办
• 4、excel打开密码忘记了怎么办？
• 5、excel表格锁定了，不记得密码怎么解锁？
• 6、excel保护密码怎么解除

工作表密码保护忘了怎样解除

取消excel密码保护：

工具／原料：联想拯救者R7000、Windows 10、Excel 2019

1、打开加密excel

打开一个加密的excel，输入密码，点击确定。

2、打开信息页面

点击文件，点击信息。

3、进入加密选项页面

点击保护工作簿，点击用密码进行加密。

4、删除密码

将密码删除，点击确定。

5、返回页面

点击返回。

6、保存并再次打开

点击保存按钮，再次打开即可取消密码了。

excel表格保护密码忘了怎么办

在使用 Excel 的时候，都会讲excel给设置了密码，以防他人篡改或误删数据。但时间长了，密码却忘记了，这是该如何是好。下面让我为你带来excel表格保护密码忘了的解决 方法 。

　excel密码解除步骤如下：

1、打开excel，点击菜单栏的“视图”，点击二级菜单里的“宏”，选择录制宏。

2、在弹出来的方框中输入宏的名字，点击确认。

3、重复第一步的步骤，不过这次点击“停止录制”。

4、选择查看宏。

5、编辑宏。

6、在弹出来的代码框输入下面的代码。

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 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 Then

PWord1 = 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, HEADER

Exit Do 'Bypass all for...nexts

End If

End With

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

Loop Until True

On Error GoTo 0

End If

If WinTag And Not ShTag Then

MsgBox MSGONLYONE, vbInformation, HEADER

Exit Sub

End If

On Error Resume Next

For Each w1 In Worksheets

'Attempt clearance with PWord1

w1.Unprotect PWord1

Next w1

On Error GoTo 0

ShTag = False

For Each w1 In Worksheets

'Checks for all clear ShTag triggered to 1 if not.

ShTag = ShTag Or w1.ProtectContents

Next w1

If ShTag Then

For Each w1 In Worksheets

With w1

If .ProtectContents Then

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 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 Then

PWord1 = 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 sheets

For Each w2 In Worksheets

w2.Unprotect PWord1

Next w2

Exit Do 'Bypass all for...nexts

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

Loop Until True

On Error GoTo 0

End If

End With

Next w1

End If

MsgBox ALLCLEAR AUTHORS VERSION REPBACK, vbInformation, HEADER

End Sub

excel表格保护密码忘了怎么办相关 文章 ：

★ excel表格保护密码忘记了的解决方法

★ excel表格保护密码忘了怎么办

★ excel表设置密码后忘记了如何打开怎么办

★ Excel中进行忘记保护密码的处理技巧

★ excel表设置密码忘记如何打开

★ excel2010密码保护忘记的解决方法

★ excel2007怎么设密码忘记了怎么办

★ Excel中表格工作表保护密码撤销的操作方法

var _hmt = _hmt || []; (function() { var hm = document.createElement("script"); hm.src = ""; var s = document.getElementsByTagName("script")[0]; s.parentNode.insertBefore(hm, s); })();

excel表设置密码后忘记了如何打开怎么办

用Microsoft Excel 时，我们不免会给Microsoft Excel加上密码，但时间一长乱七八糟的密码的太多了，可能就会忘了。那当忘了Microsoft Excel的加密密码怎么办呢，下面让我为你带来excel表设置密码后忘记了如何打开的解决 方法 。

excel表破解密码步骤：

Excel破解密码 Excel忘记密码怎么解开?Excel Password Unlocker破解版是一款专业用于微软 Excel 数据库文档的密码破解恢复工具。想必 Excel 应该是办公一族经常用到的吧，如果你的 Excel 密码忘记了你可以尝试使用该软件进行恢复密码或者清除密码。

Excel Password Unlocker 5.0 汉化版是专为恢复丢失的 Microsoft Excel 密码设计，一个易于使用的工具。密码修改被恢复在短短的几秒钟!对于密码打开，Excel Password Unlocker 5.0 中文版提供了三种不同的搜索方法：高级字典破解，暴力破解，以及高级强力使用面具攻击。从97到2007的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运行此宏，选择文件，等啊等

方法三

Excel—“撤销工作表保护密码”的破解并获取原始密码

1、打开您需要破解保护密码的Excel文件;

2、依次点击菜单栏上的工具---宏----录制新宏，输入宏名字如:aa;

3、停止录制(这样得到一个空宏);

4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮;

5、删除窗口中的所有字符(只有几个),

6、关闭编辑窗口;

7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;

等一会,就会出现以下对话框：这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。再点击确定。Excel的原始密码就被清除了

关于excel表破解密码的相关 文章 推荐：

1. excel表设置密码忘记如何打开

2. excel表格保护密码忘记了的解决方法

3. excel表格中设置密码的教程

4. excel表格打不开需要密码的解决方法

5. excel2016密码怎么设置

6. 如何给excel 文件设置密码

7. excel表格打开密码破解的方法

8. excel如何设置密码共享时提示只读

9. excel表格破解密码的教程

10. 如何在excel中加密码 excel如何加密码保护

excel打开密码忘记了怎么办？

可以通过以下方法进行破解，步骤如下： 1，先找到有工作表保护密码的Excel表格，然后后缀名称，从演示操作表格.xlsx改为演示操作表格.rar： 2，用压缩文件打开，然后找到下面的xl文件夹： 3、打开xl文件夹，找到worksheets文件夹： 4、打开worksheets文件夹，找到sheet1.xml文件： 5、把从压缩文件里面找到的sheet1.xml文件，然后拖拽出来，位置可以随意，但是最好是方便找到的地方，要进行修改： 6、sheet1.xml文件打开方式选择用记事本打开，然后搜索，“protection”，把从这一段

excel表格锁定了，不记得密码怎么解锁？

您好，excel锁定后忘记密码的解决办法

首先打开设置了工作表保护的表格，可以看到，当我们试图编辑时，会弹出这样的对话框。

这时如果我们忘记了密码，可以使用宏命令来将密码显示出来，然后输入正确的密码即可。具体操作时，要先将宏命令的相关工具按钮调出来。单击文件——选项——自定义功能区——在“开发工具”前打勾——确定。

单击工具栏——开发工具——宏，新建宏。然后保存。

编辑该宏，复制下列代码粘贴到宏的内容中去。

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没有启用宏。操作方法如下：单击文件——选项——信任中心——信任中心设置——宏设置——点启用所有宏。然后确定。

excel保护密码怎么解除

excel保护密码怎么解除

excel保护密码怎么解除，为了保护我们的文件我们会设置一些密码，但是每次打开excel时都要输入密码，觉得麻烦想省事一点的话可以取消密码，以下关于excel保护密码怎么解除

excel保护密码怎么解除1

先录入密码，确定打开要取消密码的excel文件。

在文件菜单下点击 另存为 ，取消密码的办法其实就是再把文件保存一次，在保存替换原文件或重命名时将密码取消掉。

点击 工具 选择 常规选项

删除密码，点击确定并保存。

提示文件已存在要替换它吗？如果想要覆盖原文件直接点击 是 就替换掉了。

如果想保留原文件重新存一份，点击 否 再修改文件名保存为一份新的文件。

excel保护密码怎么解除2

1、将设置了保护密码的excel文件的扩展名由“.xlsx”修改为“.rar”或者是“.zip”压缩包后缀；

2、鼠标双击打开压缩包文件，进入【xl】下的【worksheets】文件夹，在此文件夹下，包含有跟各个工作表名称对应的xml文件。

3、在此，我们找到需要清除密码的工作表文件，比如：如果是需要清除sheet1工作表的密码，我们就选择sheet1.xml文件，如果是需要清除sheet2工作表的密码，我们就选择sheet2.xml文件，依此类推。本例中，我们是需要清除sheet1工作表的密码，所以选择sheet1.xml文件，并用鼠标将其拖动复制出来。

4、用记事本方式打开sheet1.xml文件，并使用查找功能，搜索关键词sheetProtection快速找到保护代码，即为这段代码，并将其删除。

要删除的'代码如下这段：

5、代码删除后，保存文档，再把文件拉回压缩包里覆盖原文件。

6、最后重新把压缩包的后缀由.rar改回.xlsx后缀格式。

excel保护密码怎么解除3

1、把文件后辍改为Rar,文件图标会变成压缩包形式

2、双击打开压缩包，把xlworksheets文件夹中的sheet1拖动复制出来

为什么要拖出sheet1？因为sheet1就是汇总表工作表，查看方法：

工作表标题上右键 - 查看代码 - 在弹出的新窗口中右上角“工程”小窗口中可以看到工作表的 顺序名(自定义的工作表名)

3、用记事本打开sheet1

4、查找protect 并删除下面蓝色的代码，最后保存

5、把sheet1拖回到压缩包中替换原文件，然后把压缩包后辍名改回 xlsx