توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : ماژول باز کننده قفل شیت رمز دار
khorasan66
2012/06/13, 12:17
با سلام اگر شیتی را بارمز 123 قفل کرده باشیم چگونه میشود با یک ماژول آن قفل را باز کرد
~M*E*H*D*I~
2012/06/13, 13:02
سلام
دوست عزیز کد زیر رو امتحان کن فک کنم مشکلتو حل کنه
Sub PasswordBreaker()
Dim i As Integer, j As Integer, k As Integer
Dim l As Integer, m As Integer, n As Integer
Dim i1 As Integer, i2 As Integer, i3 As Integer
Dim i4 As Integer, i5 As Integer, i6 As Integer
On Error Resume Next
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
For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66
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) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
If ActiveSheet.ProtectContents = False Then
MsgBox ”One usable password is ” & Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
ActiveWorkbook.Sheets(1).Select
Range(“a1″).FormulaR1C1 = Chr(i) & Chr(j) & _
Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _
Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
miladman88
2012/06/13, 19:55
با سلام
پیغام خطا می دهد
[attachment=723]
~M*E*H*D*I~
2012/06/14, 07:15
سلام
لطفا فایل پیوست رو امتحان کنید من تو 2010 امتحان کردم درست بود
Javid Mokhtari
2012/06/14, 12:31
با سلام
پیغام خطا می دهد
یک جائی از کد ها برای مفسر VBA ناشناخته است.
~M*E*H*D*I~
2012/06/14, 12:35
سلام
تو 2010 جواب میده امتحان کردم چه خطایی میده؟
mahsa shayesteh
2012/06/14, 23:48
سلام
ماکرویی که آقای وطن پرست گذاشتن تو چند تا کوتیشن ایراد داره اگه اونا اصلاح بشه ماکرو کار میکنه
miladman88
2012/06/15, 08:30
سلام
لطفا فایل پیوست رو امتحان کنید من تو 2010 امتحان کردم درست بود
سلام
توی 2010
جواب میده
لطفا برای این آدرس هم بفرستید
m327z@yahoo.com
m.sabouri78
2013/10/01, 12:29
سلام.این فایلو چطور باید استفاده کنم؟؟؟؟؟؟
~M*E*H*D*I~
2013/10/01, 14:02
سلام.این فایلو چطور باید استفاده کنم؟؟؟؟؟؟
باید ماکرو رو در فایل خودتون کپی و اجرا کنید
m.estreji
2013/10/02, 03:31
با سلام اگر شیتی را بارمز 123 قفل کرده باشیم چگونه میشود با یک ماژول آن قفل را باز کرد
سلام
چرا راه دور میرید
Sheet1.Unprotect Password:="123"
~M*E*H*D*I~
2014/04/22, 08:46
سلام
چرا راه دور میرید
Sheet1.Unprotect Password:="123"
راه دور نمیریم این ماژول زمانی بکار میاد که پسورد رو بدونیم ماژولی که مطرح شده برای برداشتن پسورد در صورت فراموش کردن اون هست:)
ماکرو را درworkbookقرار میدم ولی خطا میزنه و هنگ میکنه علتش چیه؟
سلام
لطفا فایل پیوست رو امتحان کنید من تو 2010 امتحان کردم درست بود
این که خودش قفل داره در داخل ماکرو نویسی قفل نیاز داره که
vBulletin® v4.2.5, Copyright ©2000-2024, Jelsoft Enterprises Ltd.