استاذ yahiaoui
اشكرك على هذه الطريقة العبقرية
انا عندى ويندوز XP و اوفس XP
غيرت بس فى كود Path=Security
باسم الملف الريجيسترى
وشغال 100%
الف شكر
ولكن لى طلب صغير عندى ملف يفتح اكسل يفتح ملف اكسل اخر
هذا هو الامر
File1 = ActiveWorkbook.Path & "\" & "kkk.xls"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Open File1
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Workbooks("Main.xls").Close
ولكن عند تحويل اى واحد فيهم الى EXE لا يفتح معى
فهل ممكن تعدي هذا الكود لكى يفتح EXE
و جزاك الله خيراً