ad

Excel有密码怎样破解?Excel密码破解方法介绍-英雄云拓展知识分享

匿名投稿 15175 2024-08-08

  Excel密码破解方法有很多,最多见的便是使用密码字典去解读,解读成功即为破解,而本次使用的是宏命令,若是你还在一筹莫展,可以看看下文中的方法,由于触及Excel重要文件,若是他人的东西,请获得授权!

  Excel密码破解方法介绍:

  1、进入加密的 Excel 用快捷命令Alt+F8 打开宏命令 窗口。

Excel有密码怎样破解?Excel密码破解方法介绍-英雄云拓展知识分享

  2、在宏名一栏中 输入宏的名字 随便健入便可。

  3、输入完宏名后 创建的按钮就亮了 点击创建 我们就能够来到 新的界面了。

  4、将编辑框内的Sub knife( )End Sub删除 将以下代码 复制 上去。

  1. 01Option Explicit
  2. 02Public Sub AllInternalPasswords()
  3. 03' Breaks worksheet and workbook structure passwords. Bob McCormick
  4. 04' probably originator of base code algorithm modified for coverage
  5. 05' of workbook structure / windows passwords and for multiple passwords
  6. 06'
  7. 07' Norman Harker and JE McGimpsey 27-Dec⑵002 (Version 1.1)
  8. 08' Modified 2003-Apr-04 by JEM: All msgs to constants, and
  9. 09' eliminate one Exit Sub (Version 1.1.1)
  10. 10' Reveals hashed passwords NOT original passwords
  11. 11Const DBLSPACE As String = vbNewLine & vbNewLine
  12. 12Const AUTHORS As String = DBLSPACE & vbNewLine & _
  13. 13"Adapted from Bob McCormick base code by" & _
  14. 14"Norman Harker and JE McGimpsey"
  15. 15Const HEADER As String = "AllInternalPasswords User Message"
  16. 16Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
  17. 17Const REPBACK As String = DBLSPACE & "Please report failure " & _
  18. 18"to the microsoft.public.excel.programming newsgroup."
  19. 19Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
  20. 20"now be free of all password protection, so make sure you:" & _
  21. 21DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
  22. 22DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _
  23. 23DBLSPACE & "Also, remember that the password was " & _
  24. 24"put there for a reason. Don't stuff up crucial formulas " & _
  25. 25"or data." & DBLSPACE & "Access and use of some data " & _
  26. 26"may be an offense. If in doubt, don't."
  27. 27Const MSGNOPWORDS1 As String = "There were no passwords on " & _
  28. 28"sheets, or workbook structure or windows." & AUTHORS & VERSION
  29. 29Const MSGNOPWORDS2 As String = "There was no protection to " & _
  30. 30"workbook structure or windows." & DBLSPACE & _
  31. 31"Proceeding to unprotect sheets." & AUTHORS & VERSION
  32. 32Const MSGTAKETIME As String = "After pressing OK button this " & _
  33. 33"will take some time." & DBLSPACE & "Amount of time " & _
  34. 34"depends on how many different passwords, the " & _
  35. 35"passwords, and your computer's specification." & DBLSPACE & _
  36. 36"Just be patient! Make me a coffee!" & AUTHORS & VERSION
  37. 37Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
  38. 38"Structure or Windows Password set." & DBLSPACE & _
  39. 39"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _
  40. 40"Note it down for potential future use in other workbooks by " & _
  41. 41"the same person who set this password." & DBLSPACE & _
  42. 42"Now to check and clear other passwords." & AUTHORS & VERSION
  43. 43Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
  44. 44"password set." & DBLSPACE & "The password found was: " & _
  45. 45DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _
  46. 46"future use in other workbooks by same person who " & _
  47. 47"set this password." & DBLSPACE & "Now to check and clear " & _
  48. 48"other passwords." & AUTHORS & VERSION
  49. 49Const MSGONLYONE As String = "Only structure / windows " & _
  50. 50"protected with the password that was just found." & _
  51. 51ALLCLEAR & AUTHORS & VERSION & REPBACK
  52. 52Dim w1 As Worksheet, w2 As Worksheet
  53. 53Dim i As Integer, j As Integer, k As Integer, l As Integer
  54. 54Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
  55. 55Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
  56. 56Dim PWord1 As String
  57. 57Dim ShTag As Boolean, WinTag As Boolean
  58. 58Application.ScreenUpdating = False
  59. 59With ActiveWorkbook
  60. 60WinTag = .ProtectStructure Or .ProtectWindows
  61. 61End With
  62. 62ShTag = False
  63. 63For Each w1 In Worksheets
  64. 64ShTag = ShTag Or w1.ProtectContents
  65. 65Next w1
  66. 66If Not ShTag And Not WinTag Then
  67. 67MsgBox MSGNOPWORDS1, vbInformation, HEADER
  68. 68Exit Sub
  69. 69End If
  70. 70MsgBox MSGTAKETIME, vbInformation, HEADER
  71. 71If Not WinTag Then
  72. 72MsgBox MSGNOPWORDS2, vbInformation, HEADER
  73. 73Else
  74. 74On Error Resume Next
  75. 75Do 'dummy do loop
  76. 76For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
  77. 77For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
  78. 78For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
  79. 79For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
  80. 80With ActiveWorkbook
  81. 81.Unprotect Chr(i) & Chr(j) & Chr(k) & _
  82. 82Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
  83. 83Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
  84. 84If .ProtectStructure = False And _
  85. 85.ProtectWindows = False Then
  86. 86PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
  87. 87Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
  88. 88Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
  89. 89MsgBox Application.Substitute(MSGPWORDFOUND1, _
  90. 90"$$", PWord1), vbInformation, HEADER
  91. 91Exit Do 'Bypass all for...nexts
  92. 92End If
  93. 93End With
  94. 94Next: Next: Next: Next: Next: Next
  95. 95Next: Next: Next: Next: Next: Next
  96. 96Loop Until True
  97. 97On Error GoTo 0
  98. 98End If
  99. 99If WinTag And Not ShTag Then
  100. 100MsgBox MSGONLYONE, vbInformation, HEADER
  101. 101Exit Sub
  102. 102End If
  103. 103On Error Resume Next
  104. 104For Each w1 In Worksheets
  105. 105'Attempt clearance with PWord1
  106. 106w1.Unprotect PWord1
  107. 107Next w1
  108. 108On Error GoTo 0
  109. 109ShTag = False
  110. 110For Each w1 In Worksheets
  111. 111'Checks for all clear ShTag triggered to 1 if not.
  112. 112ShTag = ShTag Or w1.ProtectContents
  113. 113Next w1
  114. 114If ShTag Then
  115. 115For Each w1 In Worksheets
  116. 116With w1
  117. 117If .ProtectContents Then
  118. 118On Error Resume Next
  119. 119Do 'Dummy do loop
  120. 120For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
  121. 121For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
  122. 122For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
  123. 123For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
  124. 124.Unprotect Chr(i) & Chr(j) & Chr(k) & _
  125. 125Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
  126. 126Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
  127. 127If Not .ProtectContents Then
  128. 128PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
  129. 129Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
  130. 130Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
  131. 131MsgBox Application.Substitute(MSGPWORDFOUND2, _
  132. 132"$$", PWord1), vbInformation, HEADER
  133. 133'leverage finding Pword by trying on other sheets
  134. 134For Each w2 In Worksheets
  135. 135w2.Unprotect PWord1
  136. 136Next w2
  137. 137Exit Do 'Bypass all for...nexts
  138. 138End If
  139. 139Next: Next: Next: Next: Next: Next
  140. 140Next: Next: Next: Next: Next: Next
  141. 141Loop Until True
  142. 142On Error GoTo 0
  143. 143End If
  144. 144End With
  145. 145Next w1
  146. 146End If
  147. 147MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
  148. 148End Sub

