撤销工作表保护代码_撤销工作表保护原密码

最近这段时间总有小伙伴问小编撤销工作表保护代码_撤销工作表保护原密码是什么，小编为此在网上搜寻了一些有关于撤销工作表保护代码_撤销工作表保护原密码的知识送给大家，希望能解答各位小伙伴的疑惑。

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的原始密码就被清除了!!

本文到此结束，希望对大家有所帮助。

标签： 密码保护 基本代码 用户消息