كود إلغاء حماية ورقة ملف إكسل

[الجموعي]

السلام عليكم ورحمة الله تعالى وبركاته

خلال بحثي في الأنترنت وجدت هذا الكود

فك حماية ورقة

إليكم الملف

الرجاء استخدام الكود فيما لا يغضب الله اللهم بلغت اللهم فاشهد

إستخدام الكود في حالات نسيان كود ملفك وليس ملف الغير حتى تطلب الإذن

مع تحيات محبكم/ الجموعي

 

كود إلغاء حماية ورقة ملف إكسل.rar

[عبدالباري البنا]

اخى العزيز ... الجموعى 

اعزك الله كود فى منتهى الروعه

ومفيد ومهم جدا

تحياتى

[حسام عبدالمحسن]

كود  رائع بارك الله فيك اخى الكريم

[محمد الريفى]

اخى الحبيب الجموعى

اعمالك رائعه ومتميزه

جزاكم الله خيرا

ولى تساؤل هل يصلح هذا الكود مع كل اصدارات الاوفيس حتى 2013

تقبل منى اجمل تحيه

[ياسر خليل أبو البراء]

بارك الله فيك أخي الحبيب الجموعي

جربت الكود واستغرق وقتا طويلااااااااااااااااااااااااااااااااااااا ولم يفلح معي

هناك أداة للأخ الحبيب محمد صالح تؤدي هذا الغرض بكفاءة عالية

عموما ما لم يصلح معي يصلح لغيري

جزيت خيرا على كل ما تقدمه أخي الحبيب ..

تقبل تحياتي

[ا بو سليمان]

شكرا لك 

 

.

[احمد فضيله]

جزاك الله كل خير

[inas aly]

سامحوني انا مش عارفه كيف يستخدم هذا الكود

[الصـقر]

اخى وحبيبى 

الجموعى

صاحب الروائع والنوادر

كل يوم تصر انك تبهرنى بشئ جديد احلى من اللى قبله

زادك الله علما

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

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

الكود هو 

Sub enleve_protection()

       Dim a, b, c, d, e, f, g, h, i, j, k, l As Integer

       On Error Resume Next

       For a = 65 To 66

       For b = 65 To 66

       For c = 65 To 66

       For d = 65 To 66

       For e = 65 To 66

       For f = 65 To 66

       For g = 65 To 66

       For h = 65 To 66

       For i = 65 To 66

       For j = 65 To 66

       For k = 65 To 66

       For l = 32 To 126

              Sheets("الجموعى").Unprotect Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) & Chr(i) & Chr(j) & Chr(k) & Chr(l)
            
              If Sheets("الجموعى").ProtectContents = False Then

              MsgBox " تم إلغاء حماية ورقة "

              Chr (c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) & Chr(i) & Chr(j) & Chr(k) & Chr(l)

              Exit Sub

              End If

       Next

       Next

       Next

       Next

       Next

       Next

       Next

       Next

       Next

       Next

       Next

       Next

End Sub

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

تقبل تحياتى

كود إلغاء حماية ورقة ملف إكسل.zip

[الصـقر]

الاخت الكريمة ايناس

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

بعد ما تفتحى الملف اضغطى Alt+F11  

هيفتح معك الفيجوال بيسك ( المغارة) من قائمة insert  اختارى Module   سيظهر امامك شاشه بيضه  قومى بلصق الكود فيه 

ثم اذهبى الى اى ورقة من الملف واعملى زر وعيينى عليه الكود 

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

تقبلى تحياتى

[علي فاهم]

ربنا يجازيك عنا خيرا

 انا اجد نفسي مع شرحك

تم تعديل يناير 26, 2015 بواسطه alyfahem

[عبد الله السعيد]

عمل رائع بارك الله فيك

 

 

اخي ياسر ممكن اداة اخونا محمد صالح اللي اشرت اليها

[عبد الله السعيد]

واخواني انا جربت الكودين اعلاه المشكلة انه يطول في البحث حتى يهنج البرنامج ولا يظهر لي نتيجة

[ياسر خليل أبو البراء]

عمل رائع بارك الله فيك

 

 

اخي ياسر ممكن اداة اخونا محمد صالح اللي اشرت اليها

تفضل أخي هذا الرابط

http://www.officena.net/ib/index.php?showtopic=29972&view=getnewpost

[ناصر9001]

جزاكم الله خيرا عمل رائع

[alkhaligy]

بارك الله فيك

•