safwatscc قام بنشر مايو 30, 2009 قام بنشر مايو 30, 2009 الاخوة الافاضل مطلوب حماية صفحة لان الحماية الموجودة فى الاكسل لا تحمى النماذج وهى الازرار فمطلوب حماية الصفحة كاملة بالازرا والنماذج ويا ريت تكون عن طريق كود طلب اخر هل ايضا يمكن حماية صفحة بيتم استدعاء وترحيل الدرجات بها دون ان يوثر او يمنع الترحيل اليها وشكرا
هادى محمد المامون سالم قام بنشر مايو 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
safwatscc قام بنشر يونيو 4, 2009 الكاتب قام بنشر يونيو 4, 2009 المطلوب حماية الصفحة الرئيسية موجود بها خلفية صورة وزراير فقط مطلوب حمايتها من اى تعديل - حماية الاكسل لا تجدى معها وبارك الله فيكم
أستيكا قام بنشر يونيو 25, 2009 قام بنشر يونيو 25, 2009 أخى الكريم انظر المرفق و اخبرنى بالنتيجة و تقبل تحياتى استيكا Protection_Sheet.rar
يوسف عطا قام بنشر يوليو 1, 2009 قام بنشر يوليو 1, 2009 الأخ هادى ربنا يهدينا جميعاً للخير هل يمكنك عزيزى شرح طريقة عمل هذا الكود الذى أرفقته شاكر أفضالك الأخ أستيكة هل تتفضل وتشرح ما أرفقته جازاكم الله خيراً
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.