طلب تعديل شاشة دخول برقم سرى

[ناصرالمصرى]

أعضاء ومشرفى منتديات اوفسينا الاعزاء

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

فى البداية أود أن أشكر كلا من الاخوة الاجلاء 

القدير ابو خليل

والقدير احمد زمان

والقدير ياسر خليل

والقدير ياسر العربى

والقدير العيدروس ابو نصار

عما قدموه من مساعدات فى اتمام هذا العمل دون كلل أو ملل

الذى لايكتمل الا من خلالهم ومن خلال

جميع السادة إخوانى بهذا الصرح التعليمى المبارك

وسأبدأ  مع حضراتكم من حيث ماأنتهيت بالرابط

بالمرفق التالى أضفت شاشة دخول برقم سرى مع شاشة ترحيبية

ولكن مع إضافة هذة الشاشة حدث خلل باستدعاء الماكرو Call_All

من خلال الضغط على مفتاحى Ctrl + Q 

حتى يتم البدء فى العمل بالبرنامج لذا أرجو تصويب تلك الجزئية

وهناك من الامورالبسيطة التى ستأتى تباعا مع ردود حضراتكم

اسم المستخدم " اوفسينا " الرقم السرى " 3333 "

شاكر فضل الجميع **** تقبلوا وافر تقديرى واحترامى 

ترحيل البيانات لأعمدة محددة بدون صفوف فارغة لورقة عمل جديدة +666.rar

تم تعديل نوفمبر 24, 2015 بواسطه ناصر المصرى

[ياسر العربى]

اخي الغالي ناصر انت حبيبي 

بس ياريت تبص كدا في المواضيعهتلاقي شاشات دخول كتير نقي منها لو مش عجبك نعملكب

[ناصرالمصرى]

أخى ياسر

أحبك الله الذى أحببتنى فيه

نعم هناك العديد والعديد من الموضوعات المتعلقه

بشاشات الدخول وكلمات المرور وقد وقع إختيارى

على تلك الشاشة التى يمكن تغييرها بعد ذلك

 ولكن الاهم منها الان هو تظبيط بعض الامور

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

إضافة فوروم أخر لادخال البيانات والحذف والاضافة والتعديل والاستعلام

ومن ثم سيتم بإذن الله رفع البرنامج بصورنه النهائية

بكافة أكواده ومعادلاته والتى تعد من المعادلات المعقدة

لتتم الفائدة لجميع الاخوة بالمنتدى

وليكن اولى هذه التظبيطات تصويب خلل عدم إستدعاء الماكرو كما أشرت عاليه

شاكر فضلك **** تقبل وافر تقديرى واحترامى

 

تم تعديل نوفمبر 24, 2015 بواسطه ناصر المصرى

[ياسر العربى]

مش عارف فين المشكلة الملف شغال زي الفل

وبيرحل وكل حاجه

انا شغال اوفيس 2010

 

[ناصرالمصرى]

اعتقد أن الامر متعلق بالاتى

اولا بالكود المدون بالموديول رقم 1

ثانيا بالجزء الاول من الكود المدون بالموديول رقم 2

Sub Call_All()
    Dim myConfirm
    myConfirm = MsgBox("هل تريد نسخ التنسيقات", vbYesNo)
    If myConfirm = vbYes Then MACRO1

والله أعلم مع العلم بأننى أعمل على اوفيس 2007

تم تعديل نوفمبر 24, 2015 بواسطه ناصر المصرى

[ياسر خليل أبو البراء]

أخي الكريم ناصر

هل يوجد خلايا مدمجة بالملف .. قد تتسبب الخلايا المدمجة في حدوث أخطاء ...

يرجى تنفيذ الكود وعند حدوث خطأ ستظهر نافذة بها كلمة Debug انقر عليها سينتقل بك الى سطر باللون الأصفر ..هذا هو مكمن الخطأ ..يرجى نسخه للإطلاع عليه

[ناصرالمصرى]

أخى ابو البراء

السلام عليكم

انتظرتك كثيرا وانتظرت مشاركاتك القيمة التى لاغنى عنها

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

أخى ياسر ليس هناك خلايا مدمجة ولا نافذة بها كلمة Debug

مع حذف تلك الشاشة تعود الامور لنصابها الطبيعى فهل هناك مشكلة بتلك الشاشة *** لاأدرى

وافر تقديرى واحترامى

تم تعديل نوفمبر 24, 2015 بواسطه ناصر المصرى

[ياسر خليل أبو البراء]

أي شاشة تقصد ؟؟ أي من الفورم تقوم بحذفه فيعمل معك الكود ؟؟

واعذرني لأنني لم أتابع من البداية ولا أدري ما هو الكود المرتبط بـ Ctrl + Q ..ألقي نظرة سريعة على عمل الكود حتى يتسنى الوصول لحل للمشكلة بشكل سريع

 

