حسام عبدالمحسن قام بنشر مايو 3, 2014 قام بنشر مايو 3, 2014 السلام عليكم ورحمة الله وبركاته الاخوة الكرام بالمنتدى لدى كود قام بعملة احد عمالقة المنتدى لتحديد مكان تشغيل ملف الاكسيل بحيث لايمن تشغيلة فى مكان اخراريد المساعدة فى تعديل بسيط بالكود بحيث اريد حذف الــ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
حمادة عمر قام بنشر مايو 4, 2014 قام بنشر مايو 4, 2014 السلام عليكم الاخ الكريم / ◊۩ أبو ندى ۩◊ بارك الله فيك جرب اخي الكريم التعديل البسيط التالي في الكود خاصتك لتنفيذ طلبك ولكن يوجد جزء بالكود غير موجود ... وهو الكود الخاص باستدعاء الكود الخاص بظهور كافة اوراق الملف عندما يكون الاسم صحيح وهو هذا السطر في الكود خاصتك Call ShowAllSheets فبرجاء منك التجربة واشعارنا بالنتيجة ... او قم بارفاق الكود كاملا داخل مرفق Private Sub Workbook_Open() Dim MyName As String MyName = "HOSAM ABDEL MOHSEN" If ThisWorkbook.Name <> MyName 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 End Sub تقبل خالص تحياتي 1
حسام عبدالمحسن قام بنشر مايو 4, 2014 الكاتب قام بنشر مايو 4, 2014 استاذى الكريم حمادة عمر تمت تجربة الكود ولم يعمل فقمت بإرفاق الملف كاملا لحضرتك فبرجاء تجربة الكود علية احب اوضح لحضرتك الباسورد حسام حسام باسورد محرر الاكود hosam2731987 الملف بة كود لتشغيل الملف فى بارتيشن الـــE http://www.gulfup.com/?BYtse9 ملحوظة اخيرة اخى الكريم اذا واجهتك مشكلة فى فتح الملف وهذة المشكلة تم عرضها على المنتدى وتم الحل وهذا رابط المشاركة للعلم وشكرا واسف جدا على الاطالة http://www.officena.net/ib/index.php?showtopic=48281&hl=
حمادة عمر قام بنشر مايو 4, 2014 قام بنشر مايو 4, 2014 السلام عليكم الاخ الكريم / ◊۩ أبو ندى ۩◊ بارك الله فيك عذرا لا يمكنني تحميل الملف الخاص بك ... نظرا لضعف النت لدي في هذا الوقت ولكن اخي الكريم ما فهمته من طلبك انك تريد ( تشغيل الملف في اي مكان بالجهاز بشرط ان يكون اسم الملف مثلا HOSAM ABDEL MOHSEN ) فاليك اخي الملف في المرفقات به كود بسيط لتنفيذ ذلك ================= قم بفتح الملف بعد التحميل كما هو بالاسم المطلوب والسابق ذكره .... سيفتح معك الملف بشكل عادي في اي مكان علي الجهاز قم بغلق البرنامج ثم قم بتغيير اسم الملف الي اي اسم آخر .......... لن يفتح معك الملف وسيغلق علي الفور ================= شاهد المرفق ... ان شاء الله يفي بطلبك تقبل خالص تحياتي المرفق 2003 HOSAM ABDEL MOHSEN.rar 1
حسام عبدالمحسن قام بنشر مايو 4, 2014 الكاتب قام بنشر مايو 4, 2014 اخى الكريم حمادة عمر تم تركيب الكود بالملف ولكن عند التشغيل يتخطى نافذة اسم المستخدم وكلمة المرور ويفتح اوتوماتيك بدون اسم وكلمة مرور فانا فى انتظار ان يتم اصلاح البطئ عند حضرتك وتجرب الملف بنفسك افضل منى تقبل منة تحياتى
حمادة عمر قام بنشر مايو 5, 2014 قام بنشر مايو 5, 2014 السلام عليكم الاخ الكريم / ◊۩ أبو ندى ۩◊ بارك الله فيك لظهور الفورم في بداية تشغيل الملف يجب عليك تعديل الكود في الملف المرفق - السابق - باضافة جزء جديد للكود وهو Else UserForm1.Show والـ UserForm1 هو الفورم المطلوب ظهورة بداية تشغيل الملف ان كان الاسم صحيحاً كما تريد وكما هو مسجل بالكود ليصبح الكود بالكامل كالتالي Private Sub Workbook_Open() Dim MyFlName As String MyFlName = "HOSAM ABDEL MOHSEN.xls" If ThisWorkbook.Name <> MyFlName Then Application.DisplayAlerts = False ThisWorkbook.Close Else UserForm1.Show End If End Sub واليك نموذج لذلك بالمرفقات وان شاء الله سأحاول جاهدا علي تحميل ملفك الاساسي ايضا للتطبيق عليه ( كما تريد ) ان لم يمكنك تطبيقها بنفسك تقبل خالص تحياتي HOSAM ABDEL MOHSEN.rar
حسام عبدالمحسن قام بنشر مايو 5, 2014 الكاتب قام بنشر مايو 5, 2014 استاذى العزيز حمادة عمر اشكرك كثيرا على الاهتمام بالموضوع وعلى جهدك الكبير فى مساعدتى ولكن لكثرة الاكواد بالملف لم اتمكن من تركيب الكود بالطريقة الصحيحة ولم احلول اكثر لعدم فقدان اى من الاكواد الموجودة بالملف فانا فى انتظارك حتى تتمكن من تحميل الملف والعمل علية تقبل تحياتى،،،،
حمادة عمر قام بنشر مايو 8, 2014 قام بنشر مايو 8, 2014 السلام عليكم الاخ الكريم / ◊۩ أبو ندى ۩◊ بارك الله فيك بالفعل اخي الكريم .. الملف خاصتك والمستخدم فيه اكواد منع فتح الملف في حالة عدم تمكين الماكرو يوجد بهذه الاكواد بعض الحواجز التي تتعارض مع بعض الاكواد الاخري قم بتعديل الاكواد في ملفك كما في الملف المرفق اسم المستخدم : حسام كلمة المرور : حسام تقبل خالص تحياتي HOSAM ABDEL MOHSEN.rar
حسام عبدالمحسن قام بنشر مايو 11, 2014 الكاتب قام بنشر مايو 11, 2014 الاستاذ العزيز حمادة تعجز الكلمات عن الشكر وهذا ليس بجديد عليك فدائما انت متالق فى مساعدة الاخرين تمت تجربة الملف ويعمل جيدا *ولكن اذا اردت ان اضع كود لمنع نسخ اى شيت معين او اى خلية من الشيت فهل هذا ممكن ام اضع هذا الطلب فى مشاركة جديدة وشكرا اخى العزيز وجعل هذة المساعدات فى ميزان حسناتك
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.