(تمت الاجابة) كود الشهادات الرائع للعلامة عبد الله باقشير

[قصي]

في هذا الرابط كود للعلامه عبد الله باقشير

جزاه الله عنا كل خير

http://www.officena.net/ib/index.php?showtopic=31162&hl=&fromsearch=1

ولكن مع حماية الصفحة الموجود بها الشهادة

تعطي هذه الرساله

	    Set MyPh = Sheets(ShName).Shapes.AddShape(msoShapeRectangle, col.Left, col.Top + 2, 50, 70)

ارجو الحل لان الكود عاجبني ورائع

جزاكم الله كل خير

[قصي]

للرفع

رفع الله مقامكم

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم، قمت بإضافة خاصيتي UNPROTECT و PROTECT إلى كل كود يحتاج إلى فتح شيت "الشهادات" في Module1 ... والكلمة السرية هي من المفروض 123 يمكن تغييرها في أكواد Module1 باستعمال خاصية استبدال Replace ويتم استبدال "123" بأي كلمة أخرى.... والله أعلم

أخوك بن علية

شهادات جديد.rar

[قصي]

الف الف شكراخي ابن عليه

عند ما اريد فك الحمايه واكتب 123

تظهر رساله بان الكلمة خطأ بالرغم من وجودها في الكود

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم قصي، الرابط الذي قمت بتحميل الملف منه هو الرابط للمرفق الأول في موضوع أخينا العزيز عبد الله جازاه الله عنا ألف خير والملف في هذا الرابط ليس فيه طريقة إدراج الصورة في الشهادة... وبعد تحميل الملف الصحيح قمت بالتعييرات نفسها (السابقة) على أكواد Module1 باستعمال الكلمة السرية 123... وتم أيضا تصحيح الخلل الذي ظهر في الملف السابق (ظهور رسالة الخطأ عندما تريد فك الحماية عن الورقة بالكلمة السرية المكتوبة في الكود)... أرجو هذه المرة أن يكون العمل في الملف المرفق مستوفيا للطلب...

أخوك بن علية

شهادات جديد مع اضافة صور للطلبة.rar

[قصي]

جزاك الله خيرا اخي ابن عليه