تأكد أن اتجاه الكتابة باللغة الإنجليزية ليعمل معك الكود بالاختصار Ctrl + q  حيث أنه مرتبط بالكود Call_All ولكن لن يعمل إلا إذا كان اتجاه الكتابة باللغة الإنجليزية

[عبد العزيز البسكري]

39 دقائق مضت, ياسر العربى said:

مش عارف فين المشكلة الملف شغال زي الفل

وبيرحل وكل حاجه

انا شغال اوفيس 2010

 

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

نفس الملاحظة

بارك الله فيك .. جزاك الله خيرًا أستاذي الغالي " ياسر العربي " على المتابعة الممتازة

أعمل مثلك على أوفيس 2010 .. و الملف شغّال عندي تمام التّمام

فائق إحتراماتي

 

 

[ناصرالمصرى]

اخى الفاضل / ياسر خليل

الاثنان معا

والكود المرتبط بــ Ctrl + Q هو Call All  بالموديول رقم 2

 

17 دقائق مضت, عبد العزيز البسكري said:

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

نفس الملاحظة

بارك الله فيك .. جزاك الله خيرًا أستاذي الغالي " ياسر العربي " على المتابعة الممتازة

أعمل مثلك على أوفيس 2010 .. و الملف شغّال عندي تمام التّمام

فائق إحتراماتي

 

 

استاذى الفاضل / عبد العزيز البسكرى

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

شاكر جدا جدا مروركم العطربموضوعى هذا

هل تقصد حضرتك أن الملف يعمل بشكل جيد مع وجود تلك الشاشة

بمعنى انه بعد الدخول من خلال اسم المستخدم وكلمة السر

وبالضغط على مفتاحى Ctrl + Q تعمل الاوامر بدون مشاكل

ارجو الافادة ***** شاكر سعة صدرالجميع 

وافر تقديرى واحترامى

تم تعديل نوفمبر 24, 2015 بواسطه ناصر المصرى

[عبد العزيز البسكري]

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

أخي الغالي " ناصر المصري "

لم ألمس أي شيء بالملف .. فقط أضفت زر أمر وربطه بالماكرو " Call_All " كمحاولة لمشاركتكم فهم الخلل على المباشر.. قمت بالدخول باسم المستخدم و كلمة المرور .. الشاشة الافتتاحية .. و لا يوجد و لم ألاحظ أي ربع خلل بالملف ..و هاهي بعض الصور من ملفك لأطمئنك .. الذي يعمل زي الفل مثلما ذكر أستاذنا العزيز " ياسر العربي "

 

[ناصرالمصرى]

اخوانى الافاضل

سيتم معرفة السبب

وافر تقديرى واحترامى

تم تعديل نوفمبر 25, 2015 بواسطه ناصر المصرى

[ياسر خليل أبو البراء]

هل جربت ان يكون اتجاه الكتابة باللغة الإنجليزية قبل الضغط على Ctrl + q ؟؟؟

[ناصرالمصرى]

على مايبدو ان الاتجاه على اللغة العربية

تم تعديل نوفمبر 24, 2015 بواسطه ناصر المصرى

[ياسر خليل أبو البراء]

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

من المفترض أن تنقل لنا الصورة بشكل صحيح ليتسنى للأخوة مساعدتك

ذكرت أنه لا توجد رسائل خطأ .. إذاً لا مشكلة في الكود

أخبرنا ما الذي يحدث معك عندما تضغط على ctrl + q لتنفيذ الكود ؟؟ وتأكد أن اتجاه لوحة المفاتيح للكتابة باللغة الإنجليزية عند تنفيذ الاختصار

تقبل تحياتي

[ناصرالمصرى]

أخى الغالى / ياسر ابو البراء

السلام عليكم

تأكدت من اتجاه لوحة المفاتيح وتم التنفيذ

ودقت ساعة العمل على حد قولك

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

والموضوع مفتوح لجميع اخوانى الافاضل

من المفترض ان يكون الرقم السرى غير مرئى

فهل يمكن إضافة امر يجعل الرقم السرى على هيئة نجوم

شاكر سعة صدر حضراتكم **** تقبلوا وافر تقديرى واحترامى

[ياسر خليل أبو البراء]

منذ ساعه, ياسر خليل أبو البراء said:

تأكد أن اتجاه الكتابة باللغة الإنجليزية ليعمل معك الكود بالاختصار Ctrl + q  حيث أنه مرتبط بالكود Call_All ولكن لن يعمل إلا إذا كان اتجاه الكتابة باللغة الإنجليزية

30 دقائق مضت, ياسر خليل أبو البراء said:

هل جربت ان يكون اتجاه الكتابة باللغة الإنجليزية قبل الضغط على Ctrl + q ؟؟؟

20 دقائق مضت, ياسر خليل أبو البراء said:

