EXCELخىزمەت جەدۋىلىدىكى قوغداشنى بۇزۇش ئاددى ئۇسۇلى

Tursunniyaz

بىز Excelئىشلىتىش جەريانىدا EXCELخىزمەت جەدۋىلىنى قوغداش ئۈچۈن مەخپى نۇمۇر ئورنىتىمىز، ۋە ياكى مەخپى نۇمۇر ئورناتقان EXCELخىزمەت جەدىۋىلىنى داۋاملىق تۈردە ئۇچىرتىپ تۇرىمىز، بىز EXCELخىزمەت جەدىۋىلىنى قوغداش ئۈچۈن سالغان مەخپى نۇمۇرىمىزنى ئونتۇپ قالغاندا ، ۋە ياكى باشقىلارنىڭ EXCELخىزمەت جەدىۋىلىگە مەخپى نۇمۇر ئورنىتىپ قويغانلىقىنى ،بىز ئۇنىڭ مەخپى نۇمۇرنى بىلىشكە ئامال بولمىغاندا ،قانداق قىلىمشىز كېرەك، تۆۋەندىكى EXCELخىزمەت جەدىۋىلىدىكى قوغداشنى بۇزۇشنىڭ ئادددى ئۇسۇلى بۇ مەسىلىنى ھەل قىلالىشى مۇمكىن،سىناپ بىقىڭ!
! I1 ^3 D. }3 T! ?" V8 P, l; x3 R1-باسقۇچ: بىز ئاۋال EXCELخىزمەت جەدىۋىلىگە مەخپى نۇمۇر ئورنىتىلغان ھۆججەتنى ئاچىمىز.(打开文件)
2-باسقۇچ:EXCELقۇرال تىزىملىگى ئىچىدىكى ماكرو تۈرىنى،ئونىڭ ئىچىدىكى يىڭى ماكرو كۆچۈرۈشنى ئىچىپ ئۆزىمىز خالىغان نام قويىمىز.مەسىلەن:نامىنىaa دەپ تۇرايلى .(工具---宏----录制新宏---输入名字如:aa )
" O6 Q: |+ t9 Y1 b( ]. ^5 v3-باسقۇچ:ماكرو كۆچۈشۈشنى توختىتىمىز.بىز بۇ چاغدا يىڭى بىر قۇرۇق ماكروغا ئىرىشىمىز.(停止录制(这样得到一个空宏)
4-باسقۇچ: EXCELقۇرال تىزىملىكىدىن ماكرو تۈرىنى،ئونىڭ ئىچىدىن ماكرو تۈرىنى،ئىچىلغان كۆزنەكتىن بىز باياتتىن نام قويغان تۈرنى تاللاپ تەھرىرلەش كونۇپكىسىنى باسىمىز.(工具---宏----宏,选aa,点编辑按钮)
5-باسقۇچ: ئىچلغان كۆزنەك ئىچىدىكى بارلىق ھەرىپلەرنى ئۆچۈرىمىز، ئاندىن تۆۋەندىكى ئالماشتۇرۇش مەزمۇنىنى كۆچۈرۈپ چاپلايمىز.
删除窗口中的所有字符(只有几个),替换为下面的内容你复制吧)
ئالماشتۇرۇش مەزمۇنى تۆۋەندىكىچە:ھەممىسىنى كۆچۈرۈپ چاپلايمىز.

1. Option ExplicIT
   - w  c, W$ h& X. n$ [% |+ d! \
2. Public Sub AllInternalPassWords()
   
3. ' Breaks worksheet and workbook structure passwords. Bob McCormick
   
4. ' probably originator of base code algorithm modified for coverage
   ) a! @! L& @! b8 \+ c8 E
5. ' of workbook structure / windows passwords and for multiple passwords
   
6. '
   
7. ' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
   
8. ' Modified 2003-Apr-04 by JEM: All msgs to constants, and
   3 k' \2 Q" C! {0 [! b5 B
9. ' eliminate one Exit Sub (Version 1.1.1)
   
