اخوانى هناك شيتات محمية بكمة سر
ونحتاج للتعديل او كسر حماينها
اليكم الطريقة
على فكرة لقد جربت الطريقة مع كل الشيتات ونجحت 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 وبعدين دبل كليلك على الماكرو الي عملتو

طبعا هتاخد معاك وقت لحد ما كلمة السر تظهر

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

ممتازززززززززززززززززززززززززززززززززززززززززززززز زز