safwatscc قام بنشر مايو 30, 2009 مشاركة قام بنشر مايو 30, 2009 الاخوة الافاضل مطلوب حماية صفحة لان الحماية الموجودة فى الاكسل لا تحمى النماذج وهى الازرار فمطلوب حماية الصفحة كاملة بالازرا والنماذج ويا ريت تكون عن طريق كود طلب اخر هل ايضا يمكن حماية صفحة بيتم استدعاء وترحيل الدرجات بها دون ان يوثر او يمنع الترحيل اليها وشكرا رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر مايو 30, 2009 مشاركة قام بنشر مايو 30, 2009 بسم الله الرحمن الرحيم مطلوب حماية صفحة لان الحماية الموجودة فى الاكسل لا تحمى النماذج وهى الازرار يمكنك وضع كود الحمايه عند بدايه تنفيذ الكود تفاديا لحمايه المفاتيح طلب اخر هل ايضا يمكن حماية صفحة بيتم استدعاء وترحيل الدرجات بها دون ان يوثر او يمنع الترحيل اليها يمكنك فك حمايه الصفحه ثم الترحيل ثم أعاده حماينها مره اخرى مرفق ملف يقوم بحمايه الكود بكلمه مرور ثم فك حمايه ورقه العمل ثم الترحيل من ورقه العمل الاولى الى الثانيه ثم اعاده حمايه ورقه العمل كلمه السر و كلمه الحمايه هى 123 Sub DOIT() RESTART: My_InputBox = InputBox("أدخل كلمه المرور و هى : 123") If My_InputBox = "" Then GoTo RESTART Else If My_InputBox = 123 Then MsgBox "كلمه السر صحيحه" Sheets("Sheet2").Unprotect (123) Sheets("Sheet2").[A1] = Sheets("Sheet1").[A1] Sheets("Sheet2").Activate Sheets("Sheet2").Protect (123) Sheets("Sheet1").[A1] = Sheets("Sheet1").[A1] + 1 MsgBox"تم الترحيل" Else MsgBox "كلمه السر غير صحيحه أعد المحاوله" GoTo RESTART End If End If End Sub السلام عليكم protect.rar رابط هذا التعليق شارك More sharing options...
خالد القدس قام بنشر مايو 30, 2009 مشاركة قام بنشر مايو 30, 2009 عمل جميل ورائع جزاك الله خيرا اخى هادى رابط هذا التعليق شارك More sharing options...
safwatscc قام بنشر يونيو 4, 2009 الكاتب مشاركة قام بنشر يونيو 4, 2009 المطلوب حماية الصفحة الرئيسية موجود بها خلفية صورة وزراير فقط مطلوب حمايتها من اى تعديل - حماية الاكسل لا تجدى معها وبارك الله فيكم رابط هذا التعليق شارك More sharing options...
safwatscc قام بنشر يونيو 8, 2009 الكاتب مشاركة قام بنشر يونيو 8, 2009 للرفع رابط هذا التعليق شارك More sharing options...
abujak2007 قام بنشر يونيو 25, 2009 مشاركة قام بنشر يونيو 25, 2009 شكرا على المعلومة القيمة رابط هذا التعليق شارك More sharing options...
أستيكا قام بنشر يونيو 25, 2009 مشاركة قام بنشر يونيو 25, 2009 أخى الكريم انظر المرفق و اخبرنى بالنتيجة و تقبل تحياتى استيكا Protection_Sheet.rar رابط هذا التعليق شارك More sharing options...
safwatscc قام بنشر يونيو 26, 2009 الكاتب مشاركة قام بنشر يونيو 26, 2009 الاخ الفاضل astika بارك الله فيك رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر يوليو 1, 2009 مشاركة قام بنشر يوليو 1, 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.