hggmvfn

^{ياجماعة لو سمحتم انا عندى سؤال :}

^{عندى شيت اكسيل امتدادة على سطح الكتب كالتالى      c:\users\misrcomp\desktop\ahmed.xls}

^{المطلوب كود : عند فتح الاكسيل .... فى حالة ان الامتداد غير صحيح ....  يغلق الاكسيل}

^{وفى حالة ان الامتداد صحيح .... يفتح الاكسيل}

^{هل الكود التالى صحيح :( الكود نقلتة من حضراتكم وعدلت علية على حسب معرفتى القليلة )}

^{Private Sub Workbook_Open()}

^{myPath = "c:\users\misrcomp\desktop\ahmed.xls"z}

  <sup>If ThisWorkbook.Path <> myPath Then
      Application.DisplayAlerts = False
    ThisWorkbook.Close
    Else
    ThisWorkbook.Application.Visible = True
  End If
   

End Sub</sup>