复制代码

Option Explicit

Public Sub AllInternalPasswords()

' Breaks worksheet and workbook structure passwords. Bob McCormick

' probably originator of base code algorithm modified for coverage

' of workbook structure / windows passwords and for multiple passwords

'

' Norman Harker and JE McGimpsey 27-Dec⑵002 (Version 1.1)

' Modified 2003-Apr-04 by JEM: All msgs to constants, and

' eliminate one Exit Sub (Version 1.1.1)

' Reveals hashed passwords NOT original passwords

Const DBLSPACE As String = vbNewLine & vbNewLine

Const AUTHORS As String = DBLSPACE & vbNewLine & _

"Adapted from Bob McCormick base code by" & _

"Norman Harker and JE McGimpsey"

Const HEADER As String = "AllInternalPasswords User Message"

Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"

Const REPBACK As String = DBLSPACE & "Please report failure " & _

"to the microsoft.public.excel.programming newsgroup."

Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _

"now be free of all password protection, so make sure you:" & _

DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _

DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _

DBLSPACE & "Also, remember that the password was " & _

"put there for a reason. Don't stuff up crucial formulas " & _

"or data." & DBLSPACE & "Access and use of some data " & _

"may be an offense. If in doubt, don't."

Const MSGNOPWORDS1 As String = "There were no passwords on " & _

"sheets, or workbook structure or windows." & AUTHORS & VERSION

Const MSGNOPWORDS2 As String = "There was no protection to " & _

"workbook structure or windows." & DBLSPACE & _

"Proceeding to unprotect sheets." & AUTHORS & VERSION

Const MSGTAKETIME As String = "After pressing OK button this " & _

"will take some time." & DBLSPACE & "Amount of time " & _

"depends on how many different passwords, the " & _

