محدویت در باز کردن فایل با نام کاربری سیستم

[mokaram]

سلام دوستان
یه فایلی را رو شبکه دارم که میخوام موقع باز شدن اگر کاربر علی (اسم سیستم علی application username) ) خواست وارد بشه فایل باز نشه من این فرمول را تو ورک بوک موقع باز شدن نوشتم ولی کار نکرد
if application.username<>"ali" then
userform1.show
else
application.workbooks.close
end if
ممنون

[m_d6712]

RE: محدویت در باز کردن فایل با نام کاربری سیستم

سلام دوستان
یه فایلی را رو شبکه دارم که میخوام موقع باز شدن اگر کاربر علی (اسم سیستم علی application username) ) خواست وارد بشه فایل باز نشه من این فرمول را تو ورک بوک موقع باز شدن نوشتم ولی کار نکرد
if application.username<>"ali" then
userform1.show
else
application.workbooks.close
end if
ممنون

از این تابع استفاده کن.

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" ( ByVal lpBuffer As String, nSize As Long ) As Long

Private Const MAX_COMPUTERNAME_LENGTH = 31

Function ThisComputerName() As String
Dim lpBuffer As String
Dim nSize As Long
Dim lngRet As Long

nSize = MAX_COMPUTERNAME_LENGTH + 1
lpBuffer = Space(nSize)
lngRet = GetComputerName(lpBuffer, nSize)
If lngRet <> 0 Then
ThisComputerName = Left(lpBuffer, nSize)
End If
End Function

بعد اینطور شرط رو بنویس

if ThisComputerName<>"ali" then
userform1.show
else
application.workbooks.close
end if

..........................


مثلا برای کامپیوتر من این تابع مقدار mori-pc رو بر می گرداند.

موفق باشی

[mokaram]

RE: محدویت در باز کردن فایل با نام کاربری سیستم

ممنون از لطف شما استاد گرامی
روش یه کم سطح پائین تر هم داره برای این کار؟
آماتوریم دیگه سوادمون نمیرسه