الفكرة العامة
سنستخدم:
InputBox لطلب اسم المستخدم
متغير عام لحفظ الاسم
MessageBox لعرض رسالة النهاية
🛠️ الخطوة 1: تفعيل تبويب المطور
افتح PowerPoint
ملف → خيارات → تخصيص الشريط
فعّل ✔️ Developer (المطور)
موافق
🧩 الخطوة 2: إضافة كود VBA
من تبويب Developer
اختر Visual Basic
من القائمة:
Insert → Module
ثم انسخ هذا الكود 👇
Public UserName As String Sub AskUserName() UserName = InputBox("من فضلك أدخل اسمك لبدء المسابقة:", "أهلاً بك") If UserName = "" Then MsgBox "لم يتم إدخال الاسم، سيتم إنهاء العرض.", vbExclamation ActivePresentation.Close End If End Sub Sub EndQuiz() MsgBox "🎉 انتهت المسابقة يا " & UserName & "، شكرًا لمشاركتك!", vbInformation End Sub
▶️ الخطوة 3: تشغيل نافذة إدخال الاسم عند بداية العرض
افتح الشريحة الأولى
من Developer → Macros
اختر AskUserName
اضغط Run
🔹 أو الأفضل:
ضع زر شفاف
من Action Settings
اختر Run Macro → AskUserName
🏁 الخطوة 4: رسالة النهاية
في آخر شريحة:
أضف زر (أو شكل)
من Action Settings
اختر Run Macro → EndQuiz
✨ النتيجة النهائية
عند فتح العرض → نافذة تطلب اسم المستخدم
يتم حفظ الاسم طوال العرض
عند النهاية → رسالة باسم المستخدم