ناخشا Excel ھۆججىتىنىڭ بارلىق مەخپىي نومۇرىنى بىكار ...لۇغەت

ئۈمىت

ئۇيغۇر 1.)        مەخپىي نومۇرىنى بىكار قىلماقچى بولغان Excel ھۆججىتىنى ئاچىمىز.
/ b4 q9 p6 a6 i( O9 _2.)        قورال ئىستونىدىن(工具)        (宏)        (录制新宏)     نى بېسىپ خالىغان ھەرپ ياكى سان(مەسلەن: AA)نى كىرگۈزۈپ جەزىملەشتۈرۈش كۇنۇپكىسىنى باسىمىز.
, T) w# h8 k/ E1 p3 z8 ?% q3.)         قورال ئىستونىدىن(工具)        (宏)        (中止录制)  نى باسىمىز.
2 R: y6 `# Q4 L! h2 `4.)        قورال ئىستونىدىن(工具)        (宏)نى ياكى(alt+f8)نى بېسىپ ئالدىدا قۇرغان AAنى تاللاپ ئېچىلغان رامكىدىكى بارلىق مەزمۇننى ئۆچۈرۈپ تاشلايمىز.

1. Public Sub AllInternalPasswords()
   
2. ' Breaks worksheet and workbook structure passwords. Bob McCormick
   6 n/ n3 C$ B5 d5 o
3. ' probably originator of base code algorithm modified for coverage
   
4. ' of workbook structure / windows passwords and for multiple passwords
   8 ?4 ~" ?' r) G# I
5. '
   
6. ' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)
   6 q* Y& I0 `' A
7. ' Modified 2003-Apr-04 by JEM: All msgs to constants, and
   ' ~8 M5 M+ ^% O$ n; H
8. ' eliminate one Exit Sub (Version 1.1.1)
   5 U$ u' N: \0 W1 N; f4 H
9. ' Reveals hashed passwords NOT original passwords
   
10. Const DBLSPACE As String = vbNewLine & vbNewLine
    
11. Const AUTHORS As String = DBLSPACE & vbNewLine & _
    1 z/ z3 H# I9 k3 T/ _! M5 W( i, K
12. "Adapted from Bob McCormick base code by" & _
    + ?$ ]5 i0 u" c- y" e7 s" g
13. "Norman Harker and JE McGimpsey"
    % r& a, ~4 m1 x' x; z- r
14. Const HEADER As String = "AllInternalPasswords User Message"
    2 w  r7 S: `" z8 E' N
15. Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"
    
16. Const REPBACK As String = DBLSPACE & "Please report failure " & _
    
17. "to the microsoft.public.excel.programming newsgroup."
    
18. Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _
    
19. "now be free of all password protection, so make sure you:" & _
    5 H1 E; h0 ?$ u: y  w
20. DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _
    
21. DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _
    - t0 ~! x, y3 C7 \$ S& K
22. DBLSPACE & "Also, remember that the password was " & _
    - v0 p2 u. @. C/ q
23. "put there for a reason. Don't stuff up crucial formulas " & _
    
24. "or data." & DBLSPACE & "Access and use of some data " & _
    
25. "may be an offense. If in doubt, don't."
    
26. Const MSGNOPWORDS1 As String = "There were no passwords on " & _
    2 ^; U% W6 @# H0 t+ x* Y
27. "sheets, or workbook structure or windows." & AUTHORS & VERSION
    
28. Const MSGNOPWORDS2 As String = "There was no protection to " & _
    
29. "workbook structure or windows." & DBLSPACE & _
    
30. "Proceeding to unprotect sheets." & AUTHORS & VERSION
    ' h9 d, a' ?5 p' d
31. Const MSGTAKETIME As String = "After pressing OK button this " & _
    
32. "will take some time." & DBLSPACE & "Amount of time " & _
    / A, W3 O5 _6 f  a
