روھلان مۇنبىرى
كۆرۈش: 3038|ئىنكاس: 4
ئوڭ تەرىپنى يىغىش

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

[ئۇلانما كۆچۈرۈش]
ۋاقتى: 2011-12-24 23:49:13 | ھەممە قەۋەتنى كۆرۈش |كۆرۈش شەكلى
ياخشىمۇ سىلەر دوسلار
$ T" u- u- ?: z& L4 M ماڭا ياردەم قىلىپ  Excel نىڭ كاتەكچىللىرىنىڭ مەلۇم بىر كاتەكچىسىگە سېلىنغان مەخپى نۇمۇرىنى يىشىش ، بىكار  قىلىش ئۇسۇلى بولسا دەپ بەرگەن بولساڭلار  ئۇ كاتەكچىدىكى سان سىفىرلارنى ئۆزگەرىتكىلىمۇ بولمىدى مەخپى نۇمۇرىنى ئۇنتۇپ قېلىپ تاپالمىدىم  
ياقتۇرىشىڭىز مۇمكىن؟

مۇناسىۋەتلىك تېمىلار

ۋاقتى: 2011-12-25 03:30:07 | ھەممە قەۋەتنى كۆرۈش
بۇ بۇيرۇقنى سىناپ بېقىڭ.
8 _; y) `+ k" |Sub PasswordBreaker()
5 s) o6 \* l% {  Dim i As Integer, j As Integer, k As Integer* t6 H7 q3 n+ O9 Z. @1 d' ]+ iبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
  Dim l As Integer, m As Integer, n As Integer
+ P" Z4 ~8 O+ [. _6 \7 ~  Dim i1 As Integer, i2 As Integer, i3 As Integer
/ I; b3 ~, t: ^  u  Dim i4 As Integer, i5 As Integer, i6 As Integer
  K5 ]( f: z9 b7 r7 N  On Error Resume Next
( H- @. R! I2 p* u  For i = 65 To 66: For j = 65 To 66: For k = 65 To 66. h1 B; W8 b9 h5 ^بۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
  For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66
2 H7 b9 F6 ?9 |  For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66( Y7 ~1 I' g6 T- ^7 f+ s; dبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
  For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126
2 U) N5 r+ w" B  ActiveSheet.Unprotect Chr(i) & Chr(j)& Chr(k) & _: t( l' B5 m3 I6 pبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
  Chr(l) & Chr(m) & Chr(i1)& Chr(i2) & Chr(i3)& _
/ |; Z0 c, S3 |8 \$ f9 d  Chr(i4) & Chr(i5) & Chr(i6)& Chr(n)3 s( G" \4 u! r1 K# Nبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
  If ActiveSheet.ProtectContents = False Then% ~9 u6 b3 j7 K9 v/ l% u9 I, rبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
  MsgBox "One usable password is " & Chr(i)& Chr(j) & _
- S; N" P% i7 U- d  Chr(k) & Chr(l) & Chr(m)& Chr(i1) & Chr(i2)& _; q0 v& g5 i; i; B: Mبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
  Chr(i3) & Chr(i4) & Chr(i5)& Chr(i6) & Chr(n)) V* i* {$ _4 \1 U' D7 C! rبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
  ActiveWorkbook.Sheets(1).Select5 [7 X& a0 p  qبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
  Range("a1").FormulaR1C1 = Chr(i) & Chr(j)& _
- E+ J4 L6 p5 U- q. v, ]  Chr(k) & Chr(l) & Chr(m)& Chr(i1) & Chr(i2)& _
9 {6 t2 ]; X4 B1 D" M3 P& A  Chr(i3) & Chr(i4) & Chr(i5)& Chr(i6) & Chr(n)" a4 W" z! s+ l  n! x8 Oبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
  Exit Sub0 `1 a2 K- o, K6 N" {! T: sبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
  End If$ V1 k& |3 L  ?7 H# y& xبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
  Next: Next: Next: Next: Next: Next
) W+ k- g- Y, o9 N9 r$ R- N  Next: Next: Next: Next: Next: Next
8 v- J" Y6 k/ B) x5 o  End Sub
5 V  o9 l; A& K% Q. I
ۋاقتى: 2011-12-25 11:26:00 | ھەممە قەۋەتنى كۆرۈش
HB-AOXPPR24-fxj.exe  نى قاچلاپ ئىشلىتىگە ئاسان يىشەلەيسىز ئەمما چوقۇم تىزىملىتىشڭىز شەرىت& [1 S2 I+ M4 W, tبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
تىزىملىتىش نومورى بىللە قاچلىنىدۇ
ۋاقتى: 2011-12-26 11:45:48 | ھەممە قەۋەتنى كۆرۈش
مۇنبەردىن EXCEL مەخپى نۇمۇرىنى يېشىش دېگەندەك ھالقىلىق سۆزلەرنى ئىزدىسىڭىزمۇ خېلى كۆپ دېتاللارنى تاپالايسىز .
ۋاقتى: 2012-8-1 03:52:32 | ھەممە قەۋەتنى كۆرۈش
تۆۋەندىكى يازمىنى تەپسىلى كۆرسىىڭىز  بۇ قىيىنچىلىقىڭىز ھەل بولىدىكەن.8 |3 B% Z8 ]/ p  `- Jبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()
مەن قايتا-قايتا سىناپ باقتىم ، مۇۋەپەقىيەتلىك بولدى.* y; L+ M5 L6 T0 m+ V. xبۇ مەزمۇنلار روھلان مۇنبىرىدىن كۆچۈرۈلگەن()

' k$ m, S- r) ^  ]9 \http://www.rohlan.biz/forum.php? ... 5%D8%AE%D9%BE%D9%89

ئېنگىلىزچە كىرگۈزۈش ھالىتىگە ئالماشتۇرماقچى بولسىڭىز Ctrl بىلەن K كۇنۇپكىسىنى بىرلەشتۈرۈپ بېسىڭ، يەنە بىر قېتىم مۇشۇنداق باسسىڭىز ئۇيغۇرچىغا ئالمىشىدۇ .

كىرگەندىن كېيىن ئىنكاس يازالايسىز كىرىش | ئەزا بولۇڭ

سەھىپە جۇغلانما قائىدىسى

archiver|يانفۇن نۇسخا|قاماقخانا|ئېلان بېرىڭ|بىز كىم؟|ئۈندىدار|روھلان مۇنبىرى

GMT+8, 2016-8-22 10:54

Powered by Discuz! X3.2(NurQut Team)

© 2001-2013 Comsenz Inc.

تېز ئىنكاس چوققىغا قايتىش سەھىپىگە قايتىش