انشاء رسالة شرطية عند فتح اكسيل

[محمد السيد حرقان]

                                                                                       بسم الله الرحمن الرحيم

اريد طريقة تجعلنى عند فتح ملف الاكسيل تظهر رسالة وبها شروط اضعها وعليها ازرار فى حالة الموافقة اضغط على موافق ويفتح الملف وفى عالة الرفض اضغط على خروج فيخرج الملف 

 

ولكم جزيل الشكر 

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

جرب الكود التالي في حدث المصنف

Private Sub Workbook_Open()
    Dim Answer As Integer

    Answer = MsgBox("Do You Want To Continue", vbYesNo + vbQuestion, "YasserKhalil")

    If Answer = vbYes Then
        MsgBox "Welcome To Officena", 64
    ElseIf Answer = vbNo Then
        MsgBox "You Cancelled Opening Workbook. Goodbye", vbExclamation
        ThisWorkbook.Close False
    End If
End Sub