首頁 > 網絡資訊 > 技術支持 >
Excel2013 破解(編輯工作表受保護)密碼
分享至:0
2017-05-10 16:26:12     來源:互聯網     點擊:
導讀: 在日常工作中,大家有時會遇到過這樣的情況:使用Excel編制的報表、表格、程序等,在單元格中設置了公式、函數等,為了防止其他人修改您的...  在日常工作中,大家有時會遇到過這樣的情況:使用Excel編制的報表、表格、程序等,在單元格中設置了公式、函數等,為了防止其他人修改您的設置或者防止您自己無意中修改,您可能會使用Excel的工作表保護功能,但時間久了保護密碼容易忘記,這該怎么辦?有時您從網上下載的Excel格式的小程序,您想修改,但是作者加了工作表保護密碼,怎么辦?您只要按照以下步驟操作,Excel工作表保護密碼就會破解。

1:工作表受保護時(有密碼)狀況:

\

2:在在Excel-視圖工具欄中, 點擊宏=》選擇錄制宏。

\

3:彈出"錄制宏"的窗口,輸入宏名字 如:默認的宏1,選擇保存在"個人宏工作薄"中,然后停止錄制(這樣得到一個空宏,為后面添加vb代碼做準備);

PS:這里最好選擇保存在"當前工作薄"好方便下面的點擊查看宏.

\

 

4:點擊“選擇“個人宏工作簿”后按確定” 開始錄制一會,然后在點擊"停止錄制"

\

5:然后停止錄制宏后,點擊"查看宏",彈出如下編輯界面:

\

6:Alt+F11或者點擊“編輯”后彈出  Visual Basic for Application 編輯畫面 ,找到“VBAProject(PERSONAL.XLS)或者當前.xls名字下面的-模塊-模塊1(也可能是模塊N-其他數字)”  雙擊模塊1-將右邊代碼內容清空

\

 


7:復制下面工作表保護密碼破解代碼=到剛才刪除代碼的位置

=========請復制以下內容=============

