برداشتن رمز شیت

**akm1093786** · 2019/08/19, 14:45

سلام .
ایم کد رو توی ماکرو ها کپی کن . هر شیتی که میخوای رمزش رو برداری اونجا اجراش کن .
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

**mahvar01** · 2019/08/21, 09:42

جواب نداد ارورمیده

**akm1093786** · 2019/08/22, 12:55

سلام مجدد .
شا باید ابتدا یک ماجول توی ویژوال بیسیک ایجاد کنید و این کد رو توی اون کپی/پیست کنید .
بعد از محیط ویژوال خارج بشید و اون شیتی که قفله رو انتخاب کنید . با کلید ترکیبی کنترل f8 لیست ماکرو ها رو بیارید و بعد ماکروی پسورد رو اجرا و صبر کنید .
حالا قفل شیت شما پاک شده.

**faslebahari** · 2019/08/23, 12:23

این فایل که فرستادی کلا باز نمیشه

بعدشم بگو پسورد رو کدوم شیت هست ؟

**مهندس تبریزی** · 2019/08/23, 14:50

نوشته اصلی توسط mahvar01

سلام دوستان
یه فایل دارم که بعضی شیت هاش رمز داره کسی می تونه بهم کمک کنه رمزش رو بردارم

سلام دوست عزیز
فایلی که فرستادید ایراد داره به محض باز شدن ارور میده.
دوستانی که میخواهند راهنمائی فرمایند جوابی که به پرسش میدن قبل از ارسال پاسخ امتحان نمایند
با تشکر مهندس تبریزی