پرسش ثبت اسم یوزر داخل سلول

[Ghasemtorabe]

(من اگه بخام با كامپيوترم تو شركت log in بشم و به شبكه خودمون دسترسي پيدا كنم يك يوزرنيم و پسورد ميخام، مثلا يوزرنيم من arash_z است) حالا تو فايل پيوست كه من قراره درستش كنم و رو شبكه براي همه share كنم افراد مختلفي تو سلول D1 اطلاعات وارد ميكنن (مثلا مينويسن اين كار انجام شده)، من ميخام آخرين نفري كه اطلاعات سل را تغيير داده، يوزرنيم كامپيوترش تو ستون D و تاريخش را در ستون F درج بشه.

[M_ExceL]

(من اگه بخام با كامپيوترم تو شركت log in بشم و به شبكه خودمون دسترسي پيدا كنم يك يوزرنيم و پسورد ميخام، مثلا يوزرنيم من arash_z است) حالا تو فايل پيوست كه من قراره درستش كنم و رو شبكه براي همه share كنم افراد مختلفي تو سلول D1 اطلاعات وارد ميكنن (مثلا مينويسن اين كار انجام شده)، من ميخام آخرين نفري كه اطلاعات سل را تغيير داده، يوزرنيم كامپيوترش تو ستون D و تاريخش را در ستون F درج بشه.

سلام
1- کليد هاي ترکيبي Alt+F11 فشار دهيد
2- در قسمت Project Explorer روي ThisWorkbook دابل کليک کنيد
3- اين کد را درون آن پيست کرده و تست کنید :

Private Sub Workbook_Open()


Range("d1") = Application.UserName
Range("f1") = Format(Date, "mm/dd/yyyy") & " at " & Format(Time, "hh:mm AMPM")


End Sub

فایل اکسل رو با فرمت macro enabled ذخیره کرده سپس ببندید و دوباره باز کنید.