[vb] view plain copy
 
 在CODE上查看代碼片派生到我的代碼片
  1. Public Sub 工作表保護密碼破解()  
  2. Const DBLSPACE As String = vbNewLine & vbNewLine  
  3. Const AUTHORS As String = DBLSPACE & vbNewLine & _  
  4. "作者:McCormick   JE McGimpsey "  
  5. Const HEADER As String = "工作表保護密碼破解"  
  6. Const VERSION As String = DBLSPACE & "版本 Version 1.1.1"  
  7. Const REPBACK As String = DBLSPACE & ""  
  8. Const ALLCLEAR As String = DBLSPACE & "該工作簿中的工作表密碼保護已全部解除!!" & DBLSPACE & "請記得另保存" _  
  9. & DBLSPACE & "注意:不要用在不當地方,要尊重他人的勞動成果!"  
  10. Const MSGNOPWORDS1 As String = "該文件工作表中沒有加密"  
  11. Const MSGNOPWORDS2 As String = "該文件工作表中沒有加密2"  
  12. Const MSGTAKETIME As String = "解密需花費一定時間,請耐心等候!" & DBLSPACE & "按確定開始破解!"  
  13. Const MSGPWORDFOUND1 As String = "密碼重新組合為:" & DBLSPACE & "$$" & DBLSPACE & _  
  14. "如果該文件工作表有不同密碼,將搜索下一組密碼并修改清除"  
  15. Const MSGPWORDFOUND2 As String = "密碼重新組合為:" & DBLSPACE & "$$" & DBLSPACE & _  
  16. "如果該文件工作表有不同密碼,將搜索下一組密碼并解除"  
  17. Const MSGONLYONE As String = "確保為唯一的?"  
  18. Dim w1 As Worksheet, w2 As Worksheet  
  19. Dim i As Integer, j As Integer, k As Integer, l As Integer  
  20. Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer  
  21. Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer  
  22. Dim PWord1 As String  
  23. Dim ShTag As Boolean, WinTag As Boolean  
  24. Application.ScreenUpdating = False  
  25. With ActiveWorkbook  
  26. WinTag = .ProtectStructure Or .ProtectWindows  
  27. End With  
  28. ShTag = False  
  29. For Each w1 In Worksheets  
  30. ShTag = ShTag Or w1.ProtectContents  
  31. Next w1  
  32. If Not ShTag And Not WinTag Then  
  33. MsgBox MSGNOPWORDS1, vbInformation, HEADER  
  34. Exit Sub  
  35. End If  
  36. MsgBox MSGTAKETIME, vbInformation, HEADER  
  37. If Not WinTag Then  
  38. Else  
  39. On Error Resume Next  
  40. Do 'dummy do loop  
  41. For i = 65 To 66: For j = 65 To 66: For k = 65 To 66  
  42. For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66  
  43. For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66  
  44. For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126  
  45. With ActiveWorkbook  
  46. .Unprotect Chr(i) & Chr(j) & Chr(k) & _  
  47. Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _  
  48. Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)  
  49. If .ProtectStructure = False And _  
  50. .ProtectWindows = False Then  
  51. PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _  
  52. Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _  
  53. Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)  
  54. MsgBox Application.Substitute(MSGPWORDFOUND1, _  
  55. "$$", PWord1), vbInformation, HEADER  
  56. Exit Do 'Bypass all for...nexts  
  57. End If  
  58. End With  
  59. NextNextNextNextNextNext  
  60. NextNextNextNextNextNext  
  61. Loop Until True  
  62. On Error GoTo 0  
  63. End If  
  64.   
  65. If WinTag And Not ShTag Then  
  66. MsgBox MSGONLYONE, vbInformation, HEADER  
  67. Exit Sub  
  68. End If  
  69. On Error Resume Next  
  70.   
  71. For Each w1 In Worksheets  
  72. 'Attempt clearance with PWord1  
  73. w1.Unprotect PWord1  
  74. Next w1  
  75. On Error GoTo 0  
  76. ShTag = False  
  77. For Each w1 In Worksheets  
  78. 'Checks for all clear ShTag triggered to 1 if not.  
  79. ShTag = ShTag Or w1.ProtectContents  
  80. Next w1  
  81. If ShTag Then  
  82. For Each w1 In Worksheets  
  83. With w1  
  84. If .ProtectContents Then  
  85. On Error Resume Next  
  86. Do 'Dummy do loop  
  87. For i = 65 To 66: For j = 65 To 66: For k = 65 To 66  
  88. For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66  
  89. For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66  
  90. For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126  
  91. .Unprotect Chr(i) & Chr(j) & Chr(k) & _  
  92. Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _  
  93. Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)  
  94. If Not .ProtectContents Then  
  95. PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _  
  96. Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _  
  97. Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)  
  98. MsgBox Application.Substitute(MSGPWORDFOUND2, _  
  99. "$$", PWord1), vbInformation, HEADER  
  100. 'leverage finding Pword by trying on other sheets  
  101. For Each w2 In Worksheets  
  102. w2.Unprotect PWord1  
  103. Next w2  
  104. Exit Do 'Bypass all for...nexts  
  105. End If  
  106. NextNextNextNextNextNext  
  107. NextNextNextNextNextNext  
  108. Loop Until True  
  109. On Error GoTo 0  
  110. End If  
  111. End With  
  112. Next w1  
  113. End If  
  114. MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK , vbInformation, HEADER  
  115. End Sub  
\

8:重新打開要破解密碼的Excel,然后選擇"視圖"=》宏=》選擇"查看宏"。

\

9:運行"工作表保護密碼破解"后 出現 工作表保護密碼破解 窗口然后 點擊"確定"開始破解"

ps:出現安全提示:"已禁用宏" 需要開啟宏后才能執行:

\

則需要去Excel 2013 選擇 中=》"信任中心"=》“信用中心設置”=-》

\

PS:重啟Excel 后在點擊查看宏=》"工作表保護密碼破解” 點擊執行

 

\

 

10:出現下面這個圖,如果工作表中有多組不同密碼,  每解開一組,就會提示一次,也就說可能會出現幾次 .

\

ps:出現下面圖則表示破解完成。

\

11:上面已經破解成功了,并取得密碼了,讓我們來試試對不讀。點擊Excel2013菜單欄=>"審閱"=》“撤銷工作表保護”=》出現窗口讓我們輸入得到的"AABBBAAABBBZ"密碼:

\

\

 

OK,至此在Excel2013 工作表受保護破解密碼到此結束。希望此文能幫助你。

Tks.


? ? ?
?
云南时时彩详情开奖