باز شدن اکسل در حالت read only باتوجه به مقدار سلول

[panahi88]

سلام
دوستان من با فرمول زیر 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 باز بشه؟