وسيم ابو اسامة قام بنشر يونيو 25, 2019 مشاركة قام بنشر يونيو 25, 2019 السلام عليكم ورحمة الله هل أستطيع في إكسل إنشاء تنبيه صوتي ينبهني قبل حدوث أي استحقاق محدد بتاريخ مثلاً؟ بشرط ان يتم التنبيه حتى ولو كان الملف الذي أريد العمل عليه مغلقاً . أرجو الإفادة جزاكم الله كل خير. رابط هذا التعليق شارك More sharing options...
مهند محسن قام بنشر يونيو 25, 2019 مشاركة قام بنشر يونيو 25, 2019 وعليكم السلام لا يمكن عمل ذلك رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر يونيو 26, 2019 مشاركة قام بنشر يونيو 26, 2019 الأخ الكريم // وسيم ابو اسامة بالطبع يمكنك انشاء تنبيه صوتى من خلال الفيجوال بيسك للتطبيقات انظر لتلك المشاركة يوجد بها فكرة التنبيه الصوتى فكرة التنبيه صوتى أما بالنسبة لو كان الملف مغلقا فأنت تحتاج إلى أدوات مساعده على سبيل المثال اليك ثلاث طرق لذلك :- 1 - برنامج تنفيذى ( مثلا ملف اكسل تم تحويله الى ملف تنفيذى ، يعمل بشكل تلقائي ) 2 - أو تقوم بعمل Registry أى كود مخصص لتشغيل الملف أثناء تشغيل جهاز الكمبيوتر الفكرة تكمن فى اضافة ملف الاكسل فى قائمة البرامج الخاصة بتشغيلها اثناء بدء تشغيل جهاز الكمبيوتر إما عن طريق ملف ال Registry ( كود يتم اضافته للملف ) 3 - أو عن طريق اضافة هذا الملف يدويا بقائمة تشغيل البرامج رابط هذا التعليق شارك More sharing options...
وسيم ابو اسامة قام بنشر يونيو 26, 2019 الكاتب مشاركة قام بنشر يونيو 26, 2019 حياك الله أستاذ محمود وشكراً لك على الرد المميز. هل يوجد مقطع تعليمي لتوضيح خطوات العمل على البرامج المساعدة؟ . في حال وجوده أرجو منك إرسال الرابط مشكوراً رابط هذا التعليق شارك More sharing options...
محمود_الشريف قام بنشر يونيو 26, 2019 مشاركة قام بنشر يونيو 26, 2019 اخى الكريم ضع الكود التالي فى حدث ThisWorkbook Module وهذا الكود ليس لى هو للأستاذ جعفر _(حفظا للحقوق) سيقوم الكود بتشغيل الملف مع بدء تشغيل الجهاز كل ما عليك بعد وضع الكود قم بالحفظ ثم أغلق الملف وقم بإعاده فتحه من جديد تظهر لك الرساله اضغط على زر YES ثم أغلق الملف وأعد تشغيل الجهاز ستجد أن الملف تم وضعه بالقائمة وسيتم تشغيله وهذه الطريقة تغنيك عن الطريقة اليدوية Private Sub Workbook_Open() If MsgBox("Do you want to add this workbook to the Windows startUp ?", vbYesNo + vbQuestion) = vbYes Then AddToWinStartUp Me.FullName, True End If End Sub Private Sub AddToWinStartUp(ByVal File As String, ByVal Add As Boolean) CreateObject("wscript.shell").RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\", IIf(Add, File, vbNullString), "REG_SZ" End Sub أما فيما يختص بالملفات التنفيذية فيجب شراء برنامج لحماية محرر الأكواد ووضع أكواد معينه بخلاف أكواد التنبيه ، وأفضل برنامج موجود بالسوق (لن أذكر اسمه حتى لايكون دعاية ) ثمنه 450 دولار وأرى أنك لا تحتاج إليه بوجود طريقة تشغيل الملف مع بدء تشغيل الجهاز رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان