تعديل على كود و اضافة بوكس تشغيل الكود او الالغاء

[Ahmed Saad 2017]

هل ممكن اضافة بند علي اي كود  للتعديل بحيث يكون هناك اختيار OK او cancel في msgbox لتنفيذ الكود او الالغاء لانه بيحصل ان ممكن الضغط على زر تشغيل الكود بالخطأ و يتعذر إلغاء تشغيل الكود خصوصا لما يكون الكود كبير وبياخد وقت 

برجاء الإفادة 

تم تعديل يونيو 3, 2019 بواسطه Ahmed Saad 2017

[سليم حاصبيا]

تجربة

Option Explicit

Sub code_with_MsgBox()
Dim Answer As Byte
Range("a1") = vbNullString
Answer = MsgBox("Can not undo...Continue?", 4)
If Answer = 6 Then
Range("a1") = "The Code Wase running"
End If
End Sub

 

[Ahmed Saad 2017]

2 ساعات مضت, سليم حاصبيا said:

تجربة

Option Explicit

Sub code_with_MsgBox()
Dim Answer As Byte
Range("a1") = vbNullString
Answer = MsgBox("Can not undo...Continue?", 4)
If Answer = 6 Then
Range("a1") = "The Code Wase running"
End If
End Sub

 

2 ساعات مضت, سليم حاصبيا said:

استاذ سليم كل عام وحضرتك بخير

شكرا جزيلا و جزالك الله خير الجزاء