حذف پسورد فایل های اکسل (چگونه یک sheet برنامه excel را بدون داشتن password به حالت Unprotect در بیاوریم )

ویژه حذف پسورد فایل های اکسل (چگونه یک sheet برنامه excel را بدون داشتن password به حالت Unprotect در بیاوریم )

در صورت مفید بودن این مقاله حتما نظر خودتان را در پایین مطلب برای ما ارسال کنید

در این مقاله به شما خواهیم آموخت که چگونه یک sheet مجزا برنامه ی اکسل را بدون داشتن رمز عبور به حالت unprotect در بیاوریم .
این ترفند در برنامه Excel نسخه 2010 و نسخه های جدیدتر قابل اجراست اما در نسخه 2013 کار نمی کند .
در مواقعی که worksheet شما توسط رمز عبور محاظت شود شما نمی توانید به ویرایش و تغییر در Sheet برنامه اکسل بپردازید . اگر رمز عبور خود را فراموش کردید و یا رمز عبور را اصلا نمی دانید کافیست مراحل ساده زیر را انجام دهید .

------------------------------------------------------------------------------------------------------------------------------
این مقاله را از دست ندهید : چگونه کامپیوتر مبتنی بر ویندوز 10 را به یک صفحه نمایش Wireless تبدیل کنیم
-------------------------------------------------------------------------------------------------------------------------------

حذف پسورد فایل های اکسل 1

 

فایل اکسل خود را باز کرده و کلید های ALT و F11 را همزمان فشار دهید تا پنجره توسعه دهندگان باز شود . از پنل سمت چپ بالا Sheet مورد نظر خود را انتخاب نمایید .

حذف پسورد فایل های اکسل 2


سپس در کادر سفید رنگ باز شده سمت راست کد زیر را وارد نمایید .کد زیر را تغییر ندهید و بهتر است به جای تایپ کردن , آن را کپی کنید .


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

  حال بعد از کپی کردن بر روی دکمه Run کلیک کنید یا کلید F5 را فشار دهید .

حذف پسورد فایل های اکسل 3


 
با انجام مراحل بالا خواهید دید که sheet شما به حالت unprotected در خواهد آمد . همچنین شما یک پیغام را به صورت pop up مشاهده خواهید کرد که شامل رمز عبوری است که می توان برای unprotect کردن دیگر sheet ها در یک workbook از آن استفاده کرد .

------------------------------------------------------------------------------------------------------------------------------
این مقاله را از دست ندهید : چگونگی اضافه و مشاهده رویدادهای تقویم در نوار Taskbar ویندوز 10
-------------------------------------------------------------------------------------------------------------------------------


حذف پسورد فایل های اکسل 4 

نوشتن دیدگاه

تصویر امنیتی
تصویر امنیتی جدید

دیدگاه‌ها   

0 #7 همایون 1398-01-31 14:07
عالی بود
نقل قول کردن
0 #6 همایون 1398-01-31 14:07
عالب بود
نقل قول کردن
+1 #5 مجید 1398-01-22 21:19
کدهاتون خیلی به دردم خورد. بسیار سپاسگذارم.
نقل قول کردن
0 #4 هاشم 1398-01-20 13:17
من این کار کردم ولی اونجا هم ازم پسورد میخواد
نقل قول کردن
+1 #3 همایون 1397-09-20 10:54
خدا خیرت بده
نقل قول کردن
+2 #2 بهرام 1397-07-15 11:26
آقا بسیار ممنون مشکل من که حل شد عالی بود
نقل قول کردن
0 #1 حسن 1396-11-04 19:37
با این روش چند پسورد چند شیت باز شد ولی یکی نه این پسوردش نیست
نقل قول کردن

آخرین مطالب آموزشی

«
  • 1
  • 2
  • 3
»
تک وب دیزاین-قالب فارسی جوملا