33. "depends on how many different passwords, the " & _
    & l( Q6 Q1 l/ M' {/ t
34. "passwords, and your computer's specification." & DBLSPACE & _
    
35. "Just be patient! Make me a coffee!" & AUTHORS & VERSION
    
36. Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _
    & l; H+ l/ h/ P9 m9 q# p
37. "Structure or Windows Password set." & DBLSPACE & _
    2 F0 j' s7 y# j, i7 Q
38. "The password found was: " & DBLSPACE & "$" & DBLSPACE & _
    
39. "Note it down for potential future use in other workbooks by " & _
    
40. "the same person who set this password." & DBLSPACE & _
    
41. "Now to check and clear other passwords." & AUTHORS & VERSION
    6 Z4 [( f7 e9 x+ P0 j" }, K5 f- T2 O) _
42. Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _
    . G& z( m. @1 O
43. "password set." & DBLSPACE & "The password found was: " & _
    6 ~: R/ }. v- a+ C- Z
44. DBLSPACE & "$" & DBLSPACE & "Note it down for potential " & _
    
45. "future use in other workbooks by same person who " & _
    4 Z$ t9 x% [  ?  e& A/ p, v
46. "set this password." & DBLSPACE & "Now to check and clear " & _
    
47. "other passwords." & AUTHORS & VERSION
    
48. Const MSGONLYONE As String = "Only structure / windows " & _
    
49. "protected with the password that was just found." & _
    4 p# W) }, Y4 R$ t
50. ALLCLEAR & AUTHORS & VERSION & REPBACK
    
51. Dim w1 As Worksheet, w2 As Worksheet
    
52. Dim i As Integer, j As Integer, k As Integer, l As Integer
    0 r* j8 F7 Q/ \& H/ d, g* d
53. Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
    . w7 h$ L, c" E$ K9 I
54. Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
    
55. Dim PWord1 As String
    
56. Dim ShTag As Boolean, WinTag As Boolean
    7 q+ G' `$ W+ h4 u% H. [
57. 
      w4 M# ]! ]8 F; M
58. Application.ScreenUpdating = False
    * J' I+ y1 j" m4 q- A
59. With ActiveWorkbook
    
60. WinTag = .ProtectStructure Or .ProtectWindows
    # Y9 e7 M% D6 M  u7 @" W7 j! E
61. End With
    7 c! v& {( V; p! T: @9 |' z
62. ShTag = False
    % k% m+ F/ [( W: K( a
63. For Each w1 In Worksheets
    
64. ShTag = ShTag Or w1.ProtectContents
    7 l! E: S) t% T6 n& O) O/ Z
65. Next w1
    
66. If Not ShTag And Not WinTag Then
    3 X4 l: r) B* w- c# P' Z7 P! Z* v4 S4 M
67. MsgBox MSGNOPWORDS1, vbInformation, HEADER
    ; h' X. I8 O# _% e. j* c& B
68. Exit Sub
    ; }0 H, C) l; ^5 ^0 I/ v  ^5 G" n7 f
69. End If
    7 k+ C: a- w( x, i
70. MsgBox MSGTAKETIME, vbInformation, HEADER
    4 ]  g: ^8 K- l" q5 ?" M- A8 Y/ g
71. If Not WinTag Then
    3 [& c: [4 ]7 a" L2 j7 a6 K( P  j
72. MsgBox MSGNOPWORDS2, vbInformation, HEADER
    
73. Else
    1 k  u; z6 J  @  V" q
74. On Error Resume Next
    : d0 b1 K# p3 L. W( ?1 g2 H# |7 L: n
75. Do 'dummy do loop
    8 h* C' `; b" {4 r9 N; s
76. For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
    $ m, D4 a" I0 F  `# j$ X  p& H
77. For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
    
78. For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
    ! O- w4 Q, F* x) h4 \6 `: g7 p% ]% W3 V; ^
79. For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
    
80. With ActiveWorkbook
    
81. .Unprotect Chr(i) & Chr(j) & Chr(k) & _
    & e) i( x  V# a7 b( O/ i& H  ]
82. Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
    
83. Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    
84. If .ProtectStructure = False And _
    
85. .ProtectWindows = False Then
    7 v# q) U: @8 p  O5 @3 D
86. PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
    
87. Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
      x/ h# p! R$ q' w, B2 |" @5 i
88. Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
    
89. MsgBox Application.Substitute(MSGPWORDFOUND1, _
    
90. "$", PWord1), vbInformation, HEADER
    & w) b  `" W- N/ }( W7 z
91. Exit Do 'Bypass all for...nexts
    ' \/ I/ Y, A5 V. i$ n
92. End If
    / n0 ~8 V, E, y) m7 o: U
93. End With
    
94. Next: Next: Next: Next: Next: Next
    
95. Next: Next: Next: Next: Next: Next
    
96. Loop Until True
    0 a% d; ]* X6 ^0 E& a8 F0 ]2 N
97. On Error GoTo 0
    % M* k3 @) K7 H6 b4 B' k+ c; D
98. End If
    
99. If WinTag And Not ShTag Then
    7 Z8 ~' e& n+ N+ d: m( S6 d
100. MsgBox MSGONLYONE, vbInformation, HEADER
     
