Ahmed Emannan قام بنشر يوليو 10, 2009 مشاركة قام بنشر يوليو 10, 2009 السلام عليكم اضع بين ايدكم كود حماية وفك اوراق العمل جميعها بدون استثناء بدل ما تتعب وتقوم بحماية كل ورقة على حدا منقول للفائدة كود القفل Sub mProtect() Dim cont As Integer Do Until cont = Sheets.Count cont = cont + 1 Sheets(cont).Protect (hady) Loop End Sub كود الفتح Sub mUnprotect() Dim cont As Integer Do Until cont = Sheets.Count cont = cont + 1 Sheets(cont).Unprotect (hady) Loop End Sub تحياتي لكم رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر يوليو 10, 2009 مشاركة قام بنشر يوليو 10, 2009 عزيزى كيف يتم إستخدامه وما هى كلمة السر للحماية نرجو الشرح رابط هذا التعليق شارك More sharing options...
هشام شلبى قام بنشر يوليو 10, 2009 مشاركة قام بنشر يوليو 10, 2009 السلام عليكم اخى العالى يوسف استفدت كثيرا من مواضيع اشكرك شكر خاص على مواضيعك الجميلة بالنسبة للكود ليس له له كلمة سر ( جرب فك الحماية يدويا سوف لا يطلب منك كلمة سر ) بالنسبة لاستخدامه فى المرفق _____________________________.rar 1 رابط هذا التعليق شارك More sharing options...
Ahmed Emannan قام بنشر يوليو 10, 2009 الكاتب مشاركة قام بنشر يوليو 10, 2009 مشكور اخي علي توضيحك تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.