欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

Excel工作表保護(hù)宏破解教程

  發(fā)布時(shí)間：2015-08-13 11:19:56   作者：佚名   我要評論
有部分Excel工作表設(shè)置了讀取權(quán)限。有時(shí)候忘記了所設(shè)置的代碼，作者就無法進(jìn)行對工作表的編輯和修改。為了方便大家，介紹一個(gè)方法進(jìn)行工作表保護(hù)機(jī)制的“繳械”處理
（1）打開Excel工作表，點(diǎn)擊工作表左上角的微軟圖案標(biāo)志。選擇Excel選項(xiàng)。進(jìn)入選項(xiàng)卡，選擇Excel選項(xiàng)。在Excel選項(xiàng)卡左側(cè)選擇如下功能：

A-查看宏；
B-錄制宏；
C-查看權(quán)限
D-無限制的訪問
E-限制訪問
F-權(quán)限限制

（2）選擇信任中心選項(xiàng)卡。進(jìn)入信任中心選項(xiàng)卡后，選擇點(diǎn)擊信任中心設(shè)置按鈕。選擇宏設(shè)置選項(xiàng)卡的第二項(xiàng)單項(xiàng)選擇：禁止所有宏，并發(fā)出通知。
（3）新建工作表，選擇錄制宏命令。如果是Excel2007，可以通過菜單中的開發(fā)工具進(jìn)入錄制宏選項(xiàng)卡。建立宏名稱和說明，點(diǎn)擊確定。系統(tǒng)開始錄制宏。選擇停止錄制宏。
（4） 按下快捷鍵ALT+F8組合鍵，選擇查看宏命令代碼。寫入如下代碼：

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

（5）寫入代碼完成后，保存宏命令。點(diǎn)擊執(zhí)行宏命令，等待一盞茶的時(shí)間，工作簿保護(hù)密碼就“繳械”了。注意記錄密碼和更改密碼，便于后續(xù)試用方便。
（6）特別聲明：嚴(yán)謹(jǐn)用于違反犯罪行為！

相關(guān)文章

最新評論