سلام دوست عزیز
اگر چند نفر به طور همزمان از فایل استفاده نمی کنند یعنی ورک بوک SHARE نیست و فولدری که فایل اکسل درونش هست در شبکه SHARE است از این روش میشه استفاده کرد :
ستون هایی که می خواهید دیگران توانایی دسترسی داشته باشند رو انتخاب و از فرمت سل و از PROTECTION تیک LOCKED رو بردارید.
به قسمت ویژوال رفته و یک MODULE ایجاد کنید و این کد روی درونش قرار بدید :
کد:
Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" (ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
سپس در قسمت THISWORKBOOK این کد رو قرار بدید :
کد:
Private Sub Workbook_Open()
Const lpnLength As Integer = 255
Dim status As Integer
Dim lpName, lpUserName As String
lpUserName = Space$(lpnLength + 1)
status = WNetGetUser(lpName, lpUserName, lpnLength)
If status = NoError Then
lpUserName = Left$(lpUserName, InStr(lpUserName, Chr(0)) - 1)
Else
MsgBox "Unable to get the name."
End
End If
If lpUserName = "ADMIN" Then
Sheet4.Unprotect ("123")
Else
Sheet4.Protect ("123")
End If
End Sub
جلوی IpuserName نام یوزری که می بایست دسترسی کلی داشته باشد را تایپ کنید.
به جای sheet4 شیت مورد نظر و به جای 123 پسورد شیت قفل شده را وارد کنید.
علاقه مندی ها (Bookmarks)