كود إظهار رسالة بإسم المستخدم الخاص بالأوفيس

[علي المصري]

هل يمكن استخدام الكود التالي بشرط

Private Sub Workbook_Open()
MsgBox ("توضع هنا العبارة التى تريد أن تظهرها عند فتح الملف")
End Sub

بحيث يجلب تلقائيا اسم المستخدم من الويندوز

 

وتكو الرسالة  السلام عليكم ورحمة الله وبركاته ( اسم المستخدم )

[أبو إيمان]

السلام عليكم أخي الحبيب

إليك المطلوب بإذن الله في المرفق

والفكرة الأساسية مؤخذة من الموضوع 

http://www.officena.net/ib/index.php?showtopic=52635&hl=%D9%85%D8%B3%D8%AA%D8%AE%D8%AF%D9%85

 

مع بعض التعديلات الطفيفة

Sub show1()
Dim a As String
a = Application.UserName
'كود مربع رسالة عادي
MsgBox "السلام عليكم ورحمة الله وبركاته" & " " & a, , "مرحباً"

'مربع رسالة به سطرين ومحاذاة لليمين

MsgBox "السلام عليكم ورحمة الله وبركاته" & Chr(10) & " " & a, vbMsgBoxRight, "مرحباً"
 
 'مربع رسالة واغلاق نفسه تلقائيا بعد 2 ثانية
 'مقتبس الفكرة من كود وضعه الاستاذ عبدالله المجرب خاص بالاستاذ محمد صالح(ماس)
 
 Set WshShell = CreateObject("WScript.Shell")
Result = WshShell.Popup("السلام عليكم ورحمة الله وبركاته" & " " & a, 1, "مرحباُ", 65)


End Sub

اظهار اسم مستخدم الويندوز في مربع رسالة.rar

تم تعديل مايو 14, 2014 بواسطه أبو إيمان

[أبو إيمان]

أتمنى من الله أن أكون وفقت في تنفيذ المطلوب لك والشرح الوافي

 

 

وإليك الحل بطريقة أخرى

اظهار اسم مستخدم الويندوز في مربع رسالة001.rar

تم تعديل مايو 14, 2014 بواسطه أبو إيمان

[أبو إيمان]

أٍرجو من الأساتذة التقييم وإبداء الرأي  وشكراً

[aspiran]

شكرا لكم على المعلومة جزاكم الله خيرا

[علي المصري]

شكرا جزيلا  ابو إيمان

الكود يعمل 100%

فشكرا لك

سؤال آخر لو سمحت

هل يمكن ان يجلب الكود اسم المستخدم الموجود في الأوفيس وليس الويندوز

 

شكرا

[أبو إيمان]

جاري المحاولة إن شاء الله وإبلغك بالنتيجة ويمكن الاستعانة بالعمالقة وذوي الخبرة في ذلك

[علي المصري]

بعد التحقق من الكود وجدت ما يلي

ان الكود يجلب اسم المستخدم الخاص بالاكسيل وليس الويندوز

 

وهذا هو المطلوب

 

شكرا

[أبو إيمان]

نعم لكن يصعب التمييز في حالة أن يكون اسم مستخدم الويندوز هو نفس اسم مستخدم الأوفيس

[علي المصري]

تماما استاذنا الفاضل

حيث انني جعلت مستخدم الاوفيس غير مستخدم الويندوز وبذلك عرفت انه يجلب مستخدم الاوفيس

بارك الله فيكم

تم تعديل مايو 16, 2014 بواسطه علي المصري

[أبو إيمان]

جزاك الله خيرا فقد تعلمت منك وأفادتنى كثيرا 

وأشكر كل من يقدم معلومة أو سؤال يستفيد منه الأخرين

 

 

وبهذا نكون توصلنا للحل بفضل الله تعال

[محمود_الشريف]

أخى فى الله

الأستاذ الكريم // ابو ايمان

بارك الله فيكم

وزادكم الله من فضله ومن نعمه

تقبل منى وافر الإحترام والتقدير

[أبو إيمان]

جزاكم الله خيرا أستاذ محمود وهذا ما تعلمناه في هذا الصرح العظيم

[احمد فضيله]

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

[أبو إيمان]

وإياكم هذا ثمرة ما تعلمناه هنا