پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 3 , از مجموع 3

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

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


    آخرین بازدید
    3 ساعت پیش
    تاریخ عضویت
    February_2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,615
    امتیاز
    5702
    سپاس
    6,478
    سپاس شده
    4,498 در 1,286 پست

    mokaram به Yahoo ارسال پیام فرستادن پیام با Skype به mokaram

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

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

  2. سپاس ها (1)


  3.  

  4. #2


    آخرین بازدید
    31 _ 03 _ 2017
    تاریخ عضویت
    May_2010
    محل سکونت
    بلژیک
    نوشته ها
    175
    امتیاز
    94
    سپاس
    0
    سپاس شده
    105 در 45 پست

    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 آنلاین نیست.
    مدير تالار اکسل و بانک اطلاعاتی


    آخرین بازدید
    3 ساعت پیش
    تاریخ عضویت
    February_2011
    محل سکونت
    ســــاوه
    نوشته ها
    1,615
    امتیاز
    5702
    سپاس
    6,478
    سپاس شده
    4,498 در 1,286 پست

    mokaram به Yahoo ارسال پیام فرستادن پیام با Skype به mokaram

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

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

  7. سپاس ها (1)



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

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

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

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

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

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

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

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

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