أخبرنا ما الذي يحدث معك عندما تضغط على ctrl + q لتنفيذ الكود ؟؟ وتأكد أن اتجاه لوحة المفاتيح للكتابة باللغة الإنجليزية عند تنفيذ الاختصار

لقد كررت عليك الفكرة في ثلاثة مشاركات مختلفة ..

الحمد لله أن انتهيت من المشكلة الأولى التي لم تكن مشكلة في الأساس !!!!!

غير الخاصية المسماة PasswordChar  الخاصة بـ TextBox2  ضع بها القيمة *

لتظهر لك كلمة السر على شكل نجوم ..............

 

 

 

[عبد العزيز البسكري]

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

ألف شكر أستاذنا القدير " ياسر خليل أبو البراء "

بارك الله فيك و جزاك الله خيرًا لسعة صدرك

بعد إذنك أستاذنا الفاضل ..للإضافة و التّنويع

يمكن وضع أخي الكريم " ناصر المصري " هذا الكود بحدث اليوزرفورم

فائق إحتراماتي

 

 

 

 

 

[ناصرالمصرى]

اخى الغالى الاستاذ / عبد العزيز البسكرى

السلام عليكم

تم والحمد لله الانتهاء من هذه الجزئية هى الاخرى

اما الاخرى وهى الاهم أرجو ملاحظة الاعمدة

مع عملية استدعاء وترحيل ونقل البيانات مرورا بالورقة " salary"

تشعر بأن الاعمدة غير منسقة كما هو واضح من خلال الصور الذى عرضتها

 الامر الذى يستدعى لعمل فورمات للأعمدة يدويا

فكيف السبيل لاضافة أوامر أخرى لتحديد عرض الاعمدة من داخل الاكواد

علما بأنها ثابته مع اختلاف بدايتها بكل ورقة عمل

ارجو الافادة وبارك الله فيكم جميعا **** شاكر حضراتكم

تم تعديل نوفمبر 25, 2015 بواسطه ناصر المصرى

[ناصرالمصرى]

39 دقائق مضت, ياسر خليل أبو البراء said:

لقد كررت عليك الفكرة في ثلاثة مشاركات مختلفة ..

 

ياعمى خلاص الراجل عرف غلطته كفايه كده " هههههههه "

لا حول ولا قوة إلا بالله

الراجل دماغة الله يكون فى عونه

[ياسر العربى]

معلش يابو البراء ياغالي 

ناصر دا ياما شخط فيه عشان يعقل بس دا ميمنعشي انه ابن حلال مصفي

ربنا يوفقه في موضوعه اللي له بداية ونهايته غير معلومة 

ايه ياعم ناصر متركز يامعلم قبل ما تمسك الماوس 

برطمان قهوة وكوز شاي

ودوس وربنا يقدرنا علي فعل الخير

[ياسر خليل أبو البراء]

أخي الحبيب ياسر العربي

نستحمله عشان خاطرك إنت بس ..

أخي الكريم ناصر المصري

إليك السطر التالي كنموذج لتغيير عرض الأعمدة

المثال على العمود الأول

Columns("A:A").ColumnWidth = 11

أرجو أن يكون المطلوب

يا ريت ترجع للتوجيهات في الموضوعات المثبتة في المنتدى لمعرفة مزيد من التفاصيل حول كيفية طرح موضوع بشكل مناسب (ولا تطارد أكثر من عصفور فتطير العصافير جميعها)

 

[ناصرالمصرى]

1 ساعه مضت, ياسر العربى said:

معلش يابو البراء ياغالي 

ناصر دا ياما شخط فيه عشان يعقل بس دا ميمنعشي انه ابن حلال مصفي

ربنا يوفقه في موضوعه اللي له بداية ونهايته غير معلومة 

ايه ياعم ناصر متركز يامعلم قبل ما تمسك الماوس 

برطمان قهوة وكوز شاي

ودوس وربنا يقدرنا علي فعل الخير

ياصباح الفل عليكم

ياحبيبى الله يكرمكم ويكرم اصلكم الطيب

هسمع كلامك ياعم ياسر وخليه شفشق شاى

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

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

وافر تقديرى واحترامى لكم جميعا

تم تعديل نوفمبر 25, 2015 بواسطه ناصر المصرى

[ناصرالمصرى]

احلى صباح عليك ياأبو البراء

معلشى حبيب قلبى كمل استحمالك فانت أهل لذلك الاستحمال

كده انا تهت منلك برجاء فضلا تنفيذ ذلك بمرفق

وافر تقديرى واحترامى

[ياسر العربى]

ارفق الملف تاني كدا ياعم ناصر انا منزله في البيت تمام جيت في الشغل انزله 

بيقولي صلاحيات ومش عارف ايه 

هو ان اعمل ليكوا شرح صلاحيات تطبقوها عليا ههههه