موضوع مهم بالنسبة لشيتات الكنترول

[أ/محمد على عاشور]

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

- تحول الى صفحة تحرير الفيجوال VB Editor :Visual Basic Editor او للاختصار alt+F11

- ادرج نموزج جديد من قائمة Insert>>>Module

- انسخ الكود التالي :

Sub PasswordBreaker()

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)
ActiveWorkbook.Sheets(1).Select
Range("a1").FormulaR1C1 = 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

اغلق VB Editor

- انتقل لصفحة العمل الي حابب تكسرها

- فعل الماكرو الي عملتوو

بتلاقيه بقائمة Tools>>Macro>>Macros وبعدين دبل كليلك على الماكرو الي عملتو

طبعا هتاخد معاك وقت لحد ما كلمة السر تظهر
الباسورد الي بتطلع عن طريق هي العملية مش بالضرورة تكون نفس الباسورد الي تم حماية هالصفحة فيها وانما هوو بيخلق باسورد تفك الحماية وهي ناجحة 100%

عدل كما تريد الان واعرف الاكواد والمعادلات
على فكرة هذا الكود ليس له حل
جارى رفع فيديو ان شاء الله لتوضي الطريقة اكثر
والقادم اكثر ان شاء الله