محمد طاهر عرفه

موضوع مرتبط تشغيل ملف خارجي من الاكسيس - مثال جديد بدون الحاجة للامر shell http://www.officena.net/ib/index.php?showtopic=9391

يوجد فى الارشيف موضوع تشغيل تطبيق خارجي ( فتح ملف من برنامج مختلف ) http://www.officena.net/ib/index.php?showtopic=1053 و الذي فيه اعتماد علي الامر shell و عيبه انه يحتاج الي معرفة مسار التطبيق بالنسبة لكثير من التطبيقات اما المثال الجديد فلا يحتاج لذلك فقط اانقر نقرا مزدوجا علي مربع المسار لاختيار الملف ثم اضغط علي الزر لتشغيل الملف ايا كان مسار التطبيق علي جهازك و الفكرة بسيطة و تعتمد علي تغيير خاصية ال HyperlinkAddress للزر في حدث النقر عليه runapplication.zip

موضوع مرتبط اختبار وجود مرجع محدد ثم اضافته اذا لم يكن موجود http://www.officena.net/ib/index.php?showtopic=9390

هذا الكود للتأكد من وجود مرجع Microsoft Word 11 object library و اذا لم يكن موجود يتم اضافته بالكود Dim Ref As Reference, mypath As String, myreffound As Boolean myreffound = False For Each Ref In References If Ref.Name = "WORD" Then myreffound = True End If Next If myreffound = False Then mypath = "C:\Program Files\Microsoft Office\OFFICE11\MSWORD.OLB" Set Ref = References.AddFromFile(mypath) End If مع ملاحظة انه طبعا يمكن الاضافة من ملف موجود فى اي مسار موضوع مرتبط كيفية نقل المراجع بالكود و اضافتها ثانية, http://www.officena.net/ib/index.php?showtopic=1885

لكي لا تظهر الرسالة يمنكك اختيار اقل مستوي Low و يمكن التحكم برمجيا بمستوي أمان الماكرو التحكم فى مستوي أمان الماكرو بالكود http://www.officena.net/ib/index.php?showtopic=26&hl=الماكرو

أولا تأكد من تفعيل الماكرو Tools Macro security low or medium ثم ضع الكود التالي فى كود الوثيقة Document Private Sub Document_Open() Dim mydate As Date mydate = #8/15/2005# If Date >= mydate Then MsgBox " This file can not be open starting from" & Str(mydate) & " Sorrry !)" ActiveDocument.Close End If End Sub كما في الملف المرفق و لفتح الملف و تجاوز الكود اضغط شيفت اثناء الفتح closefile.zip

اللهم صلي علي سيدنا محمد و علي آله و صحبه و سلم عدد ما أحاط به علمك و خط به قلمك و أحصاه كتابك و ارض اللهم عن ساداتنا أبي بكر و عمر و عثمان و علي و عن الصحابة أجمعين، و عن التابعين و تابعيهم باحسان الي يوم الدين

أهلا وسهلا بك و نرجو أن تفيد و تستفيد

جزاك الله خيرا

:( (y)

أعتقد أن ما تريده لا يمكن أن يأتي من خلال التنسيق مباشرة و الله أعلم و انما عليك انشاء ماكرو و تشغيله اما التنسيق الالي فلا أعتقد بان ذلك متاح فيه ( 5 خيارات )

تم اضافة الوضع الثاني الي الملف

عن طريق ال Validation بان تضع شرط علي الخلايا B1 , C1 بأن قيمة d1 لا تتعدي A1 السطر الاول : اذا كانت المعادلة فى الخلية D1 و مطلوب التحكم فى B1,C1 السطر الثالث اذا كان D3 ليس به معادلة و مطلوب التحكم فى القيمة المدخلة فيه ValidationSum2.rar

يمكنك الاستفادة من كود الاخ سيد هنا http://www.officena.net/ib/index.php?showtopic=3331

http://www.officena.net/ib/index.php?showt...indpost&p=37836

السلام عليكم الكود غير مرتبط بالاصدار و المفترض أنه يعمل مع اي اصدار لانه تطبيق لامر send keys اعتقد ان المشكلة قد تكون ليس فى الكود نفسه و لكن فى مكان وضعه فالكود يجب ان يوضع فى مكان الاكواد الخاص بالملف ككل و ليس فى ورقة عمل افتح الملف اضغط alt+f11 انقر نقرا مزدوجا علي كلمة this workbook ثم ضع الكود و تأكد من أن الاكواد مفعلة فى الملف و ذلك من Tools macros security و تأكد أنها medium or low

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

الملف علي اوفيس 2003 altshift.rar

لمن لم يستطيعوا التحميل ، تم اضافة وصلة فى أول مشاركة للملف الذي رفعه الأخ خضر فى مشاركة تالية مع الشكر للأخ أيمن

هناك عد حلول ان تختار نوع التنسيق فى الخلية نصي Format cell text او أن تضع علامة ' فى أول الكتابة أو ان تختاره رقمي بتنسيق مخصص 00000000 او بحسب عدد الاصفار لديك

اعتقد صعب وجوده علي النت للتحميل لانه عبارة عن اسطوانة منفصلة و حجمها حوالي 80 ميغا

جزاك الله خيرا ، و جعله فى ميزان حسناتك

اذا كانت هذه المشكلة فى ملف معين فقم باضافة عملية تغيير اللغة الي ماكرو التشغيل الافتتاحي : Private Sub Workbook_Open() SendKeys "+%" End Sub و اذا اردته لكل الملفات فاضفه الي PERSONAL MACRO WORKSHEET و هنا طبعا لم يتم جعلها افتراضية و لكن تم تغييرها و أعتقد أن لجعلها افتراضية جرب Control pannel reginal setting languages details default input language و هذا فى ويندوز اكس بي

بالنسبة للماكرو الشخصي او personal macro worksheet ابدأ بتسجيل اي ماكرو ستجد الخيارات امامك لمكان تسجيله و منها هذا الخيار و يمكنك عمل تحرير له بنفس الطريقة و اضافة ماكروهات أخري من خلال عمل تحرير لهذا الماكرو المسجل فى الماكرو الشخصي و الموجود فى ملف يسمي PERSONAL.XLS و يمكنك البحث عن مساره بحسب نسخة ااوفيس لديك او اسهل التحرير من قائمة Tools Macros لاحد الماكروهات المسجلة به مع ملاحظة اظهاره اولا حيث أنه مخفي من قائمة windows unhide و لاتنس اخفاؤه ثانية بعد التحرير و بالنسبة للنقل بين الملفات يجب أن يكون الملفات مفتوحان و سيظهران امامك فى محرر البيزيك و يمكن ايضا سحبه مباشرة بالماوس او تصديره من الاول ثم استيراده للثاني كما فى الرد السابق

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