با سلام اگر شیتی را بارمز 123 قفل کرده باشیم چگونه میشود با یک ماژول آن قفل را باز کرد
ماژول باز کننده قفل شیت رمز دار
Collapse
X
-
برچسب ها: هیچکدام
-
RE: ماژول باز کننده قفل شیت رمز دار
سلام
دوست عزیز کد زیر رو امتحان کن فک کنم مشکلتو حل کنه
[align=left]
کد PHP: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
sigpic
-
کامنت
-
RE: ماژول باز کننده قفل شیت رمز دار
سلام
لطفا فایل پیوست رو امتحان کنید من تو 2010 امتحان کردم درست بودفایل های پیوست شده
sigpic
کامنت
-
RE: ماژول باز کننده قفل شیت رمز دار
نوشته اصلی توسط miladman88با سلام
پیغام خطا می دهددوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
بیش از 60 جلسه آموزش ویدئویی رایگان
شرکت در دوره:
https://javidsoft.ir/courses/
کامنت
-
کامنت
-
RE: ماژول باز کننده قفل شیت رمز دار
سلام
ماکرویی که آقای وطن پرست گذاشتن تو چند تا کوتیشن ایراد داره اگه اونا اصلاح بشه ماکرو کار میکنهدر روزگاری که لبخند ادمها بخاطر شکست توست برخیز تا بگریندکامنت
-
RE: ماژول باز کننده قفل شیت رمز دار
نوشته اصلی توسط vatanparastسلام
لطفا فایل پیوست رو امتحان کنید من تو 2010 امتحان کردم درست بود
توی 2010
جواب میده
کامنت
-
-
کامنت
-
کامنت
کامنت