basem said

هذا الملف يحول اى دقة موجوده الى 1024 اتمنى ان يفى بالغرض 1.rar

اضغط مره يقوم بحفظ كل اللى متركب فى USb ولا يقوم باضافة اخرى USb واذا قمت بتوصيل اى شى الى USb يعطيك خطاء فى تعريف التوصيل واذا فتحت البرنامج مرة اخرى يقوم بفتح مدخل USb ويمكن ان تدخل الى توصيلات اخرى 1 - يعنى شغل البرنامج واضغط وركب الفلاش ومشى هتشتغل 2 - بعد كده شغل البرنامج مرة تانيه واضغط وركب الفلاش هتشتغل ارجو افادتى بعد التجربه

اسف على التاخير اتفضل البرنامج اتمنى ان يفيدك اغلاق و فتح usp.rar

استاذ / tahar1983 هذا ليس حل للحفاظ على الملف من النقل لانه له اكثر من طريقه والاسهل برنامج يغلق منافذ USB الموجوده بالجهاز ولا يعرف اى هارد وير اخرمن خلال USB بعد تشغيل البرنامج اذا اردت البرنامج ارفعه لك يوجد حل اخر استخدم سريال الهارد لعدم نقل الملف على جهاز اخر ابحث فى المنتدى عن هذا الموضوع لعله يفيدك باذن الله

نسال الله ان يجعل مثواها الجنه فى هذه الايام المباركه

تم اضافة المرفق على الموقع تسهيلا فى التحميل Book1.rar

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

اكثر من رائع مجهود واضح جدا ممكن اضافه اخرى ممكن ان تضيف له البحث باى جزء من الكلمه مشكور

شاهد الملف يمكن يفيدك الباسورد 123 1.rar

اتفضل اخى Private Sub UserForm_Activate() TextBox1 = Range("a4").Value End Sub 1.rar

اداة جميلة وهذا لمن يواجه مشاكل فى الملف بعد اذن الاستاذ احمد غانم تلوين.rar

اجعل خاصية Enabled =TRUE Locked =TRUE

لا داعى للشكر الشكر لله والاخوة الافاضل الذى علمونا

شاهد المرفق Book1_2.rar

يمكن اغلاقه فقط انظر الصورة المرفقة بالمشاركه رقم 5

مساعده على ما قدرت ياريت يكون هو ده المطلوب حسابات الخط الجديد.rar

الشكر لله ثم هذا الموقع المتميز بالمشرفين الموجودين بارك الله فيك

التاب يمكن تحديد التنقل من خلال وضع رقم مسلسل له او اغلاقه نهائيا ارجو ان اكون افادتك untitled.bmp

وهذا لاغلاق التكست وعدم الكتابة فيها untitled.bmp

Private Sub TextBox1_Change() If Not IsNumeric(TextBox1.Text) Then SendKeys "{BackSpace}" End Sub او Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0 End Sub وهذا للحروف فقط Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then KeyAscii = 0 End Sub Private Sub TextBox1_Change() If Not IsNumeric(TextBox1.Text) Then SendKeys "{BackSpace}" End Sub او Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0 End Sub وهذا للحروف فقط Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Then KeyAscii = 0 End Sub

ممتاز جدا ربنا يبارك فيك ويذيدك معرفه

استاذ / احمد دائما تكون مميز اكثر من رائع

كلمات الشكر لا تكفى ليكم شكرا استاذ / بليش روغ شكرا استاذ / عبدالله الكود افدنى وهذ هو طلبى

استاذ / بليش روغ ارجو تفسير اذا وضعت الادوات داخل Frame فيكون اخر TAPINDES لا يعمل معه الكود ويتم الانتقال الى الخارج دون الكتابة ارجو الحل علما بان بعدم وجود Frame يعمل الكود بشكل جيد الف شكر Book1.rar

الف شكر استاذ /عبدالله على المساعده وشكرى للاستاذ/ بليش روغ واحب اقوله هو ده المطلوب الف شكر على اهتمامكم حقا منتدى رائع