سلام
دوستان من با فرمول زیر user name سیستم کسی که از فایل استفاده میکنه را توی سلول a1 مینویسم
کد:
Private Sub Workbook_Open()
Sheet1.Select
Set WSHnet = CreateObject("WScript.Network")
UserName = WSHnet.UserName
UserDomain = WSHnet.UserDomain
Set objUser = GetObject("WinNT://" & UserDomain & "/" & UserName & ",user")
UserFullName = objUser.FullName
Sheet1.Unprotect (123)
Range("A1").Value = UserFullName
Sheet1.Protect (123)
End Sub
حلا سوال اینه که راهی وجود داره که فایل برای یکسری از نفرات به صورت read only باز بشه؟
|
اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید. |
|
علاقه مندی ها (Bookmarks)