Image Excel User Name

السلام عليكم و رحمة الله

لكل نسخة إكسيل نقوم بإستخدامها في أجهزتنا إسم معرف خاص بها يعرف بـ
User Name

و هو يظهر جلياً عن إدارج تعليق Comment في الخلية كما في الصورة التالية : لمعرفة المزيد عن التعليقات إضغط هنا

في الصورة نلاحظ كتابة كلمة Excel4Us في بداية التعليق  و هي عباره عن اسم الجهاز الذي أستخدمه, و لتغييره كل ما علينا عمله هو :

1. الذهاب إلى File .
2. ثم نختار الخيارات Options
3. ستظهر لنا الشاشة التالية : 

و لتغيره فقط قم بكتابة الإسم الجديد الذي يناسبك ثم اوكي 

و عند إدارج تعليق جديد سيقوم الإكسيل بكتابة الإسم الجديد, ( في حال لم يتم ادراج الاسم الجديد قم بإغلاق الإكسيل ثم إفتحه مرة أخرى) .

و لمعرفة إسم الجهاز سنقوم بإضافة معادلة UDF في الإكسيل, بحيث يمكننا إستخدامها إن رغبنا في ذلك, و لكتابة الكود, قم بالضغط على مفتاح الإختصار Alt + F11 

لفتح شاشة البرمجه VBE 

ثم من خيار Insert 

قم بإختيار Module

و قم بكتابة الكود التالي 

ثم قم بإغلاق الشاشة للرجوع إلى الإكسيل أو الإختصار 

Alt + F11 

و الآن في صفحة الإكسيل أكتب المعادلة التالية 

أصبح لدينا معادلة في الملف إسمها 

MyUserName

أيضاً يمكننا إستخدام هذه الخاصية في حدث فتح الملف, بتوجيه رسالة ترحيبيه لمن يستخدم الملف ( فغالبا ما نقوم بتسمية أجهزتنا بأسمائنا), فسنوجه رسالة ترحيبة كما في الصورة التالية :

و لعمل ذلك كل ما علينا فعله هو 

قم بالضغط على مفتاح الإختصار Alt + F11 

لفتح شاشة البرمجه VBE 

و لكن هذه المرة سنقوم بالضغط مرتين على Object  اسمه 

ThisWorkbook

و نقوم بكتابة الكود التالي :

لاحظ أني وضعت الرقم 1 و ذلك لإخيتار 

WorkBook 

و الرقم 2 لإختيار حدث الفتح Open 

ثم قمت بكتابة الكود 

الآن لفحص الكود أعلاه قم بحفظ الملف و لكن لا تنسى أن تغير صيغة الحفظ من 

Xlsx 

إلى 

Xlsm

Excel Macro - Enabled Workbook

و ذلك ليحنفظ الإكسيل بالكود داخله 

أغلق الملف 

و أعد فتحه ستظهر الرسالة الترحيبية 

أتمنى أن تكون قد إتضحت الصورة لكم 

و لا تتردد بطرح أي سؤال أو أي إستفسار 

دمتم في حفظ الله 

 يحيى حسين 

Excel MVP