التنبيه الصوتي عبر إكسل

[وسيم ابو اسامة]

السلام عليكم ورحمة الله 
هل أستطيع في إكسل إنشاء تنبيه صوتي ينبهني قبل حدوث أي استحقاق محدد بتاريخ مثلاً؟
بشرط ان يتم التنبيه حتى ولو كان الملف الذي أريد العمل عليه مغلقاً .

أرجو الإفادة 
جزاكم الله كل خير.

[مهند محسن]

وعليكم السلام 

لا يمكن عمل ذلك

[محمود_الشريف]

الأخ الكريم // وسيم ابو اسامة

بالطبع يمكنك انشاء تنبيه صوتى من خلال الفيجوال بيسك للتطبيقات 

انظر لتلك المشاركة يوجد بها فكرة التنبيه الصوتى 

فكرة التنبيه صوتى

أما بالنسبة لو كان الملف مغلقا فأنت تحتاج إلى أدوات مساعده 

على سبيل المثال اليك ثلاث طرق لذلك :-

1 - برنامج تنفيذى ( مثلا ملف اكسل تم تحويله الى ملف تنفيذى ، يعمل بشكل تلقائي )

2 - أو تقوم بعمل Registry أى كود مخصص لتشغيل الملف أثناء تشغيل جهاز الكمبيوتر الفكرة تكمن فى اضافة ملف الاكسل فى قائمة البرامج الخاصة بتشغيلها اثناء بدء تشغيل جهاز الكمبيوتر إما عن طريق ملف ال Registry ( كود يتم اضافته للملف ) 

3 - أو عن طريق اضافة هذا الملف يدويا بقائمة تشغيل البرامج 

[وسيم ابو اسامة]

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

[محمود_الشريف]

اخى الكريم ضع الكود التالي فى حدث 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 دولار 

وأرى أنك لا تحتاج إليه بوجود طريقة تشغيل الملف مع بدء تشغيل الجهاز