احمد حمور-ابوعبدالله

الاخوه الاعزاء الرجاء وضع الكود التالي في زر امر CLOSE التابع لUSERFORM4 Application.EnableCancelKey = xlDisabled Application.Quit

اخي السيد عبدالفتاح هاهو طلبك الاول قد تم ( ظهور الاسماء في شاشة الدخول) وطلبك الثاني قد نفذ ( اخفاء الصفوف والاعمده) وطلبك الثالث قد تحقق ( تفعيل صفحة الداتا ) وطلبي انا منك ان لاتنساني من دعائك Cheque.rar

السيد عبدالفتاح بارك الله فيك على ردك وانشاء الله ساجيبك لاحقا كوني غير متفرغ الان لتصفح ملفك ======================================== اخي الحبيب سعد عابد مشكور جدا على ردك الجميل واتمنى من الله ان يفرج الله على اهلنا في مصر وان ينولهم كل ماهو به خير اللهم امين

Dear almhb thank you so much

اخي الحبيب ابو احمد بارك الله فيك جزاك الله خيرا

الشكر موصول لك اخي محمد عبدالله وبارك الله فيك على كلماتك الطيبه

الاخوه الكرام بعد حفظ الالقاب العيدروس ابو الحسن انس الدروبي الانيس الجزيره بارك الله فيكم وجزاكم الله خيرا ======================================== اخي ابو الحسن الملف باللغه الانجليزيه لانني صممته بما يتناسب مع عملي ويمكنك عمله بالعربي بتغيير المسميات =========================================== اخي الجزيره الملف لن يتأثر بتغيير مسميات الصفحات ولكن يجب الابقاء على اسم صفحة CONTROL كما هي

اخي الحبيب اليحياوي لك مني كل التقدير والاعجاب بشخصك الكريم بارك الله فيك وجزاك الله خيرا على ملاحظاتك

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

اخي ابو الحسن بارك الله فيك اخي يونس لم افهم ماتعنيه واين هو الملف الذي ارفقته

اخي الكريم انت الرائع حقا بارك الله فيك

الاخوه الاحباء لا اريد ان اشرح عن البرنامج لانه مرفق لكم الملف + الشرح ارجوا قراءة الشرح اولا لان الملف محمي ولايمكن الدخول له الا بعد معرفة رمز الدخول وتعمدت ان اضع رموز الدخول في ملف الشرح حتى اضمن انك قد قرأت الشرح وفهمته جيدا ارجوكم ان وجد اي خطأ او اي مقترح ان ترشدوني اليه حتىنعمل سويا على تطويره ان وجد والله ولي التوفيق SYSTEM USER.rar

الاخوه الكرام مجدي يونس اسامه تمنياتي لكم بدوام التوفيق ومبروك لكم هذه الترقيه المستحقه

جرب هذا http://www.officena.net/ib/index.php?showtopic=34213

الله اعلم لكن يبدو انه لايوجد حل

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

اخوتي الكرام لكم مني كل الشكر والعرفان على كلماتكم الطيبه مع تمنباتي لكم بدوام الصحه العافيه اخوكم في الله ( ابو عبدالله)

اخي الكريم هذا الرابط ما اقصده ارجو الاطلاع عليه ومتابعة المشاركه رقم 32 http://www.officena.net/ib/index.php?showtopic=34300&st=20

اخي انيس ممكن ذلك اختر موضوع (كن جريئا وصمم برنامجك بنفسك) من توقيعي وستجد به طلبك مع الشرح الكامل

انت محق ربما ساجد الحل فيما بعد

اخي الكريم انا لااعلم وليس عندي وقت لتتبع الكود الموجود ولكن مرفق لكم فيديو يوضح ان الكود يعمل ويقوم بالطباعه ولا اعلم ماهي المحظورات التي تتضعها لتنفيذ امر الطباعه 179.rar

[CODE] Sub ahmad() If Bac.TInvo.Value = "" And Bac.TQT.Value = "" And Bac.TBcombo.Value > 0 Then ActiveWorkbook.Sheets("Ret").Visible = True Sheets("Ret").Select Range("A1:C10").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$C$10" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Range("a11:a20").ClearContents [B3] = [B3] + 1 Else MsgBox ("íæÌÏ ãÑÈÚ ãæ ãßËÑ áíÓ ÝÇÑÛÇ"), vbCritical, "ÊíÐíÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÑ" TInvo.SetFocus Exit Sub End If Unload Bac ActiveWorkbook.Sheets("Ret").Visible = False ActiveWorkbook.Sheets("Return").Visible = False End Sub احذف الكود القديم وضع هذا والسبب ان كل امر في الكود يجب ان يعرف لما يتبعه من الفورم

اخي السائل الموضوع ان شاء الله بسيط ضع كل الكود الموجود في زر الطياعه داخل موديول وسمي الموديول مثلا SUB AHMAD() ومن ثم ضع في حدث WORKBOOK_OPEN Application.OnKey "{f2}", "AHMAD" وبعد ذلك اغلق الملف وجربه مره اخرى وعند الوصول الى امر زر الطباعه ضع F2 ولديك مثال بسيط فقط عند فتح الملف اضغط على F2 Book1.rar

اخي انيس غير القيمه كما في المرفق من FALSE الى TRUE

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