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

[Taha7502011]

السلام عليكم

 الرجاء المساعدة لدي ملف وسوف يعمل به اكثر من 10 موظفين وانا بحاجة ان اضيف كود 

 أود الحصول على الماكرو الخاص باسم المستخدم او (اسم الكمبيوترللموظف)

واملأ خليه سي 2 باسم المستخدم عند تغيير خليه بي 2 وما إلى ذلك  نحن 10 اشخاص الذين يستخدمون ورقة العمل ومن الجيد أن نرى من قام بالتغييرات

تم استخدام هذا الكود ولكن عند دخول مستخدم اخر يتغير جميع اسماء المستخدمين الاخرين

Public Function UserName()
    UserName = Environ$("COMPUTERNAME")
End Function

 

[مهند محسن]

وعليكم السلام لا يمكن العمل هكذا وتجنباً لإهدار الوقت وبما انه لا يمكن العمل على التخمين ... فعليك برفع الملف حتى نتمكن من عمل المطلوب بكل دقة