نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

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

  1. #1
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,100
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام

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

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

  2. سپاس ها (1)


  3.  

  4. #2


    آخرین بازدید
    2022/06/28
    تاریخ عضویت
    May 2010
    محل سکونت
    بلژیک
    نوشته ها
    174
    امتیاز
    108
    سپاس
    0
    سپاس شده
    119 در 53 پست
    تعیین سطح نشده است

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

    نقل قول نوشته اصلی توسط barrai
    سلام دوستان
    یه فایلی را رو شبکه دارم که میخوام موقع باز شدن اگر کاربر علی (اسم سیستم علی 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 رو بر می گرداند.

    موفق باشی

  5. سپاس ها (1)


  6. #3
    mokaram آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    محصولات کاربر

    ويدئوي ايجاد سطح دسترسي
    آخرین بازدید
    2023/04/20
    تاریخ عضویت
    February 2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,805
    امتیاز
    6409
    سپاس
    8,100
    سپاس شده
    5,163 در 1,502 پست
    سطح اکسل
    74.00 %

    mokaram به Yahoo ارسال پیام

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

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

  7. سپاس ها (1)



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. آیا در سیستم بانکی ما هم از همین توابع مالی استفاده میگردد؟
    توسط mrexcel در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 7
    آخرين نوشته: 2014/02/25, 18:36
  2. تغییر همزمان یک فایل در دو سیستم
    توسط payam در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 2
    آخرين نوشته: 2013/11/04, 08:35
  3. پاسخ ها: 14
    آخرين نوشته: 2013/06/13, 17:06
  4. الگوریتم مونت کارلو در اکسل و تست قدرت سیستم شما
    توسط esyoo در انجمن مهندسی صنایع و اکسل
    پاسخ ها: 1
    آخرين نوشته: 2010/08/26, 09:26

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است
با ما در تماس باشيد