الجموعي قام بنشر يناير 24, 2015 قام بنشر يناير 24, 2015 السلام عليكم ورحمة الله تعالى وبركاته خلال بحثي في الأنترنت وجدت هذا الكود فك حماية ورقة إليكم الملف الرجاء استخدام الكود فيما لا يغضب الله اللهم بلغت اللهم فاشهد إستخدام الكود في حالات نسيان كود ملفك وليس ملف الغير حتى تطلب الإذن مع تحيات محبكم/ الجموعي كود إلغاء حماية ورقة ملف إكسل.rar 6
عبدالباري البنا قام بنشر يناير 24, 2015 قام بنشر يناير 24, 2015 اخى العزيز ... الجموعى اعزك الله كود فى منتهى الروعه ومفيد ومهم جدا تحياتى
محمد الريفى قام بنشر يناير 25, 2015 قام بنشر يناير 25, 2015 اخى الحبيب الجموعى اعمالك رائعه ومتميزه جزاكم الله خيرا ولى تساؤل هل يصلح هذا الكود مع كل اصدارات الاوفيس حتى 2013 تقبل منى اجمل تحيه
ياسر خليل أبو البراء قام بنشر يناير 25, 2015 قام بنشر يناير 25, 2015 بارك الله فيك أخي الحبيب الجموعي جربت الكود واستغرق وقتا طويلااااااااااااااااااااااااااااااااااااا ولم يفلح معي هناك أداة للأخ الحبيب محمد صالح تؤدي هذا الغرض بكفاءة عالية عموما ما لم يصلح معي يصلح لغيري جزيت خيرا على كل ما تقدمه أخي الحبيب .. تقبل تحياتي
الصـقر قام بنشر يناير 26, 2015 قام بنشر يناير 26, 2015 اخى وحبيبى الجموعى صاحب الروائع والنوادر كل يوم تصر انك تبهرنى بشئ جديد احلى من اللى قبله زادك الله علما اخى الحبيب بس ملحوظه صغيره لو انا نسيت كلمة مرور الورقه فمن الطبيعى انى مش هقدر اعمل زر داخل الورقة واعيين علية الماكرو لفك الباسورد لذالك سوف نقوم بتعيين زر بورقة اخرى وتعيين عليها الماكرو فبعد اذنك عملت تعديل طفيف على الكود حتى يتم فك الورقة من زر اخر بورقة اخرى الكود هو 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 1
الصـقر قام بنشر يناير 26, 2015 قام بنشر يناير 26, 2015 الاخت الكريمة ايناس انسخى الكود اللى بالمشاركة 9 وافتحى الملف اللى فيه ورقة محمية وانتى ناسية الباسورد بتاعها بعد ما تفتحى الملف اضغطى Alt+F11 هيفتح معك الفيجوال بيسك ( المغارة) من قائمة insert اختارى Module سيظهر امامك شاشه بيضه قومى بلصق الكود فيه ثم اذهبى الى اى ورقة من الملف واعملى زر وعيينى عليه الكود ومتنسيش تغيير بالكود اسم الورقة المطلوب فك حمايتها بدلا من الجموعى اللى بين الاقواس بالكود تقبلى تحياتى
علي فاهم قام بنشر يناير 26, 2015 قام بنشر يناير 26, 2015 (معدل) ربنا يجازيك عنا خيرا انا اجد نفسي مع شرحك تم تعديل يناير 26, 2015 بواسطه alyfahem 1
عبد الله السعيد قام بنشر يناير 26, 2015 قام بنشر يناير 26, 2015 عمل رائع بارك الله فيك اخي ياسر ممكن اداة اخونا محمد صالح اللي اشرت اليها
عبد الله السعيد قام بنشر يناير 26, 2015 قام بنشر يناير 26, 2015 واخواني انا جربت الكودين اعلاه المشكلة انه يطول في البحث حتى يهنج البرنامج ولا يظهر لي نتيجة
ياسر خليل أبو البراء قام بنشر يناير 26, 2015 قام بنشر يناير 26, 2015 عمل رائع بارك الله فيك اخي ياسر ممكن اداة اخونا محمد صالح اللي اشرت اليها تفضل أخي هذا الرابط http://www.officena.net/ib/index.php?showtopic=29972&view=getnewpost 1
الردود الموصى بها