最近这段时间总有小伙伴问小编撤销工作表保护代码_撤销工作表保护原密码是什么,小编为此在网上搜寻了一些有关于撤销工作表保护代码_撤销工作表保护原密码的知识送给大家,希望能解答各位小伙伴的疑惑。
1、打开您需要破解保护密码的超过文件
2、依次点击菜单栏上的工具-宏-录制新宏,输入宏名字如:aa
(资料图)
3、停止录制(这样得到一个空宏);
4、依次点击菜单栏上的工具-宏-宏,选aa,点编辑按钮
5、删除窗口中的所有字符(只有几个),替换为下面的内容:
6、选项显式
7、Public Sub AllInternalPasswords()
8、破坏工作表和工作簿结构密码。鲍勃麦考密克
9、可能是为覆盖范围修改的基本代码算法的发起者
10、工作簿结构/windows密码和多个密码
11、"
12、诺曼哈克和作业评估麦金普西2002年12月27日(版本1.1)
13、JEM:于2003年四月四日将所有消息修改为常量,以及
14、取消一个出口接头(版本1.1.1)
15、显示哈希密码,而不是原始密码
16、const DBLSPACE As String=VB newline VB newline
17、const AUTHORS As String=DBLSPACE VB newline _
18、改编自鲍勃麦考密克的基础代码
19、诺曼哈克和作业评估麦金普西
20、常数标头为String="AllInternalPasswords用户消息"
21、常数版本为" String=DBLSPACE "版本1 .1 .1 2003-2004年四月"
22、" Const REPBACK As String=DBLSPACE "请报告失败" _
23、添加到微软。公共的。excel。设计新闻组。
24、Const ALLCLEAR As String=DBLSPACE "工作簿应该"_
25、现在是免费的所有密码保护,所以要确保你:" _
26、DBLSPACE "现在就保存!""数字空间"和还有" _
27、DBLSPACE的后援!后援!后援!"_
28、"数字空间"另外,请记住密码是" _
29、放在那里是有原因的。不要把重要的公式塞得满满的
30、或者数据“DBLSPACE”某些数据的访问和使用"_
31、可能是一种冒犯。如果有疑问,不要这样做。
32、Const MSGNOPWORDS1 As String="上没有密码" _
33、工作表、工作簿结构或窗口
34、"workbook structure or windows." & DBLSPACE & _
35、"Proceeding to unprotect sheets." & AUTHORS & VERSION
36、Const MSGTAKETIME As String = "After pressing OK button this " & _
37、"will take some time." & DBLSPACE & "Amount of time " & _
38、"depends on how many different passwords, the " & _
39、"passwords, and your computer"s specification." & DBLSPACE & _
40、"Just be patient! Make me a coffee!" & AUTHORS & VERSION
41、Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
42、"Structure or Windows Password set." & DBLSPACE & _
43、"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _
44、"Note it down for potential future use in other workbooks by " & _
45、"the same person who set this password." & DBLSPACE & _
46、"Now to check and clear other passwords." & AUTHORS & VERSION
47、Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
48、"password set." & DBLSPACE & "The password found was: " & _
49、DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _
50、"future use in other workbooks by same person who " & _
51、"set this password." & DBLSPACE & "Now to check and clear " & _
52、"other passwords." & AUTHORS & VERSION
53、Const MSGONLYONE As String = "Only structure / windows " & _
54、"protected with the password that was just found." & _
55、ALLCLEAR & AUTHORS & VERSION & REPBACK
56、Dim w1 As Worksheet, w2 As Worksheet
57、Dim i As Integer, j As Integer, k As Integer, l As Integer
58、Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
59、Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
60、Dim PWord1 As String
61、Dim ShTag As Boolean, WinTag As Boolean
62、Application.ScreenUpdating = False
63、With ActiveWorkbook
64、WinTag = .ProtectStructure Or .ProtectWindows
65、End With
66、ShTag = False
67、For Each w1 In Worksheets
68、ShTag = ShTag Or w1.ProtectContents
69、Next w1
70、If Not ShTag And Not WinTag Then
71、MsgBox MSGNOPWORDS1, vbInformation, HEADER
72、Exit Sub
73、End If
74、MsgBox MSGTAKETIME, vbInformation, HEADER
75、If Not WinTag Then MsgBox MSGNOPWORDS2, vbInformation, HEADER
76、Else
77、On Error Resume Next
78、Do "dummy do loop
79、For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
80、For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
81、For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
82、For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
83、With ActiveWorkbook
84、.Unprotect Chr(i) & Chr(j) & Chr(k) & _
85、Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
86、Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
87、If .ProtectStructure = False And _
88、.ProtectWindows = False Then
89、PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
90、Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
91、Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
92、MsgBox Application.Substitute(MSGPWORDFOUND1, _
93、"$$", PWord1), vbInformation, HEADER
94、Exit Do "Bypass all for...nexts
95、End If
96、End With
97、Next: Next: Next: Next: Next: Next
98、Next: Next: Next: Next: Next: Next
99、Loop Until True
100、On Error GoTo 0
101、End If
102、If WinTag And Not ShTag Then
103、MsgBox MSGONLYONE, vbInformation, HEADER
104、Exit Sub
105、End If
106、On Error Resume Next
107、For Each w1 In Worksheets
108、"Attempt clearance with PWord1
109、w1.Unprotect PWord1
110、Next w1
111、On Error GoTo 0
112、ShTag = False
113、For Each w1 In Worksheets
114、"Checks for all clear ShTag triggered to 1 if not.
115、ShTag = ShTag Or w1.ProtectContents
116、Next w1
117、If ShTag Then
118、For Each w1 In Worksheets With w1
119、If .ProtectContents Then
120、On Error Resume Next
121、Do "Dummy do loop
122、For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
123、For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
124、For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
125、For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
126、.Unprotect Chr(i) & Chr(j) & Chr(k) & _
127、Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
128、Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
129、If Not .ProtectContents Then
130、PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
131、Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
132、Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
133、MsgBox Application.Substitute(MSGPWORDFOUND2, _
134、"$$", PWord1), vbInformation, HEADER
135、"leverage finding Pword by trying on other sheets
136、For Each w2 In Worksheets
137、w2.Unprotect PWord1
138、Next w2
139、Exit Do "Bypass all for...nexts
140、End If
141、Next: Next: Next: Next: Next: Next
142、Next: Next: Next: Next: Next: Next
143、Loop Until True
144、On Error GoTo 0
145、End If
146、End With
147、Next w1
148、End If
149、MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
150、End Sub
151、关闭编辑窗口
152、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;
153、等一会,就会出现以下对话框:这就是Excel密码对应的原始密码
154、再点击确定。Excel的原始密码就被清除了!!
本文到此结束,希望对大家有所帮助。