محمود_الشريف

إليكم المطلوب تم اضافة كود الطباعه بعد اختياركم للصف قم بالضغط على زر طباعه وتقبلوا منى وافر الاحترام والتقدير برنامج الكنترول المدرسي2017_1.rar

أخى الكريم يرجى وضع طلبك بمنتدى الاكسيس وليس الاكسل

أخى الكريم اذا كنت تستخدم اكسل 2010 فإختر من القوائم ( قائمة view ) اضغط على new window سيتم تفعيل ايقونة view side by side بالضغط عليها سيتم اظهار قائمة اختر الورقة المراد تثبيتها سيظهر لك جانبين اما تحت بعض او بجانب بعض فإذا كانوا بجانب بعض ( قم بتصغير الجزء الذى من فوق ثم تصغير الجزء الأسفل بالسحب بالماوس وقم بتحريكهم كما تشاء ومرفق الملف الخاص بكم جاهز بمجرد تنفذ الخطوات السابقة سيظهر الذى تريده على قدر فهمى لطلبك تثبيت ورقة عمل1.rar

أخى فى الله وأستاذى القدير // مجدى يونس بوركتم وجزيتم عنا خير الخير وهل يستأذن الأستاذ من التلميذ ؟ نسأل الله عز وجل أن يجعل كل ما تقدمه من علم ينتفع به فى ميزان حسناتكم ونأمل أن تكون مشكلة الأستاذ // ابو الحسن بعد اطلاعه على الملف وتجربته أن تكون تم حلها وتقبل منى وافر الاحترام والتقدير

أخى الكريم وبعد اذن الأستاذ الكبير // سليم جرب التالى أضف التالي بعد أول سطر بالكود Application.ScreenUpdating = False 'rest On Error Resume Next Sheet7.Activate ثم قبل آخر سطر أضف السطر التالى Application.ScreenUpdating = True

أخى الكريم الأستاذ الفاضل // ناصر سعيد جزيتم عنا خير الخير وأتمنى مراجعة رابط الملف نظرا لأنه يقوم بتحويلك مباشره الى موقع آخر وليس موقع التحميل

أخى فى الله الأستاذ // أبو الحسن بالمرفقات الملف ( تجد عدد 2 كومبوبوكس _ قم بالبحث من خلال الأول الذى بجوار ابحث بكود الموظف ) وان شاء الله تجد مشكلتك تم حلها مع اى تغيير تريده على راتب اى موظف مرتبات تم التعديل_4.rar

أخى الكريم الملف بالمرفقات بعد إضافة طلبك الأخير اما عن اكسل 2003 فليس عندى الملف يعمل بشكل ممتاز جداااااااااااااااا على 2007 و 2010 وليس به أى مشاكل وتم تجربته على ثلاث أجهزة مختلفة ضرائب بالمعادلات_ بعد اضافة الكود_1.rar

أخى الكريم الملف يعمل معى بشكل ممتاز أنت كتبت التاريخ خطأ ،، تأكد من ادخال التاريخ بالشكل الصحيح رجاء انت كتبت 2017/02/01 وكيف سيقوم بالبحث والمفروض ان تكتب 2/1/2017

أخى الكريم الأستاذ / محمد الدسوقى جزاكم الله خيرا الأخ الكريم السائل تصحيحا لمطلوبك لا يوجد شىء أسمه حماية مطلقة فى الاكسل ، جميع طرق الحماية يتم كسرها إلا إذا لديك الإمكانية لشراء برنامج تحويل ملف الاكسل الى ملف تنفيذى أما مصطلح تشفير الكود هو موجود كود لذلك الأمر ولكنه يعمل فقط على ملفات فيجوال بيسك بتشفير السورس كود وبيكون عن طريق برامج وليس فيجوال اوفيس أما تشفير بيانات ملف الاكسل من خلال كود بباسورد ده موجود بحيث لو اى انسان فتح الملف سيجد طلاسم يحتاج لشفرة لفكها ونصيحة أخى الكريم لأنه يوجد كود يسمى كود تشفير أكواد الاوفيس وهو عبارة عن فيروس يدمر جميع ملفات الاكسل عندك هو موجود على النت ولكنى لا أتذكره

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

أخى الكريم جزيتم عنى خير الجزاء على دعاؤكم الطيب ولكم مثله أضعاف مضاعفه

أخى الكريم إليك محاولة منى تجربة لصلاحية الملف بتحديد تاريخ معين ، يمكنك تغيير التاريخ بالكود أيضا ضع هذا الكود فى محرر الأكواد ThisWorkbook وجرب فتحه وغلقه تجد أنه بعد العدد المذكور لا يمكنك فتح الملف Private Sub Workbook_Open() Dim Edate As Date Edate = Format("28/02/2017", "DD/MM/YYYY") ' Replace this with the date you want If Date > Edate + 2 Then MsgBox "This workbook is Expired and will now close !!!" ActiveWorkbook.Close End If End Sub

أخى الكريم إليك محاولة منى تجربة عدم فتح الملف بعد خمس مرات ضع هذا الكود فى محرر الأكواد ThisWorkbook وجرب فتحه وغلقه تجد أنه بعد العدد المذكور لا يمكنك فتح الملف Private Sub Workbook_BeforeClose(Cancel As Boolean) If [A1] >= 5 Then GoTo 1 [A1] = [A1] + 1 1: ThisWorkbook.Save End Sub Private Sub Workbook_Open() If [A1] >= 5 Then MsgBox "لقد فتح الملف خمس مرات ولا يمكن فتحه مرة اخرى", , "تنبيه" ThisWorkbook.Save ThisWorkbook.Close End If End Sub

أخى فى الله الأستاذ // أبو الحسن بالمرفقات الملف ( بالضغط على السهم تفتح القائمة المنسدلة لـ ComboBox1 ) اختر منها كود الموظف مرتبات تم التعديل_2.rar

أخى الكريم الشكر لله ، وجزيتم عنى خيرا

أخى فى الله الأستاذ // أبو الحسن على حد علمى لأ ، يجب ان يكون البحث مطابق

أخى الكريم تم عمل المطلوب تجد انه تم اضافة فورم جديد به مطلوبك إدخال في عدة أوراق.rar

أخى فى الله الأستاذ // أبو الحسن الملف يعمل بشكل ممتاز معى نسخة 2010 وأرفقت بالملف صورة توضح أنه يعمل بشكل ممتاز يجب أن تكون أكثر دقة أثناء الكتابة فالأحرف الصغيرة والكبيرة تكتب كما هى ،، لذلك فى أول ملف أرفقته لك كان به البحث عن أى شىء له علاقة بالموظف سواء كان بالرقم القومى الى آخر عمود وهو الراتب لأنه من المستحيل أن تحفظ جميع أكواد الموظفين مرتبات تم التعديل_1.rar

أخى الكريم السطرين الذى تسأل عنهما هما الوضع الطبيعى لإطار النافذة ويعود الكود الى جعل إطار النافذة يبدأ من السطر السابع ورفع السطور السته التى قبلها الى الأعلى مع تنشيط الخلية e7 ويمكن اختصاره الى سطرين فقط Sub سري() ActiveWindow.ScrollRow = 7 Range("e7").Select End Sub

بإختصار الكود يقوم بتحديد الصف السابع والوقوف على الخلية e7 ويمكن اختصاره الى سطرين

أخى // أبو الحسن بوركتم وجزيتم عنى خيرا ملحوظه : هذا الملف يقوم بكسر حماية أى شيت حتى ولو كان ملفات بنكية

أخى فى الله الأستاذ // أبو الحسن الملف بالمرفقات بعد اتمام المطلوب ( كتابة أى رقم عربي وانجليزى أو حروف عربي وانجليزى أو الاثنين معا ) مرتبات تم التعديل.rar

هذا الملف خاص بكسر حماية الشيت فقط لاغير

أخى فى الله الأستاذ // أبو الحسن معذرة لتأخري فى الرد عليكم فلم ألحظ طلبكم بالمرفقات الملف به ما تريد يوجد فورم بإسم MZM مربوط بزر فورم 2 مرتبات2.rar