تحميل برنامج يومية الايرادات والمصروفات مجانى 100 %

 بسم الله الرجمن الرحيم 

اهلا بكم متابعى موقع عالم الاوفيس

شرح طريقة فك حماية ملفات الإكسيل excel المحمية واسترجاع كلمات المرور بدون برامج

فى هذا الدرس سوف نقوم بشرح موضوع مهم جدا 

وهو كيفية فك حماية ملفات الإكسيل excel المحمية واسترجاع كلمات المرور بدون برامج من خلال كود اكسيل VBA

اذا كنت مبرمج او محترف او هاوى فى الاكسيل وتقوم بعمل ملفات اكسيل وتقوم بحمايتها بكلمة مرور وفى احد الايام نسيت كلمة المرور هذة ولم تستطيع فتح ملف الاكسيل الخاص بك فما هو الحل اذن 

من خلال هذا الدرس نقدم لك حل سهل ومضمون جدا جدا وطريقة مجربة من خلال كود  اكسيل VBA

ولكن كما ذكرنا فى البداية اذا كان هذا الملف خاص بك ملكلك وليس ملك اى شخص اخر 

طريقة عمل الكود

فى البداية نقوم بعمل ملف اكسيل نضع فة جميع الباسوردات التى نقوم بعملها فى العمود A

نقوم بعمل مجموعة من المتغيرات 

Dim ws As Worksheet

Dim spath As String

Dim spassword As String

Dim r As Long

ثم نقوم بتعيين قيم للمتغيرات

Set ws = ThisWorkbook.Worksheets("sheet1")

 spath = ThisWorkbook.Path & "\test.xlsx"

 spoint:

 r = r + 1

 spassword = CStr(ws.Cells(r, 1).Value)

 

ثم نكمل الكود ليقوم بفحص كل سطر من العمود الاول اذا وافق كلمة السر كلمة السر المحمى بها الملف يقوم بفتح الملف 

On Error Resume Next

 Workbooks.Open Filename:=spath, Password:=spassword

If Err.Number <> 0 Then

  Err.Clear: GoTo spoint

 Else

 MsgBox "password found=" & spassword & "at row" & r, vbInformation

 End If

 On Error GoTo 0

لتحميل ملف العمل من هنا