عند عمل حماية للصفحة تظهر رسالة بان الحماية تتعارض مع الكود

[skyblue]

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

ارجوا التكرم من الاساتذة الافاضل مساعدتي في الملف المرفق حيث اريد اضافة كود للحماية لايعمل لي تعارض عند عمل البرنامج .

تحياتي لكم

[skyblue]

up

[عادل جلال]

السلام عليكم

الحل فى هذا الرابط من العبقرى الغائب / أبو تامر

http://www.officena.net/ib/index.php?showtopic=15647

مع تحياتى

[skyblue]

استاذي لقد حاولت ان اضيف الكود الخاص بالاستاذ تامر ولكن لم استطع .حيث مازلت هناك رسالة تعترض عند تنفيذ الكود

[عادل جلال]

السلام عليكم

أنظر المرفق

Book31.rar

[الســـــــاهر]

السلام عليكم

الاخ skyblue

قم بعمل تحديد لكامل الصفحة

ثم من شريط الحماية فعل خاصية تأمين الخلايا لكامل المستند

ثم حدد الخلايا التي يتعامل معها الكود فقط و فعل خاصية غير مؤمن

ثم اختر حماية ورقه من اطار السماح حط علامة على تحديد الخلايا الغير مؤمنة وشيل باقي العلامات

و السلام

تم تعديل مايو 11, 2007 بواسطه assahir

[محمد عسكر]

السلام عليكم

اخى الفاضل

انا اقولك ايه فكره الكود بتاع استاذنا / ابو تامر

هوه يتكون من 2 ماكرو واحد باسم PROTON """ PROTOFF

حيث انك تذهب الى الكود بتاعك العادى للعمليه و فى بدايته تعمل و فى النهايه تعمل

فيفهم البرنامج ان اماكره يبدا بفك الحمايه ثم تنفيذ البرنامج بتاعك ثم يقوم باعاده الحمايه مره اخرى

و قد اخذت الكودين من برنامج ابو تامر عن كنترول الإبتدائى

و قد استخدمت هذا الكود فى برنامج لى عن الكنترول ( بالمنتدى )

وهذ ه هى الأكواد

 
Sub prot_off()
ActiveSheet.Unprotect
End Sub

Sub prot_on()
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

تحياتى

[skyblue]

الاستاذ: عادل جلال مشكور وجزاك الله كل خير وتعديل رائع على الملف

الاستاذ : محمد عسكر دائما صاحب حلول رائعة ربي يوفقك

الاستاذ : assahir شكرا على المشاركة وعلى الحل .

فعلا المنتدى جمعنا بااخوان تجمعنا بهم المحبة وحب الخير

جزاكم الله كل خير وادعوا الله لكم بالتوفيق