قصي قام بنشر فبراير 28, 2012 قام بنشر فبراير 28, 2012 في هذا الرابط كود للعلامه عبد الله باقشير جزاه الله عنا كل خير 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) ارجو الحل لان الكود عاجبني ورائع جزاكم الله كل خير
بن علية حاجي قام بنشر مارس 1, 2012 قام بنشر مارس 1, 2012 السلام عليكم ورحمة الله أخي الكريم، قمت بإضافة خاصيتي UNPROTECT و PROTECT إلى كل كود يحتاج إلى فتح شيت "الشهادات" في Module1 ... والكلمة السرية هي من المفروض 123 يمكن تغييرها في أكواد Module1 باستعمال خاصية استبدال Replace ويتم استبدال "123" بأي كلمة أخرى.... والله أعلم أخوك بن علية شهادات جديد.rar
قصي قام بنشر مارس 1, 2012 الكاتب قام بنشر مارس 1, 2012 الف الف شكراخي ابن عليه عند ما اريد فك الحمايه واكتب 123 تظهر رساله بان الكلمة خطأ بالرغم من وجودها في الكود
بن علية حاجي قام بنشر مارس 1, 2012 قام بنشر مارس 1, 2012 السلام عليكم ورحمة الله أخي الكريم قصي، الرابط الذي قمت بتحميل الملف منه هو الرابط للمرفق الأول في موضوع أخينا العزيز عبد الله جازاه الله عنا ألف خير والملف في هذا الرابط ليس فيه طريقة إدراج الصورة في الشهادة... وبعد تحميل الملف الصحيح قمت بالتعييرات نفسها (السابقة) على أكواد Module1 باستعمال الكلمة السرية 123... وتم أيضا تصحيح الخلل الذي ظهر في الملف السابق (ظهور رسالة الخطأ عندما تريد فك الحماية عن الورقة بالكلمة السرية المكتوبة في الكود)... أرجو هذه المرة أن يكون العمل في الملف المرفق مستوفيا للطلب... أخوك بن علية شهادات جديد مع اضافة صور للطلبة.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.