تطبيقية تسيير عمال الشركة

[MOURADIYAT]

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

فهو برنامج مخصص لتسيير شؤون عمال شركتي وهو بسيط نوعا ما

إلا أنني أريد أن أطوره مثلما فعلتم مع برنامج الأخ المايسترو لتسيير شؤون الموظفين خاصة الإصدار 3 و4

أرجو أن أجد عندكم بعض المساعدة كما عهدتكم

وشكرا

_______ _____ ____ ______.rar

[طارق محمود]

السلام عليكم

أخي العزيز

بالنسبة لأول طلباتك

جعل التطبيقية غير قابلة للمساس والدخول الا بكلمة سر

تم التنفيذ وكلمة السر هي 123

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

تم التنفيذ أيضا مع إمكانية العودة إلي صفحة الترحيب من اي صفحة أخري بنقرة الزر الأيمن العلوي

أنظر المرفق

لقد عدلت علي ما حملته سابقا من موضوعك القديم: http://www.officena.net/ib/index.php?showtopic=34793

تطبيقية تسيير المستخدمين.rar

تم تعديل ديسمبر 11, 2010 بواسطه TareQ M

[MOURADIYAT]

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

كيف الحال والأحوال أخي الكريم

أحببت ان أشكرك على مجهودك الجبار وعلى ما قمت به من أجلي ومن أجل كل المشتركين

لكن ياأخي البرنامج غير شغال وفيه بعض الأخطاء لأن الماكرو لا ينفذ الأوامر وتأتيني رسالة الخطأ تلك

أرجو أن تراجعه وتحل الإشكال لأنه والله سهل ويسير عليك

شكرا للمرة الأف

ويا ريت يكون على الموضوع الثاني أحسن

أنا أستنى ردك

[طارق محمود]

السلام عليكم

أخي الحبيب

الملف يعمل معي جيدا ، راحع اعدادات الإكسل - حماية الماكرو لابد ان تكون منخفضة

البرنامج عبارة عن كودين كلاهما في حدث الملف Workbook كالتالي:

Private Sub Workbook_Open()

Sheets("صفحة الترحيب").Select

UserForm1.Show

End Sub 

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)


If ActiveSheet.Name <> "صفحة الترحيب" Then Exit Sub

If Target.Address <> "$G$38" Then Exit Sub

x = "Feuil" & Target.Value

ActiveWorkbook.Sheets(x).Select


End Sub

أيضا طلبك الثاني

إضافة قائمة منسدلة لجميع "الشيت" بحيث أنني أستطيع التنقل فيها بدون النقر على أسفل الصفحة أي التنقل بواسطة القائمة المنسدلة

تم تنفيذه في ذات الملف ونسيت ان أنوه عنه سابقا ، أرجو المراجعة مرة أخري

تم تعديل ديسمبر 11, 2010 بواسطه TareQ M

[MOURADIYAT]

أخي الكريم حياك الله وشكرا لك على مجهوداتك الجبارة

أحببت أن أقول لك أنني جربت البرنامج وهو صحيح وشغال

وقد قمت ببعض التغييرات والروتوشات بإقتباسها من برامج الإخوة الكرام هنا

والمتمثلة فيما يلي:

01- قمت بلإضافة زر خاص بإنشاء مستخدم جديد "يوزر فورم" ولكن تنقصها الخانات التي تتوافق مع قاعدة البيانات إذ يمكنني ملأها مباشرة من الزر الجديد دون الدخول للقاعدة وياريت تجعلها متوافقة مع الخانات الموجودة والمقدر عدده بحوالي 40

02- إمكانية إضافة زر تعديل البيانات مع خاصية البحث بإدخال الرقم الذاتي

03- تعديل اليوزر فورم الخاص بكلمة الدخول او السر لأنها غير مأمنة 100/100 حيث أنه يمكنك الدخول للبرنامج بمجرد الضغط على زر الكلاوز (x)

04- امكانية إضافة زر تعديل كلمة السر وإسم المستخدم إن أمكن هذا

وشكر لإهتمامك وحفظك الله ورعاك وزاد من علمك وإبداعك Copie de تطبيقية تسيير شؤون العمال.rar (258.11K)

)

Copie de تطبيقية تسيير شؤون العمال.rar