حسام عبدالمحسن

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

اخى الكريم حمادة عمر تم تركيب الكود بالملف ولكن عند التشغيل يتخطى نافذة اسم المستخدم وكلمة المرور ويفتح اوتوماتيك بدون اسم وكلمة مرور فانا فى انتظار ان يتم اصلاح البطئ عند حضرتك وتجرب الملف بنفسك افضل منى تقبل منة تحياتى

استاذى الكريم حمادة عمر تمت تجربة الكود ولم يعمل فقمت بإرفاق الملف كاملا لحضرتك فبرجاء تجربة الكود علية احب اوضح لحضرتك الباسورد حسام حسام باسورد محرر الاكود hosam2731987 الملف بة كود لتشغيل الملف فى بارتيشن الـــE http://www.gulfup.com/?BYtse9 ملحوظة اخيرة اخى الكريم اذا واجهتك مشكلة فى فتح الملف وهذة المشكلة تم عرضها على المنتدى وتم الحل وهذا رابط المشاركة للعلم وشكرا واسف جدا على الاطالة http://www.officena.net/ib/index.php?showtopic=48281&hl=

للرفع

اخى الكريم ابو حنين هل من الممكن حذف MyPath = "D:\HOSAM" محرك الاقراص D بمعنى انه لايس الضرورى تحديد المكان ولكن يهمنى اكثر ان يكون المجلد مكتوب علية نفس الاسم المراد فقط

تمت تجربة الطريقة وبالفعل كما اشار الاخ الكريم احمد عندما تحفظ الملف بصيخةhtml وتفتح الاكسيل ونختار open يتم فتحة عن طريق الورد وليس الاكسيل

للرفع

السلام عليكم ورحمة الله وبركاته الاخوة الكرام بالمنتدى لدى كود قام بعملة احد عمالقة المنتدى لتحديد مكان تشغيل ملف الاكسيل بحيث لايمن تشغيلة فى مكان اخر اريد المساعدة فى تعديل بسيط بالكود بحيث اريد حذف الــEمن الكود بمعنى انه يمن تشغيل الملف طالما كان بالاسم HOSAM ABDEL MOHSEN ويمكن تشغيل الملف فى اى مكان على الجهاز ارجوا ان اكون قد وصلت الطلب صحيح مرفق لكم الكود Dim MyPath As String MyPath = "E:\HOSAM ABDEL MOHSEN" If ThisWorkbook.Path <> MyPath Then Application.DisplayAlerts = False ThisWorkbook.Close Else Application.EnableCancelKey = xlDisabled Application.Visible = False UserForm1.Show Workbooks.Application.Visible = True Application.ScreenUpdating = False Call ShowAllSheets Application.ScreenUpdating = True sheet2.Select End If

السلام عليكم ورحمة الله السادة الكرام عمالقة المنتدى اريد برنامج لمحل قطع غيار موتوسيكلات هل من يمكن عمل ذلك وجزاكم الله كل خير

up

للرفع

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

اخى العزيز الشهابى تمت تجربة زيادة الجداول والفعل الملف يعمل جيدا واشكرك كثيرا على مساعدتك لى وجزاك الله كل خير واعانك على فعل الخير

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

اخى العزيز الشهابى اريد زيادة عدد الجداول ولكن المعادل الموجودة بالاعلى لاتعمل مع اكثر من 11 جدول او11 مسلسل فقط

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

للرفع

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

السلام عليكم ورحمة الله الاخوة الكرام اريد طريقة لاشتقاق تاريخ الميلاد من الرقم القومى ولكم جزيل الشكر وجزاكم الله كل خير

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

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

اخى الكريم لدى اكثر من كود فى الحدثWorkbook_Open وحاولت كثيرا تركيب الكود ولكن يكون بإتلاف كود اخر وهذة هى الاكواد الموجودة بالحدث لدى فكيف اقوم بتركيب الكود مع الاحتفاظ بهذة بالاكواد Private Sub Workbook_Open() Application.EnableCancelKey = xlDisabled Application.Visible = False ' الامر في السطرين السابقين يوضح طلب ان يجعل التطبيق المفتوح غير مرئي ' ثم بعد ذلك فتح الفورم1 في السطر التاللي UserForm1.Show 'وهذا السطر معناه انه عند فتح ملف الاكسيل اظهر الفورم رقم 1 Workbooks.Application.Visible = True Application.ScreenUpdating = False Call ShowAllSheets Application.ScreenUpdating = True ' و الامر في السطرالسابق يوضح طلب ان يجعل التطبيق المفتوح مرئي وذلك بعد المرور عبر الفورم ' ثم بعد ذلك اختيار الصفحة الرئيسية شيت 2 sheet2.Select 'ئوهذا السطر معناه اجبار الاكسيل علي الفتح علي بعد الفورم وادخال اسم المستخدم وكلمة الرور بالانتقال الي الصفحة الر 'الصفحة الرئيسية وهي هنا شيت 2 End Sub

السلام عليكم ورحمة الله لدى شيت اكسيل اريد تركيب كود يمنع المستخدم من تسمية الملف او نقلة الى مكان اخر شاهدت هذا الموضوع وللاسف لم اتمكن من تركيب الكود على الملف هل من مساعد يساعدنى فى تركيب الكود علما بانى قمت بوضع هذا الموضوع من قبل ولم يتم اى رد علية ارجوا الاهتمام والمساعدة وشكرا وجزاكم الله كل خير وهذا رابط الموضوع http://www.officena.net/ib/index.php?showtopic=48933&hl=

اشكرك استاذى الكريم تم تجربة الكود ويعمل جيدا جزاك الله كل خير

بالفعل هذا هو المطلوب اخى الكريم وجارى تجربة الكود مرة اخرى