هل يوجد كود لاخراج رسالة ترحيبية وأخرى توديعية باسم المستعمل ؟وشكرا

[hicham2610]

السلام عليكم

من فضلكم

طلب كود vba لوضعه في ملف xlsm بمجرد فتح هذا الملف يطلب من المستعمل إدخال اسمه ولما يكتبه يخرج ترحيب باسمه ثم يدخل للملف وعند إغلاق الملف تخرج رسالة تشكر المستعمل باسمه

وجزاكم الله خيرا

[Ali Mohamed Ali]

وعليكم السلام عليك بلصق هذه الأكواد فى حدث This Workbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "مع السلامة " & Application.UserName & _
            vbNewLine & "فى حفظ الله شرفتنا", _
            vbInformation, "منتدى أوفيسنا"
 ThisWorkbook.Save
Application.Quit
End Sub

Private Sub Workbook_Open()
 MsgBox "أهلا وسهلا يا " & Application.UserName & _
            vbNewLine & "أتمنى أن تكون فى أفضل حال", _
            vbInformation, "منتدى أوفيسنا"
End Sub

 

[hicham2610]

جزاك الله خيرا وأحسن إليك

أخي الكريم

الكود يأخذ اسم المسجل بالحاسب وليس تفاعلي

بمعنى يدخل المستعمل اسمه 

جزاك الله خيرا وأحسن إليك

تم تعديل نوفمبر 14, 2018 بواسطه hicham2610

[محمد الورفلي1]

السلام عليكم

انظر الي الملف

 

وانظر ترحيب 2

ترحيب.xls

ترحيب2.xls

تم تعديل نوفمبر 14, 2018 بواسطه محمد الورفلي1

[hicham2610]

منذ ساعه, محمد الورفلي1 said:

 

جزاك الله خيرا واتابك الجنة

هذا ماأبحث عنه في الترحيب

ممكن جزاك الله خيرا توديعية باسم المستخدم؟

[hicham2610]

9 ساعات مضت, محمد الورفلي1 said:

 

جزاك الله خيرا واتابك الجنة

هذا ماكنت أبحث عنه

[محمد الورفلي1]

 

22 ساعات مضت, hicham2610 said:

جزاك الله خيرا واتابك الجنة

هذا ماكنت أبحث عنه

الحمد لله

تم تعديل نوفمبر 15, 2018 بواسطه محمد الورفلي1