سلام دوستان
یه فایل دارم که بعضی شیت هاش رمز داره کسی می تونه بهم کمک کنه رمزش رو بردارم
یه فایل دارم که بعضی شیت هاش رمز داره کسی می تونه بهم کمک کنه رمزش رو بردارم
-
-
سلام .
ایم کد رو توی ماکرو ها کپی کن . هر شیتی که میخوای رمزش رو برداری اونجا اجراش کن .
Sub crackpassword()
Dim v1 As Integer, u1 As Integer, w1 As Integer
Dim v2 As Integer, u2 As Integer, w2 As Integer
Dim v3 As Integer, u3 As Integer, w3 As Integer
Dim v4 As Integer, u4 As Integer, w4 As Integer
On Error Resume Next
For v1 = 65 To 66: For u1 = 65 To 66: For w1 = 65 To 66
For v2 = 65 To 66: For u2 = 65 To 66: For w2 = 65 To 66
For v3 = 65 To 66: For u3 = 65 To 66: For w3 = 65 To 66
For v4 = 65 To 66: For u4 = 65 To 66: For w4 = 32 To 126
ActiveSheet.Unprotect Chr(v1) & Chr(u1) & Chr(w1) & Chr(v2) & Chr(u2) & Chr(w2) & Chr(v3) & Chr(u3) & Chr(w3) & Chr(v4) & Chr(u4) & Chr(w4)
Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next: Next:
End Sub -
جواب نداد ارورمیدهکامنت
-
سلام مجدد .
شا باید ابتدا یک ماجول توی ویژوال بیسیک ایجاد کنید و این کد رو توی اون کپی/پیست کنید .
بعد از محیط ویژوال خارج بشید و اون شیتی که قفله رو انتخاب کنید . با کلید ترکیبی کنترل f8 لیست ماکرو ها رو بیارید و بعد ماکروی پسورد رو اجرا و صبر کنید .
حالا قفل شیت شما پاک شده.کامنت
-
این فایل که فرستادی کلا باز نمیشه
بعدشم بگو پسورد رو کدوم شیت هست ؟کامنت
-
[CENTER][SIZE=4][FONT=arial][COLOR=#b22222] :winner2:[/COLOR][COLOR=#000080] فرانسیس بیکن : [/COLOR][COLOR=#0000cd]آنچه مردم را [/COLOR][COLOR=#ff0000]دانشمند [/COLOR][COLOR=#0000cd]می کند ، مطالبی نیست که [/COLOR][COLOR=#800000]می خوانند[/COLOR][COLOR=#0000cd] بلکه چیزهایی است که [/COLOR][COLOR=#800000]یاد می گیرند[/COLOR][COLOR=#b22222] :lamo:[/COLOR][/FONT]
[/SIZE][/CENTER]کامنت
-
کامنت