اسم المستخدم (تسجيل اسم مستخدم الويندوز بخلية معينة ) { عنوان معدل }

[magid_o]

تحية طيبة 

 

هل من الامكان تسجيل اسم المستخدم  في الويندوز بخلية وذلك عند تعبئة حقل معين 

Book1.rar

[أبو حنــــين]

السلام عليكم

استعمل هذا الكود

Private Sub CommandButton1_Click()
Range("B2") = Application.UserName
End Sub

[أبو حنــــين]

او هذا الكود

Private Sub CommandButton1_Click()
Range("B3") = Environ("UserName")
End Sub

[حمادة عمر]

ولاثراء الموضوع

وبعد رد استاذي الحبيب /  أبو حنين ... جزاه الله خيرا

 

اشارك بهذا الملف ( موجود في مكتبتي من فترة قديمة ... ولا اتذكر الآن صاحب الملف )

يقوم الكود بتسجيل اسم المستخدم في العمود B اذا تم التسجيل في العمود A

 

ارجو ان يستفاد منه

تقبلوا خالص تحياتي

 

 

تسجيل اسم مستخدم الويندوز في خلية في حالة تغير خلية اخري11.rar