经验直达：

• 如何解码加密excel
• excel表格加密了怎么解密

一、如何解码加密excel

• 1、新建一个EXCEL文件“BOOK1” ， 在工具栏空白位置，任意右击 ， 选择Visual Basic项，弹出Visual Basic工具栏：
  
  
  
• 2、在Visual Basic工具栏中 ， 点击“录制”按钮，弹出“录制新宏”对话框，选择“个人宏工作簿”：
  
  
  
• 3、选择“个人宏工作簿”后按确定，弹出如下“暂停”按钮，点击停止：
  
  
  
• 4、在Visual Basic工具栏中，点击“编辑”按钮：
  
  
  
• 5、点击“编辑”按钮后，弹出如下图的编辑界面：
  找到“VBAProject（PERSONAL.XLS）－模块－模块1（也可能是模块N-其他数字）”
  双击模块1－将右边代码内容清空
  
  
  
• 6、复制“工作保护密码破解”代码到右边框中 ， 点保存，然后关闭“BOOK1”
  
  
  
• 7、运行需要解密的“EXCEL文件”，在Visual Basic工具栏中，点击“运行”按钮
  
  
  
• 8、点击“运行”按钮后，弹出“宏”对话框 ，
  点击运行“PERSONAL.XLS!工作保护密码破解”这个宏
  
  
  
• 9、运行“PERSONAL.XLS!工作保护密码破解”这个宏后，
  如下图示意就可以 解除工作表的密码保护了
  
  
  
• （这个图，如果工作表中有多组不同密码 ，
  每解开一组，就会提示一次，也就说可能会出现几次）
  
  
  
  
  

• 工作表保护密码破解(代码）
  =========请复制以下内容=============
  Public Sub 工作表保护密码破解()
  Const DBLSPACE As String = vbNewLine & vbNewLine
  Const AUTHORS As String = DBLSPACE & vbNewLine & _
  "作者:McCormickJE McGimpsey "
  Const HEADER As String = "工作表保护密码破解"
  Const VERSION As String = DBLSPACE & "版本 Version 1.1.1"
  Const REPBACK As String = DBLSPACE & ""
  Const ZHENGLI As String = DBLSPACE & "hfhzi3—戊冥 整理"
  Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" & DBLSPACE & "请记得另保存" _
  & DBLSPACE & "注意：不要用在不当地方，要尊重他人的劳动成果！"
  Const MSGNOPWORDS1 As String = "该文件工作表中没有加密"
  Const MSGNOPWORDS2 As String = "该文件工作表中没有加密2"
  Const MSGTAKETIME As String = "解密需花费一定时间,请耐心等候!" & DBLSPACE & "按确定开始破解!"
  Const MSGPWORDFOUND1 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _
  "如果该文件工作表有不同密码,将搜索下一组密码并修改清除"
  Const MSGPWORDFOUND2 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _
  "如果该文件工作表有不同密码,将搜索下一组密码并解除"
  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 MSGNOPWORDS1, vbInformation, HEADER
  Exit Sub
  End If
  MsgBox MSGTAKETIME, vbInformation, HEADER
  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(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 & ZHENGLI, vbInformation, HEADER
  End Sub
  
  
  
• <工作表保护密码破解放代码>是放在VBAProject(PERSONAL.XLS)[个人宏工作簿]——[模块]中的，如上图是放在红色标号2[模块1]中
  
  

二、excel表格加密了怎么解密

【excel表格加密了怎么解密 如何解码加密excel】本视频演示机型：戴尔-成就3690，适用系统：Windows10，软件版本：Excel2021，打开一个【excel】表格；
可以看到该文件需要输入密码才可以打开，那么要怎么将文件解密呢，输入正确的密码后 ， 进入excel表格界面，选择左上角的【文件】，选择左侧工具栏中【信息】选项；
点击信息界面下方的【保护工作簿】 ， 在下方出现的选项中，选择【用密码进行加密】，将此密码删除，点击下方的【确定】即可将这个文件解密，我们关闭该文件 ， 打开后，即可看到不需要输入密码，本期视频就到这里 ， 感谢观看 。

相关经验推荐

• excel对数函数怎么输入 自然对数在excel中怎么表示
• excel表格里斜线里面怎么打字 斜体字在excel表格中怎么输入
• excel表格怎么把内容全部删除 excel怎么删除多余的内容
• 如何在excel中查找指定列的内容 excel中怎么找到指定列的值
• 用excel怎么计算日期 excel怎么按日期编号
• 如何用图表进行Excel数据分析 怎样利用EXCEL进行数据的图表分析
• 如何将excel图表数据生成股价图 excel里怎么创建一个股价图
• 自动保存excel设置 如何设置excel自动保存
• 在excel如何添加一条标注线 excel怎么加线