1. Home
  2. 技术教程
  3. excel使用小技巧

Excel 破解工作表密码,免额外下载App全版本适用

Excel密码保护的工作表,如何破解密码呢?你有没有曾经打开一个陈年Excel文件,是自己曾经加密的,如果要编辑则需要解除密码才能编辑?但早就已经不知道密码是多少了呢~今天要跟大家分享一个方法,不需要透过任何APP,只需要几个步骤,就可以解除Excel工作表的密码,赶快来跟小编一起看看如何破解吧!

Excel 破解工作表密码,免额外下载App全版本适用

△ 在破解密码之前,小编就先建立一个具有密码保护的Excel 工作表,上方「校阅」>「保护工作表」>「输入密码」

Excel 破解工作表密码,免额外下载App全版本适用

△ 今天要跟大家分享的方法,适合所有Excel 版本。小编的Excel 版本是2019 年,设好密码之后,将Excel 档案另存新档,并在下方的存档类型选择「97-2003 活页簿」的xls 档。

Excel 破解工作表密码,免额外下载App全版本适用

△ 储存好档案之后,开启储存的新档案,这时候要建立一个破解密码的巨集,找到上方「检视」>「巨集」>「检视巨集」

Excel 破解工作表密码,免额外下载App全版本适用

△ 在「巨集名称」任意输入名称,然后按下「建立」。

Excel 破解工作表密码,免额外下载App全版本适用

△ 接着在第一段「Sub 工作表密码破解」及最后一段「End Sub」中间加入以下代码,完成后如上图所示:

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

Excel 破解工作表密码,免额外下载App全版本适用

△ 贴上后,回到原本的Excel 工作表,找到最上方的「检视」>「巨集」>「检视巨集」,执行刚刚所新增的巨集。

Excel 破解工作表密码,免额外下载App全版本适用

△ 这时候看到上面的讯息,就代表Excel 工作表密码已经被破解啦,这时就可以编辑、重设密码啰!以上方法分享给忘记Excel 工作表密码的朋友们,完全免App 就能解除密码,大家担心忘记了话,赶快把此文章存在书签中,忘记的时候就可以随时回来查看啰!

发布者:yuanyuan,转转请注明出处:https://www.xiaoyuanjiu.com/11970.html