hggmvfn

ياجماعة لو سمحتم انا عندى سؤال : عندى شيت اكسيل امتدادة على سطح الكتب كالتالى c:\users\misrcomp\desktop\ahmed.xls المطلوب كود : عند فتح الاكسيل .... فى حالة ان الامتداد غير صحيح .... يغلق الاكسيل وفى حالة ان الامتداد صحيح .... يفتح الاكسيل هل الكود التالى صحيح :( الكود نقلتة من حضراتكم وعدلت علية على حسب معرفتى القليلة ) Private Sub Workbook_Open() myPath = "c:\users\misrcomp\desktop\ahmed.xls"z If ThisWorkbook.Path <> myPath Then Application.DisplayAlerts = False ThisWorkbook.Close Else ThisWorkbook.Application.Visible = True End If End Sub