سلام دوستان
بازگردانی رمز اکسل در بسیاری از موارد امری حیاتی است. روشهای متفاوتی برای رمز گذاری بر روی قسمتهای مختلف فایل اکسل وجود دارد ولی هیچ یک از آنها امنیت فایل اکسل را تضمین نمی‌کنند و صرفا کار را برای کاربران سطح پایه دشوار تر میکند
گاهی پیش میاد که پسوردی که برای محافظت از صفحات اکسل گذاشتید از یادتون رفته


در این حالت شما میتواند از نرم افزارهای جانبی یا کد های وی بی به منظور شکستن رمز بر روی فایل استفاده کند. در حالتی که کاربر از تنظیمات Protect Worksheet برای رمز گزاری بر روی یک شیت استفاده کرده باشد، استفاده از کد وی بی نسبت به نرم افزار های جانبی ارجهیت دارد ولی در حالتی که رمز بر روی کل فایل اکسل قرار داده شده باشد استفاده از نرم افزارهای جانبی مناسب تر است.
تو این روش که از کدها وی بی استفاده شده نحوه شکستن پسورد و عبور از اون رو نشون میدم
....
فایل اکسل خود را باز کرده و کلید های ALT و F11 را همزمان فشار دهید تا پنجره توسعه دهندگان باز شود . از پنل سمت چپ بالا Sheet مورد نظر خود را انتخاب نمایید
سپس در کادر سفید رنگ باز شده سمت راست کد زیر را وارد نمایید .کد زیر را تغییر ندهید و بهتر است به جای تایپ کردن , آن را کپی کنید .
سپس کلید F5 را بزنید کار تمام است
همچنین پسورد بصورت پیام براتون نشون داده میشه

 

 

 
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