اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كسر حماية أوراق العمل (القنبلة الجديدة)


الردود الموصى بها

 

الأخ الحبيب ناصر

نصب البرنامج المرفق .

اضغط الملف ببرنامج الضغط

دبل كليك على الملف المضغوط

في النافذة الخاصة ببرنامج الضغط اعمل كليك يمين ثم View File

ادخل المجلد xl ثم المجلد Worksheets ثم دبل كليك على ورقة العمل التي عليها حماية بكلمة سر

في النافذة في الناحية اليسار اضغط علامة الزائد وابحث عن Sheet Protection ثم اضغط علامة الزائد ..ستجد السطر Password كليك يمين عليه ثم Editor Select ثم من لوحة المفاتيح اضغط مفتاح Delete

وأخيراً اضغط علامة الحفظ في البرنامج ..

أغلق البرنامج وأغلق النوافذ واضغط على كلمة Yes عندما يطلب منك

فك ضغط الملف في نفس االمكان ووافق على الاستبدال

افتح ملفك وادخل على التبويب Review  ثم Unprotect Sheet ...لن يطلب منك باسورد

تم فك الحماية بحمد الله

تقبل تحياتي ا / ياسر خليل

**************

جزاك الله خيرا وبارك فيك

هل هذا ينطبق ايضا على فك محرر الاكواد

تم تعديل بواسطه nasersaeed
رابط هذا التعليق
شارك

اخى ياسر

طالما اننا قمنا بفك حماية محرر الاكواد

اذا يمكننا استخدام هذا الكود ايضا

لفك حماية الاوراق

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

تقبل تحياتى

رابط هذا التعليق
شارك

مشكور أخي الحبيب إبراهيم أبو ليلة ..

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

  • Like 1
رابط هذا التعليق
شارك

رجاء من المشرفين وإدارة المنتدى مراجعة موضوعي .. والنظر فيه والبت في أمره

إذا كان مخالف ..فليتم حذفه على الفور ، وعلى الأخوة الذين تعلموا الطريقة أن يكتموها ، خشية أن أحمل ذنب غيري

وأبريء ذمتي ممن يستخدم الموضوع فيما يخالف وفيما يضر ، وفيما فيه سرقة وانتهاك حقوق الغير..

يرجى الاهتمام من إدارة المنتدى والرد فوراً ..

وأعتذر إن كنت قدمت موضوع فيه كسر حماية . ما أردت إلا ااستفادة للجميع (في حالة نسيان الباسورد الخاص بهم ..)  وليس لسرقة أعمال الغير

برجاء الاهتمام والبت في الأمر بعد مشاورة أعضاء فريق المنتدى (والأمر شورى ، والرأي لا يكون لفرد واحد ، إنما يكون بإجماع فريق المنتدى)

  • Like 2
رابط هذا التعليق
شارك

السلام عليكم

اخى الحبيب والمعلم الفاضل ياسر

جزاك الله كل الخير... دائما ما تبهرنا بما هو جديد

 

سلمت يداك بكل خير

رابط هذا التعليق
شارك

مشكور أخي أبو حنين على مرورك العطر ..

الأخ الحبيب خالد عمر ..لقد أوفيت الثناء بقولك (جزاك الله كل الخير)

بارك الله فيكم إخواني ..

وفي انتظار رد الإدارة بخصوص موضوع كسر الحماية .. !!

رابط هذا التعليق
شارك

  • 11 months later...

إنت ناوي تطلع على الموضوعات الخاصة بي ... يبقا مش هتنام لمدة أسبوع على الأقل

أعانك الله أخي الكريم أشرف .. تصدق إن معظم الموضوعات دي نسيت إني أنا اللي كاتبها (الزهايمر عامل شغل جامد معايا)

رابط هذا التعليق
شارك

  • 6 months later...

أخي الفاضل حاولت كثيرا فتح الملف الذي لدي لكن لم يفلح حيث أن كلمة المرور على الـ workbook بكامله، استخدمت نفس الطريقة فبحثت عن كلمة المرور في الوورك بوك ولم تظهر لي ما لاحل تعبت وانا ابحث في المنتديات وقنوات اليوتيوب.. حتى الكود الذي تم وضعه سابقا لم ينجح معي

 

مرفق الملف مع صورة التي تظهر لي من البرنامج الذي حملته من موضوعكم الكريم

 

ارجو مساعدتي بارك الله فيكم

نموذج تعبئة جديد.rar

Capture.JPG

رابط هذا التعليق
شارك

الطرق موجودة بكثرة .. وكلها تؤدي الغرض

ولكن أخشى أن يكون تقديمي لهذا الموضوع مرة أخرى انتهاك لحقوق الغير

يمكن التأكيد على أن الملفات التي لديكي تخصك وترفقي ما شئت من ملفات لنساعدك في فك الحماية عنها

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information