بفضل من الله وجدت الحل المطلوب بعد عناء
الطريقة ربط الحدث بماكرو معين ارفقت لكم مثال لكي تصل لكم الفكرة ...
عند فتح الملف المرفق أنتظر 20 ثانية وسوف يعمل الماكرو يجب تفعيل حماية الماكرو للملف المرفق لكي يعمل
ضع هذا الكود في حدث الملف
In Workbook events:
Private Sub Workbook_Open()
RunEveryTwoMinutes
End Sub
قم بعمل ماكرو وضع فيه هذا الكود القيمة الموجودة في المثال أي التوقيت 2 دقيتقين بامكانك تغيير القيمة للوقت الذي ترغب ان يعمل به الماكرو
In a module:
Sub RunEveryTwoMinutes()
//ضع هنا اي كود تريده بدل هذه الجملة في مثالي وضعت كود تكبير الشاشة Add code here for whatever you want to happen
Application.OnTime Now + TimeValue("00:02:00"), "RunEveryTwoMinutes"
End Sub
في ملفي المرفق وضعت كود تكبير الشاششة وغيرت قيمة التوقيت إلى 20 ثانية ليعمل الماكرو بتدون تدخل منك
ارجوا ان اكون وفقت في الشرح والحمدلله على كل حال
Auto macro_01.xlsm