101. Exit Sub
     ( v6 u/ J6 Y- c7 b/ K5 S
102. End If
     & e& `3 ]! B+ }) f* F7 G
103. On Error Resume Next
     6 F% b( `) R& @5 [/ ^5 s2 W1 h
104. For Each w1 In Worksheets
     
105. 'Attempt clearance with PWord1
     
106. w1.Unprotect PWord1
     % H2 X) S7 R$ E: ?1 `2 p
107. Next w1
     0 c1 q% p  F. i/ W7 N' ?) Z& L
108. On Error GoTo 0
     / d& Y0 D% R( y3 a! G' g7 v$ b
109. ShTag = False
     , a3 @- J" h& y7 E, ]. e
110. For Each w1 In Worksheets
     * U* }4 p" K7 g/ {& l. {: w/ i8 V" D6 I
111. 'Checks for all clear ShTag triggered to 1 if not.
     8 w! ]( f' ^* h8 }
112. ShTag = ShTag Or w1.ProtectContents
     
113. Next w1
     
114. If ShTag Then
       E, Z; y, W1 l& ~+ i8 @
115. For Each w1 In Worksheets
     
116. With w1
     8 {: F2 ~, @8 m! i* a' E3 O
117. If .ProtectContents Then
     
118. On Error Resume Next
     ! F5 R* ^* o$ s9 P3 s
119. Do 'Dummy do loop
     2 D2 a. p: N6 x; W8 l( _1 l
120. For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
     
121. For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
     ! ?8 i- d" e1 L) w0 m
122. For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
     8 L, }9 i3 {' ~0 @# _5 S
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) & _
     + H+ L/ p; N! x4 g# u' w
126. Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
     
127. If Not .ProtectContents Then
     ) {3 k% [8 L+ Y- l
128. PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
     
129. Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
     - M$ F1 C9 ~6 s
130. Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
       `0 z* S" _8 y, ]. A7 ^* |4 B/ s- U
131. MsgBox Application.Substitute(MSGPWORDFOUND2, _
     
132. "$", PWord1), vbInformation, HEADER
     
133. 'leverage finding Pword by trying on other sheets
     . ]8 V+ }7 d* p
134. For Each w2 In Worksheets
     9 U% z( u/ H( y* H) F+ b
135. w2.Unprotect PWord1
     6 Y! u  z" r8 ]0 X9 r- B0 \
136. Next w2
     
137. Exit Do 'Bypass all for...nexts
     
138. End If
     
139. Next: Next: Next: Next: Next: Next
     ; k8 g% P, p+ k* o& H
140. Next: Next: Next: Next: Next: Next
     7 ?6 y' o% ]4 A) V1 N
141. Loop Until True
     
142. On Error GoTo 0
     
143. End If
     ' k4 f% b. i9 |% Q' M0 N( b
144. End With
     
145. Next w1
     $ O  n7 `2 T3 S1 a$ U. N
146. End If
     
147. MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER
     9 v9 o  Q9 k, Z. k( a2 M
148. End Sub

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

5)مەزمۇن ئۆچۈرۈلگەن كۆزنەككە ئىچىگە تۆۋەندىكى مەزمۇنلارنى كىرگۈزۈپ ئاندىن كۆزنەكنى تاقايمىز.
    (كۆچۈرۈش  ، چاپلاش مەشغۇلاتىنى ئېلىپ بېرىشقا بولىدۇ)
()
  K9 p6 K* t0 A7 M  E" h$ o' Breaks worksheet and workنىڭ ئىچىدىن  AllInternalPasswords   نى تاللاپ قوزغىتىش  (运转) كۇنۇپكىسىنى بېسىپ 4قېتىم جەزىملەشتۈرسەكلا بولىدۇ.(جەزىملەشتۈرۈپ 2مىنۇتتىن كېيىن ئاندىن مەشغۇلات ئېلىپ بېرىڭ)
+ h6 k4 c( b4 k/ q, z; N
0 k/ _7 b3 P% d, G; H+ Uبۇيەردىن چۈشۈرۈڭ
9 F! _4 q  \1 c5 zئىزدە

 

                                                   كىرگۈزگۈچ ئايال بالا پەن ئىللىق

ئارال

مەن   سىناپ  بېقىپ قىلالمىدىم

illiq

قۇشۇمچە ھۆججەتنى چۈشۈرۈپ كۈرۈڭ،  قايتا سىناپ بېقىڭ .

قاشتېشى

مەنمۇ قىلالمىدىما بۇنى؟  سۈرەتلىك قىلىپ ئىشلەش مۇمكىن بولسا سۈرەتلىك قىلىپ بىرنى مىسال ئېلىپ كۆرسىتىپ قويسىمۇ بۇلاپتىكەن بايا!!!