10. ' Reveals hashed passwords NOT original passwords
    % R( T% `! U& ]% p+ T1 @7 ?
11. Const DBLSPACE As String = vbNewLine & vbNewLine
    3 [8 k( ]5 w' D! O
12. Const AUTHORS As String = DBLSPACE & vbNewLine & _
    
13. "Adapted from Bob McCormick base code by" & _
    1 e3 V0 F+ c9 q, L7 {+ t& [/ h5 D
14. "Norman Harker and JE McGimpsey"
    
15. Const HEADER As String = "AllInternalPasswords User Message"
    
16. Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
    * t8 s5 a- K8 D" D0 {3 B! f
17. Const REPBACK As String = DBLSPACE & "lease report failure " & _
    
18. "to the microsoft.public.excel.programming newsgroup."
    + V# T; k/ s: _7 h6 q( ]- H* w
19. Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
    $ h8 k/ W7 u$ U5 R7 H7 I
20. "now be free of all password protection, so make sure you:" & _
    
21. DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
    
22. DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _
    / p2 S) y9 L4 t- {( n+ Q
23. DBLSPACE & "Also, remember that the password was " & _
    - E" {: [( W* n
24. "put there for a reason. Don't stuff up crucial formulas " & _
    ; }0 @7 G  ?# i9 q& w
25. "or data." & DBLSPACE & "Access and use of some data " & _
    
26. "may be an offense. If in doubt, don't."
    
27. Const MSGNOPWORDS1 As String = "There were no passwords on " & _
    4 X' W, [: b! }- }* A& |4 i& X9 p
28. "sheets, or workbook structure or windows." & AUTHORS & VERSION
    ( ~" m, n) d9 }& w$ ^8 H
29. Const MSGNOPWORDS2 As String = "There was no protection to " & _
    3 H  n  B( x5 m& A  D$ L& d1 |! @
30. "workbook structure or windows." & DBLSPACE & _
    
31. "roceeding to unprotect sheets." & AUTHORS & VERSION
    2 t$ d: o! [5 N# F* W8 q
32. Const MSGTAKETIME As String = "After pressing OK button this " & _
    # V2 a& |- \3 t+ T  i& R$ P
33. "will take some time." & DBLSPACE & "Amount of time " & _
    ) [6 S$ |2 b; r3 K
34. "depends on how many different passwords, the " & _
    
35. "passwords, and your computer's specification." & DBLSPACE & _
    * X# }7 {- c8 B- W, ?
36. "Just be patient! Make me a coffee!" & AUTHORS & VERSION
    
37. Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
    
38. "Structure or Windows Password set." & DBLSPACE & _
    
39. "The password found was: " & DBLSPACE & "$$" & DBLSPACE & _
      @6 A; Y) ]* H, W+ Y- \% Y& R
40. "Note it down for potential future use in other workbooks by " & _
    % n5 b% X( u2 J  l* W+ [  R: a! [
41. "the same person who set this password." & DBLSPACE & _
    
42. "Now to check and clear other passwords." & AUTHORS & VERSION
    ! z* i( \) m8 g2 Q# l$ Z
43. Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
    : _( I$ k' h/ k
44. "password set." & DBLSPACE & "The password found was: " & _
    1 _: K$ Q& g: l# i
45. DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _
    
46. "future use in other workbooks by same person who " & _
    + S' x/ y. Z) s+ n
47. "set this password." & DBLSPACE & "Now to check and clear " & _
    2 V' m7 u- l* T/ J& y
48. "other passwords." & AUTHORS & VERSION
    ' o5 x- @* f& B* T, c% J: |
49. Const MSGONLYONE As String = "Only structure / windows " & _
    
50. "protected with the password that was just found." & _
    & y& `  O# O4 _% J. Q/ c9 b
51. ALLCLEAR & AUTHORS & VERSION & REPBACK
    
52. Dim w1 As Worksheet, w2 As Worksheet
    
53. Dim i As Integer, j As Integer, k As Integer, l As Integer
    
54. Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
    7 {; \* j6 g: C& v& d5 |- l6 G2 @/ x: t
55. Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
    
56. Dim PWord1 As String
    
57. Dim ShTag As Boolean, WinTag As Boolean
    
58. Application.ScreenUpdating = False
    ) {7 W4 Y6 L2 t8 A6 ?
59. With ActiveWorkbook
    
60. WinTag = .ProtectStructure Or .ProtectWindows
    
61. End With
    
62. ShTag = False
    ( P- R- A* Y" z( i# M4 h1 v
63. For Each w1 In Worksheets
    
64. ShTag = ShTag Or w1.ProtectContents
    * o# v" M5 [: W4 [
65. Next w1
    * d9 G0 \5 _# _% |0 e8 y! }- Q: H
66. If Not ShTag And Not WinTag Then
    
67. MsgBox MSGNOPWORDS1, vbInformation, HEADER
    
68. Exit Sub
    5 _8 I7 y! D- M8 e2 ]
69. End If
    8 I$ @0 ~( G9 H
70. MsgBox MSGTAKETIME, vbInformation, HEADER
    
71. If Not WinTag Then
    
72. MsgBox MSGNOPWORDS2, vbInformation, HEADER
    2 @5 w: `# W* a+ [
73. Else
    4 `0 c5 u4 D: J  A- m8 L( Z  o
74. On Error Resume Next
    
75. Do 'dummy do loop
    
76. For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
    : A8 r5 v1 K- S. ^
77. For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
    ! y1 C: b6 F) v
78. For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
    7 I0 \7 Q  x! {; o7 M& ]; c
79. For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
    
80. With ActiveWorkbook
    9 K2 u$ ~* ]. ]& {! @5 A% }& j
81. .Unprotect Chr(i) & Chr(j) & Chr(k) & _
    ) ], L' b) |" X8 T
82. Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
    6 b" O# q, `- v  w0 h* K! N& ^; N
83. Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    
84. If .ProtectStructure = False And _
    
85. .ProtectWindows = False Then
      d. ]2 \* h. K* b. r
86. PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
    
87. Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
    
88. Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    
89. MsgBox Application.Substitute(MSGPWORDFOUND1, _
    : i" N: s: x8 g
90. "$$", PWord1), vbInformation, HEADER
    
91. Exit Do 'Bypass all for...nexts
    " b! f1 V+ O" N' w, t
92. End If
    7 s2 o3 }0 L9 P
93. End With
    7 n" e2 Z( j$ ^) z
94. Next: Next: Next: Next: Next: Next
    
95. Next: Next: Next: Next: Next: Next
    % }2 S( n9 Q9 ]" m0 D  n, b
96. Loop Until True
    # k2 t' S( F: }9 v8 n% v
97. On Error GoTo 0
    
98. End If
    
99. If WinTag And Not ShTag Then
    / K9 @' O8 |' q& v3 `6 m
100. MsgBox MSGONLYONE, vbInformation, HEADER
     
101. Exit Sub
     3 O" F! s" b" C* X( N: u' J8 l
102. End If
     
103. On Error Resume Next
     # C9 d2 |1 m3 c& I. K
104. For Each w1 In Worksheets
     
105. 'Attempt clearance with PWord1
     8 v' d2 A5 P# ?. T
106. w1.Unprotect PWord1
     : u, t: Y! ]. P3 v& D
107. Next w1
     ! N% p; e- P& r& y- w/ w
108. On Error GoTo 0
     5 N% t. g+ U5 [0 h, V2 |/ [
109. ShTag = False
     6 k: q  b6 \0 Z- A! G
110. For Each w1 In Worksheets
     
111. 'Checks for all clear ShTag triggered to 1 if not.
     3 s/ v9 d' Y' c0 k
112. ShTag = ShTag Or w1.ProtectContents
     * p4 o! X$ }: e" i2 V; J7 J  _$ c4 h
113. Next w1
     ! f0 z+ a8 j8 r
114. If ShTag Then
     ( ^  z8 a7 y4 s
115. For Each w1 In Worksheets
     % k8 s- L% ^6 U" v* E
116. With w1
     4 R9 z, I; m1 ]. @( k3 S: v
117. If .ProtectContents Then
     * {- z- u9 p' v# S/ K5 s$ V
118. On Error Resume Next
     $ ~  q7 y" u2 P$ A  Q
119. Do 'Dummy do loop
     
120. For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
     1 T- w# c" i8 w4 D
121. For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
     
122. For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
     1 ]" a. v  V0 {
123. For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
     
124. .Unprotect Chr(i) & Chr(j) & Chr(k) & _
     
125. Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
     
126. Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
     
127. If Not .ProtectContents Then
     
128. PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
     1 _6 _; v' u/ ^  F/ w$ Q0 ?
129. Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
     8 R  t$ f0 Q; W4 ]/ n
130. Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
     " ^0 ^1 y" T! i3 Q% P
131. MsgBox Application.Substitute(MSGPWORDFOUND2, _
       }/ q2 H0 l; J' M1 r1 H
132. "$$", PWord1), vbInformation, HEADER
     " a) ?3 A" ~; ?; A3 X: K
133. 'leverage finding Pword by trying on other sheets
     9 L. |2 v& \2 |! `
134. For Each w2 In Worksheets
     - y. i  K- b: R  Z6 G- ~
135. w2.Unprotect PWord1
     
136. Next w2
     / D  W) p# G! s! r+ R
137. Exit Do 'Bypass all for...nexts
     . H% z9 S; w7 |# W( ]. s2 P
138. End If
     
139. Next: Next: Next: Next: Next: Next
     
140. Next: Next: Next: Next: Next: Next
     
141. Loop Until True
     
142. On Error GoTo 0
     
143. End If
     3 h( O% x5 J& @1 N7 s  H
144. End With
     : S/ |3 C* t  O- ?% }& f
145. Next w1
     
146. End If
     : z# U1 ]8 v0 {' c- W- U
147. MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
     8 l8 D$ T8 U) ^7 O2 L
148. End Sub

مەزمۇننى كۆچۈرۈۋېلىش

6-باسقۇچ: بىز بايا چاپلىغان تەھرىرلەش كۆزنىكىنى تاقايمىز.(关闭编辑窗口  )
9 W, [4 B! X+ e# \7-باسقۇچ: EXCELقۇرال تىزىملىكىدىكى ماكرو تۈرىنى، يەنە ماكرو تۈرىنى،ئونىڭ ئىچىدىكى AllInternalPasswordsتۈرىنى تاللاپ ئىجىرا قىلىش كونۇپكىسىنى باسىمىز،چىققان كۆزنەكتىن ئىككى قىتىم جەزىملەشتۈرۈش كۇنۇپكىسنى باسىمىز، ئاندىن ئىككى مىنۇت ئەتراپىدا ساقلاپ ئاندىن يەنە جەزىملەشتۈرۈش كۇنۇپكىسىنى باسىمىز.
% u( c, Z; A6 k4 x6 k(工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!!)
% N+ A& D7 ?) R- d! z& \بۇ باسقۇچىلار تۈگۈگەندىن كىيىن بىز EXCELخىزمەت جەدىۋىلىدىكى قوغداشنىڭ بۇزۇلغانلىقىنى ھىس قىلىمىز.
ئۆزىڭىزگە ئىشىنىڭ، سىزمۇ چوقۇم قىلالايسىز!

gujamniyaz

پاھ! قالتىس ئۇسۇلكىنا بۇ. ئۆگىنىپ قويساق ئەرزىيكەن. بولۇپمۇ مەخپىي نومۇر بۇزۇش كودىنى ساقلىۋالساق بولغۇدەك. ئاجايىپ ئىش، بىرى مەخپىي نومۇرنى قوغدىيالماي ئاۋارە، يەنە بىرى بۇزۇلماي ئاۋارە.{:1_83:}

ADiL

تېمىدىكى كودلارنى ئادەتتىكى ئۇسۇلدا چاپلاپ قۇيۇپتىكەنسىز، بۇنداق ئەھۋالدا كود بۇزغۇنچىلىققا ئۇچراش ئەھۋالى كۆرۈلۈپ كودنىڭ ئۈنۈمى يوقاپ كېتىش ئېھتىماللىقى ناھايىتى يۇقىرى، شۇڭا كودلارنى ئۈستىكى كود قىستۇرۇش (ماۋۇ بەلگە ‹ › ) كۇنۇپكىسى ئارقىلىق قىستۇرۇڭ .
كودنى تەھرىرلەپ چىققان، بەلكىم كود ئاللىقاچان بۇزۇلغان بۇلۇشى مۇمكىن، سىناپ بېقىپ، قايتا تەھرىرلەپ قۇيارسىز .
بۇ خىل ئۇسۇلدا كود قىستۇرغاندا باشقىلارنىڭ كودنى ساقلىۋېلىشىمۇ ئاسانغا توختايدۇ، كود ئاستىدىكى كۆك رەڭلىك مەزمۇننى كۆچۈرۈۋېلىش دېگەن خەتنى باسسىلا كود كۆچۈرۈلىدۇ، باشقا يەرگە چاپلاش بۇيرۇقى ئارقىلىقلا ساقلىۋېلىشقا بولىدۇ .

deyar

ئىنكاس قايتۇرۇش Tursun007 نىڭ يازمىسى
6 y  n/ x. ?! L0 ?4 E
ئەگەر ماكرو ئىقتىدارىغا شىفىر ئورنىتىلغان بولسا قانداق قىلىمىز تەپسلى ئوتتۇرغا قويغان بولسىڭىزتولىمۇ ياخشى ئىش بولغان بولاتتى !

Tursunniyaz

ماكرو ئىقتىدارىغا شىفىر ئورنىتىشنى بىلىدىغانلار بولسا يوللاپ قويساڭلار ئۆگىنىۋىلايلى!