"passwords, and your computer's specification." & DBLSPACE & _

"Just be patient! Make me a coffee!" & AUTHORS & VERSION

Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _

"Structure or Windows Password set." & DBLSPACE & _

"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _

"Note it down for potential future use in other workbooks by " & _

"the same person who set this password." & DBLSPACE & _

"Now to check and clear other passwords." & AUTHORS & VERSION

Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _

"password set." & DBLSPACE & "The password found was: " & _

DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _

"future use in other workbooks by same person who " & _

"set this password." & DBLSPACE & "Now to check and clear " & _

"other passwords." & AUTHORS & VERSION

Const MSGONLYONE As String = "Only structure / windows " & _

"protected with the password that was just found." & _

ALLCLEAR & AUTHORS & VERSION & REPBACK

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

MsgBox MSGNOPWORDS2, vbInformation, HEADER

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, vbInformation, HEADER

End Sub



选择英雄云云表单=选择更智能的办公工具

>>>>🚀🌟 点击注册 免费试用 更高级的-英雄云企业级云表单 🌟🚀 😃👉🌐>>>>

在现代企业管理中,数据的高效管理和处理至关重要。随着信息技术的不断发展,英雄云云表单已经成为了提高数据录入、管理和分析效率的不可或缺的工具。让我们来深入探讨英雄云-云表单的几大优势。

基础字段:多样性满足业务需求

英雄云云表单中包括了各种基础字段,如单行文本多行文本数字输入框单选框复选框下拉框下拉复选框日期时间分割线等。这些字段的多样性使用户可以根据具体的业务需求,轻松进行文本、数据和时间信息的录入或修改。例如,您可以使用单行文本字段录入员工姓名、产品型号等,或者使用下拉框进行多选,根据不同情况选择更加方便的字段类型。

高级字段:提升工作效率

英雄云云表单还提供了高级字段,如地址图片附件手写签名手机子表关联数据关联查询以及流水号。这些高级字段在基础字段的基础上升级,可帮助用户完成一些琐碎的工作。例如,使用地址字段可以避免逐字打字,而流水号字段可以自动生成规律性的编号,非常适用于合同编号生成等场景。

部门成员字段:精确管理与通讯录的关联

英雄云的部门成员字段允许企业对各个部门的成员进行精确管理。用户可以通过部门成员字段获取通讯录中的部门成员信息,应用于记录报销人、报销部门等场景。这些成员字段还细分为成员单选成员多选,可根据具体需求在通讯录中选择一个或多个成员。

聚合表:数据处理更智能

英雄云聚合表功能用于对已存在的表单数据进行聚合计算,从而得到一张聚合表,后续其他表单可调用聚合表进行数据联动、关联查询和关联数据等操作完成数据处理。这一功能可应用于多种场景,如进销存管理、财务管理和门店零售管理等,帮助企业完成数据处理,提高工作效率。

表单权限设置:灵活管理数据访问

英雄云的表单权限设置允许用户根据企业的具体需求管理表单的访问和操作权限。用户可以根据系统权限或自定义权限对不同成员或团队进行权限设置,以确保数据的安全和合规性。这一功能使企业能够根据变化的业务需求和团队结构,实时调整权限设置。

自定义打印模板:文档输出更便捷

英雄云云表单支持自定义打印模板,可将表单数据转换为可打印的Word文档。用户可以根据自己的需求进行排版和编辑,将产品规格说明书等文档轻松生成。这一功能提供了一种标准化的文档输出方式,简化了信息整理的过程。

综合来看,选择英雄云云表单意味着选择更智能、更灵活、更高效的数据管理工具。无论是提高工作效率,精确管理数据,还是实现数据处理,英雄云云表单都能满足您的多样化需求,助力您的业务发展。

如果您正在寻找一款强大的云表单工具,不妨考虑英雄云,它将为您带来更多的便捷和智能,助您事半功倍。


免责声明:

本网址(www.yingxiongyun.com)发布的材料主要源于独立创作和网友匿名投稿等来源。此处提供的所有信息仅供参考之用。我们致力于提供准确且可信的信息,但不对材料的完整性或真实性作出任何保证。用户应自行验证相关信息的正确性,并对其决策承担全部责任。对于由于信息的错误、不准确或遗漏所造成的任何损失,本网址不承担任何法律责任。本网站所展示的所有内容,如文字、图像、标志、音频、视频、软件和程序等的版权均属于原创作者。如果任何组织或个人认为网站内容可能侵犯其知识产权,或包含不准确之处,请即刻联系我们进行相应处理。

上一篇:Excel2016 如何冻结窗格-英雄云拓展知识分享
下一篇:PPT 2016 幻灯片动画的运行方式图解-英雄云拓展知识分享
相关文章

 发表评论

暂时没有评论,来抢沙发吧~

×