سلام
امیدوارم برای شما پیش نیامده باشد اما برای من و برخی از دوستان و همکاران بارها پیش آمده است برای بررسی و کنترل از طریق محاسبه مجدد و ... از صاحبکار درخواست اطلاعات نموده‌اند که صاحبکار با اکراه فراوان در نهایت یک فایل اکسل رمز دار را ارائه نموده است و به بهانهایی از جمله محرمانه بودن و ... تحت هیچ شرایطی حاضر به ارائه رمز آن نشده است.
در ادامه روشی آموزش داده خواهد شود که طی آن با انجام چند اقدام ساده رمز فایل مربوطه حذف خواهد گردید.
گام اول : خوب ما قصد داریم یک خرابکاری را راه بیندازیم پس توصیه میکنم یک کپی از فایل اکسل خود برای روز مبادا نگهدارید.
گام دوم: فایل اکسل مربوطه را بازکنید و کلید های ترکیبی ALT + F11 را بزنید تا وارد محیط ویژوال بیسیک بشوید.
گام سوم: برای درصورتی که فایل شما یک Module بسازید (البته این کلک بدون ایجاد Module نیز قابل اجراست اما نیازمند اسن است که در هر sheet بکار برده شود که زمان بر خواهد بود) برای ساخت یک Module در محیط ویژوال بیسیک روی Insert کلیک کرده سپس روی گذینه Module را کلیک کنید.
گام چهارم: با کلیک روی Module در مرحله قبل شما یک Module در پنجره سمت چپ با نام Module1 ایجاد کرده اید روی آن دوبار کلیک کنید تا بازشود.
در پنجره باز شده عبارت زیر را بنویسید (البته Copy و Paste به مراتب راحتتر است پس ... )
Sub PasswordBreaker()
'Breaks worksheet password protection.
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)
Exit Sub
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
End Sub
گام پنجم: برای اینکه دوستور شما درون فایل اکسل ثبت شود فایل خود را در محیط ویژوال بیسیک ذخیره کنید.
گام ششم: خوب کارما در محیط ویژوال بیسیک تمام شد و باید به محیط اکسل بازگردیم برای این کار در محیط ویژوال بیسیک روی ایکن اکسل کلیک کنید.
گام هفتم: اگر گام ششم را انجام داده اید اکنون فایل اکسل به عنوان اولین پنجره روبروی شماست. کافی است sheet رمزدار را بازکنید و کلیدهای ترکیبیALT + F8 را بزنید تا پنجره ماکرو "macro" بازشود حالا ماکروی PasswordBreaker را اجرا کنید برای اجرای ماکرو نیز کافی است روی کلید Run کلیک کنید.
گام هشتم: صبر داشته باشید و منتظر دریافت پیام زیر باشید
این پیام یعنی فایل شما دیگر رمز ندارد و میتوانید با خیال راحت با آن کارکنید.
البته توقع نداشته باشید این روش در یک چشم به هم زدن فایل شما را کرک کند و برای نیل به مقصود باید صبر داشته باشید تا ماکرو کارش را انجام دهد.
توجه داشته باشید که این پیام در خانه A1 نوشته میشود و شما باید خانه A1 را به صورت دستی اصلاح کنید. منبع 1 منبع 2
آخرین ویرایش 02 مرداد 1394
