تعطيل مفتاح ESC عند بداية تشغيل الملف

[hanymoaty]

السلام عليكم و رحمة و الله

 عند بداية تشغيل الملف اقوم بالضغط المتعدد على مفتاح

ESC 

فيقوم بتعطيل الماكرو و من ثم فتح الملف مع العلم انه في حالة إستكمال تشغيل الملف بالشكل الطبيعي سيتم التحقق من اكواد الماكرو و الحماية للملف فلن يتم فتحه

ارجوكم الحل اريد حل لتعطيل مفتاح

ESC

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

 

شكرا 

تم تعديل أغسطس 8, 2015 بواسطه hanymoaty

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

جرب تضع الكود التالي في موديول

Sub LongLoop()
    Dim Counter As Long
    Application.EnableCancelKey = xlDisabled
     
    For Counter = 1 To 1000000000
         'Nothing
    Next Counter
End Sub

ثم ضع السطر التالي في حدث المصنف

Private Sub Workbook_Open()
    LongLoop
End Sub

 

[hanymoaty]

جرب تضع الكود التالي في موديول

Sub LongLoop()
    Dim Counter As Long
    Application.EnableCancelKey = xlDisabled
     
    For Counter = 1 To 1000000000
         'Nothing
    Next Counter
End Sub

ثم ضع السطر التالي في حدث المصنف

Private Sub Workbook_Open()
    LongLoop
End Sub

 

متشكر جدااااااا تماااااااااااام

الله يباركلك

جرب تضع الكود التالي في موديول

Sub LongLoop()
    Dim Counter As Long
    Application.EnableCancelKey = xlDisabled
     
    For Counter = 1 To 1000000000
         'Nothing
    Next Counter
End Sub

ثم ضع السطر التالي في حدث المصنف

Private Sub Workbook_Open()
    LongLoop
End Sub

ا

جرب تضع الكود التالي في موديول

Sub LongLoop()
    Dim Counter As Long
    Application.EnableCancelKey = xlDisabled
     
    For Counter = 1 To 1000000000
         'Nothing
    Next Counter
End Sub

ثم ضع السطر التالي في حدث المصنف

Private Sub Workbook_Open()
    LongLoop
End Sub

 

طيب سؤال تاني معلش

انا عامل الملف يقرا رقم البروسيسور ويمنع تشغيل الملف في غير تطابق الرقم بس في حالة عدم التطابق قبل ما يقفل بيسألني على الحفظ لو قلتله

Cancel

او دوست على علامة

X

بيفتح الملف عادي جدا

عاوز اعالج الموضوع ده بعد اذنك ازاي ؟

كتر خير و شكرا جزيلا ليك

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

قم بإرفاق ملفك للإطلاع عليه