EXCEL نىڭ مەخپى نۇمۇرىدىن ياردەم

qolpan

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

ahat0902

بۇ بۇيرۇقنى سىناپ بېقىڭ.
Sub PasswordBreaker()
　　Dim i As Integer, j As Integer, k As Integer
　　Dim l As Integer, m As Integer, n As Integer
: [7 }$ p/ j5 F　　Dim i1 As Integer, i2 As Integer, i3 As Integer
　　Dim i4 As Integer, i5 As Integer, i6 As Integer
) w  t0 V  q( O, ^　　On Error Resume Next
0 n; V3 D7 V3 `3 U- y! R: t+ @7 ~　　For i = 65 To 66: For j = 65 To 66: For k = 65 To 66
　　For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
. B3 k& {! R5 m$ c4 A* w4 R　　For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
; d  w$ J/ v  p7 c0 |　　For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
　　ActiveSheet.Unprotect Chr(i) & Chr(j)& Chr(k) & _
　　Chr(l) & Chr(m) & Chr(i1)& Chr(i2) & Chr(i3)& _
# A! q6 `: P, n, @9 y! V　　Chr(i4) & Chr(i5) & Chr(i6)& Chr(n)
+ O' b9 u/ L3 n　　If ActiveSheet.ProtectContents = False Then
　　MsgBox "One usable password is " & Chr(i)& Chr(j) & _
- f; v7 {/ T* X5 g* P% {　　Chr(k) & Chr(l) & Chr(m)& Chr(i1) & Chr(i2)& _
: u! s- o) K2 F& I7 j0 A* _　　Chr(i3) & Chr(i4) & Chr(i5)& Chr(i6) & Chr(n)
# N, p) D8 \! a# n0 t! \　　ActiveWorkbook.Sheets(1).Select
6 j& e- Q( k2 V3 ^' y+ `0 V　　Range("a1").FormulaR1C1 = Chr(i) & Chr(j)& _
- c6 e3 K! k8 m4 ]( `+ x　　Chr(k) & Chr(l) & Chr(m)& Chr(i1) & Chr(i2)& _
2 r9 o4 C2 o' K1 z9 v1 \　　Chr(i3) & Chr(i4) & Chr(i5)& Chr(i6) & Chr(n)
5 ?: Q) \2 b. X5 M$ R0 ?* @　　Exit Sub
　　End If
　　Next: Next: Next: Next: Next: Next
　　Next: Next: Next: Next: Next: Next
" X. s# X7 T1 [  e8 z; K* c0 g. R　　End Sub

kaplan

HB-AOXPPR24-fxj.exe  نى قاچلاپ ئىشلىتىگە ئاسان يىشەلەيسىز ئەمما چوقۇم تىزىملىتىشڭىز شەرىت
تىزىملىتىش نومورى بىللە قاچلىنىدۇ

ADiL

مۇنبەردىن EXCEL مەخپى نۇمۇرىنى يېشىش دېگەندەك ھالقىلىق سۆزلەرنى ئىزدىسىڭىزمۇ خېلى كۆپ دېتاللارنى تاپالايسىز .

مىرزات

تۆۋەندىكى يازمىنى تەپسىلى كۆرسىىڭىز  بۇ قىيىنچىلىقىڭىز ھەل بولىدىكەن.
' E9 H; q- y: l* Uمەن قايتا-قايتا سىناپ باقتىم ، مۇۋەپەقىيەتلىك بولدى.

$ k, R+ v5 U* t0 f6 D# dhttp://www.rohlan.biz/forum.php? ... 5%D8%AE%D9%BE%D9%89