对于Excel中的一些文件，很多人示意异常的主要，不可以让人看，以是经常会设置一些密码，然则你知道吗？这些密码有时候经常被忘记了，那么Excel密码忘记了怎么办？有什么方式能打开这个表格呢？实在照样有设施的！不妨一起来看看吧！

　　添加事情表珍爱密码有什么作用？

　　可以克制编辑已锁定的单元格，还可以有选择的克制下面的操作：

　　Excel事情表珍爱的密码忘了怎么办？

　　Excel表格密码忘领会决设施一：

　　最先破解：

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

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

　　为什么要拖出sheet1？由于sheet1就是汇总表事情表，查看方式：

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

　　3、用记事本打开sheet1

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

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

　　这样就搞定了！以上是第一种方式！

　　Excel表格密码忘领会决设施二：

　　行使VBA消灭

　　1、点击菜单栏中的“开发工具”，选择录制宏，录制一个名为“消灭事情表珍爱密码”的宏文件（可以凭据自己的习惯命名该宏文件）。

　　2、再次点击菜单栏中的“开发工具”，选择“宏”，打开宏对话框，“宏名”选择刚刚新建的宏文件，然后点击“编辑”，打开宏（VBA）编辑窗口。

　　3、在宏（VBA）编辑窗口的左侧依次选择“VBAProject PERSONAL，XLSB”→“模块”→“模块2”后，将右侧的代码窗口中的原有内容删除后，把以下代码复制后粘贴在代码窗口中保留。

　　4、再次点击菜单栏中的“开发工具”，选择“宏”，打开宏对话框，“宏名”选择刚刚新建的宏文件，然后点击“执行”或“单步执行”，等程序运行完成后事情表珍爱密码就消灭了。（提醒：程序运行时有点卡，若是电脑设置低就选择单步执行，效果是一样的）

　　VBA代码如下：

　　Public Sub 事情表珍爱密码破解（）

　　Const HUANHANG As String = vbNewLine & vbNewLine

　　Const MINGCHEN As String = “消灭事情表珍爱密码”

　　Const JINGGAO As String = “该事情簿中的事情表密码珍爱已所有消灭！！” & HUANHANG & “请记得另保留” _

　　& HUANHANG & “注重：不要用在欠妥地方，要尊重他人的劳动成果！”

　　Const TISHI1 As String = “该文件事情表中没有加密”

　　Const TISHI2 As String = “该文件事情表中没有加密2”

　　Const KSPJ As String = “解密需破费一定时间，请耐心期待！” & HUANHANG & “按确定最先消灭！”

　　Const FXMM1 As String = “密码重新组合为：” & HUANHANG & “$$” & HUANHANG & _

　　“若是该文件事情表有差别密码，将搜索下一组密码并修改消灭”

　　Const FXMM2 As String = “密码重新组合为：” & HUANHANG & “$$” & HUANHANG & _

　　“若是该文件事情表有差别密码，将搜索下一组密码并排除”

　　Const MSGONLYONE As String = “确保为唯一的？”

　　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 TISHI1， vbInformation， MINGCHEN

　　Exit Sub

　　End If

　　MsgBox KSPJ， vbInformation， MINGCHEN

　　If Not WinTag Then

　　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（FXMM1， _

　　“$$”， PWord1）， vbInformation， MINGCHEN

　　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， MINGCHEN

　　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（FXMM2， _

　　“$$”， PWord1）， vbInformation， MINGCHEN

　　’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 JINGGAO， vbInformation， MINGCHEN

　　End Sub

　　3、保留后并运行该宏，即显示密码的窗口。

　　若是泛起错误，我们可以通过：“文件”—“选项”—“信托中央”—“信托中央设置”—“宏设置”—点“启用所有宏”，点击确定即可。

　　以上就是关于Excel密码忘记了该怎么办的解决方式了，想要领会更多和Excel相关的资讯，请关注教程之家！