طلب مساعدة في كتابة كود مكرو

[ابو ياسر2]

اخواني السلام عليكم ورحمة الله وبركاتة

ممكن مساعدتي في كتابة كود مكرو   لا يعمل الاكسل حتي يكون منصب برنامج معين علي الجهاز الكمبيوتر  مثلا  برنامج سكاي بي 

اذا لم يوجد هذا البرنامج علي جهاز الكمبيوتر تظهر رسالة طلب تنصيب برنامج سكاي بي حتي يعمل الاكسل

[الصـقر]

اخى الكريم 

فى عالم البرمجه اعتقد انه ليس هناك شئ اسمه المستحيل باذن الله

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

تقبل اعتذارى واحترامى

[ابو ياسر2]

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

[الـعيدروس]

السلام عليكم

Function Nm_Prgram(Nm_Pth As String) As Boolean
    Dim In_c As Integer
    On Error Resume Next
    In_c = GetAttr(Nm_Pth)
    Select Case Err.Number
    Case Is = 0
        Nm_Prgram = True
    Case Else
        Nm_Prgram = False
    End Select
    On Error GoTo 0
End Function
Sub Auto_Open()
    Dim Pth As String
    '===============================
    ' عادة مسار البرامج
    Pth = "C:\Program Files\skype"
    If Nm_Prgram(Pth) Then Else MsgBox " برنامج سكاي غير موجود على جهازك": _
    ThisWorkbook.Saved = 1: Application.Quit ' امر اغلاق الملف
End Sub

[ابو ياسر2]

الف الف شكر علي الرد و المساعدة  الكود شغال

[ابو ياسر2]

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

C:\Program Files 

او  المسار

 

Program Files (x86)

تم تعديل يناير 2, 2015 بواسطه etheer

[ياسر خليل أبو البراء]

جرب الكود التالي

Sub Auto_Open()
    Select Case Len(Dir("C:\Program Files\Skype", vbDirectory)) <> 0 Or Len(Dir("C:\Program Files (x86)\Skype", vbDirectory)) <> 0
      Case True
        MsgBox "Hello"
      Case Else
        MsgBox "The Software Is Not Installed"
        ThisWorkbook.Saved = 1
        Application.Quit
    End Select
End Sub