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

Tursunniyaz

بىز Excelئىشلىتىش جەريانىدا EXCELخىزمەت جەدۋىلىنى قوغداش ئۈچۈن مەخپى نۇمۇر ئورنىتىمىز، ۋە ياكى مەخپى نۇمۇر ئورناتقان EXCELخىزمەت جەدىۋىلىنى داۋاملىق تۈردە ئۇچىرتىپ تۇرىمىز، بىز EXCELخىزمەت جەدىۋىلىنى قوغداش ئۈچۈن سالغان مەخپى نۇمۇرىمىزنى ئونتۇپ قالغاندا ، ۋە ياكى باشقىلارنىڭ EXCELخىزمەت جەدىۋىلىگە مەخپى نۇمۇر ئورنىتىپ قويغانلىقىنى ،بىز ئۇنىڭ مەخپى نۇمۇرنى بىلىشكە ئامال بولمىغاندا ،قانداق قىلىمشىز كېرەك، تۆۋەندىكى EXCELخىزمەت جەدىۋىلىدىكى قوغداشنى بۇزۇشنىڭ ئادددى ئۇسۇلى بۇ مەسىلىنى ھەل قىلالىشى مۇمكىن،سىناپ بىقىڭ!
1-باسقۇچ: بىز ئاۋال EXCELخىزمەت جەدىۋىلىگە مەخپى نۇمۇر ئورنىتىلغان ھۆججەتنى ئاچىمىز.(打开文件)
2-باسقۇچ:EXCELقۇرال تىزىملىگى ئىچىدىكى ماكرو تۈرىنى،ئونىڭ ئىچىدىكى يىڭى ماكرو كۆچۈرۈشنى ئىچىپ ئۆزىمىز خالىغان نام قويىمىز.مەسىلەن:نامىنىaa دەپ تۇرايلى .(工具---宏----录制新宏---输入名字如:aa )
$ R& k6 c5 J& Y; ]& x9 I3-باسقۇچ:ماكرو كۆچۈشۈشنى توختىتىمىز.بىز بۇ چاغدا يىڭى بىر قۇرۇق ماكروغا ئىرىشىمىز.(停止录制(这样得到一个空宏)
4-باسقۇچ: EXCELقۇرال تىزىملىكىدىن ماكرو تۈرىنى،ئونىڭ ئىچىدىن ماكرو تۈرىنى،ئىچىلغان كۆزنەكتىن بىز باياتتىن نام قويغان تۈرنى تاللاپ تەھرىرلەش كونۇپكىسىنى باسىمىز.(工具---宏----宏,选aa,点编辑按钮)
4 u, v! U9 d/ ?% `0 S5-باسقۇچ: ئىچلغان كۆزنەك ئىچىدىكى بارلىق ھەرىپلەرنى ئۆچۈرىمىز، ئاندىن تۆۋەندىكى ئالماشتۇرۇش مەزمۇنىنى كۆچۈرۈپ چاپلايمىز.
9 s) d9 q$ w/ Z5 u* g0 D删除窗口中的所有字符(只有几个),替换为下面的内容你复制吧)
( I  p. R6 ]$ p0 h' w7 V, h: g8 Rئالماشتۇرۇش مەزمۇنى تۆۋەندىكىچە:ھەممىسىنى كۆچۈرۈپ چاپلايمىز.
7 S$ d1 I/ w9 s, A5 [/ Z( P( g
) K$ X  f! R. t* y% m

1. Option ExplicIT
   1 e+ w- A4 Q* W+ `
2. Public Sub AllInternalPassWords()
   $ U. z" g" K+ W
3. ' Breaks worksheet and workbook structure passwords. Bob McCormick
   3 ?. h' {% |0 u3 v+ X
4. ' probably originator of base code algorithm modified for coverage
   
5. ' of workbook structure / windows passwords and for multiple passwords
   - ^! L, Y5 O6 i# U. e) W1 d2 }
6. '
   8 H" o8 ]# B2 H* @! l4 x2 p
7. ' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
   . s5 i7 {" {8 [3 K  z3 G
8. ' Modified 2003-Apr-04 by JEM: All msgs to constants, and
   
9. ' eliminate one Exit Sub (Version 1.1.1)
   
10. ' Reveals hashed passwords NOT original passwords
    + c$ @* Q: [% h! E. l* n) x
11. Const DBLSPACE As String = vbNewLine & vbNewLine
    
12. Const AUTHORS As String = DBLSPACE & vbNewLine & _
    
13. "Adapted from Bob McCormick base code by" & _
    + \- {# S* C0 P& h7 B0 `# @
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"
    
17. Const REPBACK As String = DBLSPACE & "lease report failure " & _
    
18. "to the microsoft.public.excel.programming newsgroup."
    
19. Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
    
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!!!" & _
    : a" G" f  t2 e7 d
23. DBLSPACE & "Also, remember that the password was " & _
    
24. "put there for a reason. Don't stuff up crucial formulas " & _
    
25. "or data." & DBLSPACE & "Access and use of some data " & _
    + R! i( c' }/ R8 m6 c* M, F/ f
26. "may be an offense. If in doubt, don't."
    6 S" d! p; ~- S2 a4 M
27. Const MSGNOPWORDS1 As String = "There were no passwords on " & _
    
28. "sheets, or workbook structure or windows." & AUTHORS & VERSION
    2 z, N: f3 `) Z, O. U
29. Const MSGNOPWORDS2 As String = "There was no protection to " & _
    * Q+ U$ l) U5 e# e- w9 X) p1 u3 {! o5 M
30. "workbook structure or windows." & DBLSPACE & _
    
31. "roceeding to unprotect sheets." & AUTHORS & VERSION
    
32. Const MSGTAKETIME As String = "After pressing OK button this " & _
    
33. "will take some time." & DBLSPACE & "Amount of time " & _
    - C6 O1 B! ~  w7 u7 \, g
34. "depends on how many different passwords, the " & _
    , m/ p( G" P0 `; Y
35. "passwords, and your computer's specification." & DBLSPACE & _
    " _! t$ B1 n" q1 q, o0 z
36. "Just be patient! Make me a coffee!" & AUTHORS & VERSION
      V- F4 F1 {0 d" k$ N1 u* N
37. Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
    % Z5 z" c4 E, E! h+ p
38. "Structure or Windows Password set." & DBLSPACE & _
    : q3 `( C8 I5 }% w, f" U
39. "The password found was: " & DBLSPACE & "$$" & DBLSPACE & _
    
40. "Note it down for potential future use in other workbooks by " & _
    
41. "the same person who set this password." & DBLSPACE & _
    - E8 N" R. S7 ^3 i
42. "Now to check and clear other passwords." & AUTHORS & VERSION
    
43. Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
    
44. "password set." & DBLSPACE & "The password found was: " & _
    
45. DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _
    
46. "future use in other workbooks by same person who " & _
    / b9 H2 p' `$ F5 e! N
47. "set this password." & DBLSPACE & "Now to check and clear " & _
    ; N! }4 Z5 m  J: X! |4 w! P
48. "other passwords." & AUTHORS & VERSION
    
49. Const MSGONLYONE As String = "Only structure / windows " & _
    5 z% q( w) X" G+ a* v: D4 S1 @8 s" S0 S
50. "protected with the password that was just found." & _
    
51. ALLCLEAR & AUTHORS & VERSION & REPBACK
    , z8 ]$ C" H( ?) c
52. Dim w1 As Worksheet, w2 As Worksheet
    
53. Dim i As Integer, j As Integer, k As Integer, l As Integer
    % R9 c1 C+ r  I, @
54. Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
    # |, N% ?4 p$ v: a# W* z
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
    5 ]: l$ m) w# P
58. Application.ScreenUpdating = False
    - w# f; b" S6 m2 S
59. With ActiveWorkbook
    
60. WinTag = .ProtectStructure Or .ProtectWindows
    
61. End With
    
62. ShTag = False
      x& [( |4 }2 L: _
63. For Each w1 In Worksheets
    - o9 d, {/ z' Z, z% e0 n
64. ShTag = ShTag Or w1.ProtectContents
    2 q( U8 O* O/ b/ A( Q
65. Next w1
    
66. If Not ShTag And Not WinTag Then
    
67. MsgBox MSGNOPWORDS1, vbInformation, HEADER
    
68. Exit Sub
    0 I- b6 R) Z  M, |
69. End If
    5 }' S7 Q: ?; R) o1 h4 c
70. MsgBox MSGTAKETIME, vbInformation, HEADER
    
71. If Not WinTag Then
    
72. MsgBox MSGNOPWORDS2, vbInformation, HEADER
    
73. Else
    
74. On Error Resume Next
    1 ~+ g- @# K( R
75. Do 'dummy do loop
    
76. For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
    7 W4 _" g' G. c/ }1 t$ W7 X7 y+ Q
77. For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
    + x7 i- A( h2 A# `
78. For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
    
79. For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
    / X' c. k& |$ A$ u  S
80. With ActiveWorkbook
    0 W3 H; o- m1 Q. g
81. .Unprotect Chr(i) & Chr(j) & Chr(k) & _
    - o% R+ S& ]6 b
82. Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
    2 }( f: ~) m5 `: n, n- K( n' k7 e8 u+ X
83. Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    9 \1 L4 n: o! Y7 W1 D) X
84. If .ProtectStructure = False And _
    9 F" e6 u  b; w8 r7 D
85. .ProtectWindows = False Then
    
86. PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
    
87. Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
    1 Q8 ]- t+ j1 x
88. Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    
89. MsgBox Application.Substitute(MSGPWORDFOUND1, _
    
90. "$$", PWord1), vbInformation, HEADER
    + y  v6 G* r) U" y
91. Exit Do 'Bypass all for...nexts
    ' S$ {6 Y  l' }2 I% `  Q; Z/ [
92. End If
    6 p; z! Q- k! J- V3 \, \9 u
93. End With
    
94. Next: Next: Next: Next: Next: Next
    7 \( W0 k& h7 h% U, [. Q" H/ Z' w
95. Next: Next: Next: Next: Next: Next
    
96. Loop Until True
    
97. On Error GoTo 0
    - W' ^2 B6 K. ^" h# f- q) D* @
98. End If
    
99. If WinTag And Not ShTag Then
    
100. MsgBox MSGONLYONE, vbInformation, HEADER
     
101. Exit Sub
     
102. End If
     
103. On Error Resume Next
     7 ~% c  `9 O8 K# X
104. For Each w1 In Worksheets
     
105. 'Attempt clearance with PWord1
     
106. w1.Unprotect PWord1
     " l  e6 S8 @! K2 f) p3 h8 a, }$ X
107. Next w1
     
108. On Error GoTo 0
     
109. ShTag = False
     / ]  B- ^* r* z: a* v" W
110. For Each w1 In Worksheets
     
111. 'Checks for all clear ShTag triggered to 1 if not.
     
112. ShTag = ShTag Or w1.ProtectContents
     
113. Next w1
     ; w) c0 @6 X4 P+ p# p
114. If ShTag Then
     
115. For Each w1 In Worksheets
       B4 T; M) B* P3 [* H
116. With w1
     * G  M) ~& a( [0 P
117. If .ProtectContents Then
     7 Z4 H: `, q# ?# {# u) q" x
118. On Error Resume Next
     
119. Do 'Dummy do loop
     
120. For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
     ! {# W" P% T4 u5 n3 f; W% ~
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
     % n5 L' P2 F* \: \0 |3 ]
123. For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
     8 J. {: W2 p& u
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)
     ) X' E6 R& }; p: X, `! G
127. If Not .ProtectContents Then
     " S" I5 Y# n7 V" e0 d
128. PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
     & P& T! Y$ ~; }# M4 ?9 F4 t
129. Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
     ; i  X, ^$ U! |( g8 h' U
130. Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
     & H& ?: x8 h+ _. a+ g/ |8 i
131. MsgBox Application.Substitute(MSGPWORDFOUND2, _
     " X6 g* ], V; x; i/ s
132. "$$", PWord1), vbInformation, HEADER
     
133. 'leverage finding Pword by trying on other sheets
     
134. For Each w2 In Worksheets
     9 I7 o$ F3 p# W+ C! |
135. w2.Unprotect PWord1
     
136. Next w2
     
137. Exit Do 'Bypass all for...nexts
     . U# x; X5 t& [+ i( V
138. End If
     8 |  H/ J+ m7 ~7 m+ T
139. Next: Next: Next: Next: Next: Next
     
140. Next: Next: Next: Next: Next: Next
     4 H7 v/ ?7 k, [
141. Loop Until True
     ( Q  B( s. g7 J
142. On Error GoTo 0
     
143. End If
     7 [4 W/ W- s# _3 I
144. End With
     4 r) P. l% C$ {  i2 P
145. Next w1
     + w0 z, F* I5 ~+ t+ T' o
146. End If
     " w3 `; B! U. A0 y& ~( n$ d- w
147. MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
     6 t0 m& ]/ ?8 v: a
148. End Sub

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

6-باسقۇچ: بىز بايا چاپلىغان تەھرىرلەش كۆزنىكىنى تاقايمىز.(关闭编辑窗口  )
1 A1 c) u4 g+ f5 O# X7-باسقۇچ: EXCELقۇرال تىزىملىكىدىكى ماكرو تۈرىنى، يەنە ماكرو تۈرىنى،ئونىڭ ئىچىدىكى AllInternalPasswordsتۈرىنى تاللاپ ئىجىرا قىلىش كونۇپكىسىنى باسىمىز،چىققان كۆزنەكتىن ئىككى قىتىم جەزىملەشتۈرۈش كۇنۇپكىسنى باسىمىز، ئاندىن ئىككى مىنۇت ئەتراپىدا ساقلاپ ئاندىن يەنە جەزىملەشتۈرۈش كۇنۇپكىسىنى باسىمىز.
(工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!!)
بۇ باسقۇچىلار تۈگۈگەندىن كىيىن بىز EXCELخىزمەت جەدىۋىلىدىكى قوغداشنىڭ بۇزۇلغانلىقىنى ھىس قىلىمىز.
  Z$ P. W' z% U. ]6 \7 d' cئۆزىڭىزگە ئىشىنىڭ، سىزمۇ چوقۇم قىلالايسىز!

gujamniyaz

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

ADiL

تېمىدىكى كودلارنى ئادەتتىكى ئۇسۇلدا چاپلاپ قۇيۇپتىكەنسىز، بۇنداق ئەھۋالدا كود بۇزغۇنچىلىققا ئۇچراش ئەھۋالى كۆرۈلۈپ كودنىڭ ئۈنۈمى يوقاپ كېتىش ئېھتىماللىقى ناھايىتى يۇقىرى، شۇڭا كودلارنى ئۈستىكى كود قىستۇرۇش (ماۋۇ بەلگە ‹ › ) كۇنۇپكىسى ئارقىلىق قىستۇرۇڭ .
: M6 J+ [  Y7 ?: yكودنى تەھرىرلەپ چىققان، بەلكىم كود ئاللىقاچان بۇزۇلغان بۇلۇشى مۇمكىن، سىناپ بېقىپ، قايتا تەھرىرلەپ قۇيارسىز .
# Z+ a4 A! Z+ Uبۇ خىل ئۇسۇلدا كود قىستۇرغاندا باشقىلارنىڭ كودنى ساقلىۋېلىشىمۇ ئاسانغا توختايدۇ، كود ئاستىدىكى كۆك رەڭلىك مەزمۇننى كۆچۈرۈۋېلىش دېگەن خەتنى باسسىلا كود كۆچۈرۈلىدۇ، باشقا يەرگە چاپلاش بۇيرۇقى ئارقىلىقلا ساقلىۋېلىشقا بولىدۇ .

deyar

ئىنكاس قايتۇرۇش Tursun007 نىڭ يازمىسى

ئەگەر ماكرو ئىقتىدارىغا شىفىر ئورنىتىلغان بولسا قانداق قىلىمىز تەپسلى ئوتتۇرغا قويغان بولسىڭىزتولىمۇ ياخشى ئىش بولغان بولاتتى !

Tursunniyaz

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