پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 8 , از مجموع 8

موضوع: گرفتن username در هنگام ورود به اکسل

  1. #1


    آخرین بازدید
    2019/05/31
    تاریخ عضویت
    November 2013
    نوشته ها
    25
    امتیاز
    161
    سپاس
    4
    سپاس شده
    151 در 22 پست
    تعیین سطح نشده است

    confused گرفتن username در هنگام ورود به اکسل

    با استفاده از متد workbook-open می توانیم مقدار یوزر نیم رو از کاربر بگیریم و یکسری دستورات رو بر حسب اون اجرا کنیم.
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsm Book1.xlsm اطلاعات (13.0 کیلو بایت, 57 نمایش)


  2.  

  3. #2


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    October 2013
    نوشته ها
    277
    امتیاز
    106
    سپاس
    117
    سپاس شده
    95 در 60 پست
    سطح اکسل
    62.00 %

    با اجازه از اساتید بزرگوار من کمی این فایل رو بهینه کردم. پسورد payam هست.
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsm payam.xlsm اطلاعات (12.2 کیلو بایت, 53 نمایش)


  4. #3


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    October 2013
    نوشته ها
    277
    امتیاز
    106
    سپاس
    117
    سپاس شده
    95 در 60 پست
    سطح اکسل
    62.00 %

    این هم یکی دیگه. پسورد عبارت داخل سلول a1 است.
    فايل هاي پيوست شده فايل هاي پيوست شده


  5. #4


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    172
    امتیاز
    202
    سپاس
    41
    سپاس شده
    78 در 46 پست
    تعیین سطح نشده است

    سلام اساتید بزرگوار
    حالا یه مسئله:
    من میخوام یک سری کد بدم در ستون aکه هر کاربری دارای یک کد مخصوص به خودش می باشد
    اگه بخوام برنامه با کد منحصر به فرد هر کاربر باز بشه چه کنم؟
    یعنی هرکسی کد وخودش را بزنه تا باز بشه درغیر اینصورت پیام بده که کد شما این نیست.
    مسئله دیگر:
    اگه بخوام طوری تنظیم بشه که وقتی من میخوام برنامه را باز کنم ، برنامه به طور اتوماتیک آی پی سیستم من را که در شبکه هست را بخونه و فقط با ورود ای پی سیستمم وارد بشه چه کنم ؟ درصورتیکه در هیچ شیت یا سلولی هم ای پی ها را درج نکرده باشم.

  6. #5


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,199
    امتیاز
    3248
    سپاس
    1,570
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

    با درود
    سوال مطرح شده قبلا به دفعات مورد برسی قرار گرفته لطفا برسی کنید حتما به جواب میرسید. اما به طور کلی با یه حلقه for و یه دستور offset داخل حلقه به جواب میرسید
    در پناه خداوندگار ایران زمین باشید و پیروز


  7. #6


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    October 2013
    نوشته ها
    277
    امتیاز
    106
    سپاس
    117
    سپاس شده
    95 در 60 پست
    سطح اکسل
    62.00 %

    با درود
    قسمت اول رو من توی فایل پیوست شده گذاشتم. بخش دوم رو بقیه اساتید پاسخ بدهند ممنون میشم.
    فايل هاي پيوست شده فايل هاي پيوست شده
    • نوع فایل: xlsm payam.xlsm اطلاعات (12.3 کیلو بایت, 32 نمایش)

  8. سپاس ها (1)


  9. #7


    آخرین بازدید
    2023/07/20
    تاریخ عضویت
    July 2011
    محل سکونت
    تهران
    نوشته ها
    141
    امتیاز
    322
    سپاس
    222
    سپاس شده
    254 در 82 پست
    سطح اکسل
    55.00 %

    با سلام
    شما ميتونيد براي گرفتن Ip سيستم از كد زير استفاده كنيد و با برقراري شرط (مساوي قرار دادن با IP سيستم خودتون) دستورات مورد نظرتون رو اجرا كنيد
    کد:
    Function GetIP()
    
    Dim ws: Set ws = CreateObject("WScript.Shell")
    Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
    
    
    Dim TmpFile: TmpFile = fso.GetSpecialFolder(2) & "/ip.txt"
    Dim ThisLine, IP
    
    
    If ws.Environment("SYSTEM")("OS") = "" Then
    ws.Run "winipcfg /batch " & TmpFile, 0, True
    Else
    ws.Run "%comspec% /c ipconfig > " & TmpFile, 0, True
    End If
    
    
    With fso.GetFile(TmpFile).OpenAsTextStream
    Do While Not .AtEndOfStream
    ThisLine = .ReadLine
    If InStr(ThisLine, "Address") <> 0 Then
    IP = Mid(ThisLine, InStr(ThisLine, ":") + 2)
    End If
    Loop
    .Close
    End With
    
    
    
    
    If IP <> "" Then
    If Asc(Right(IP, 1)) = 13 Then IP = Left(IP, Len(IP) - 1)
    End If
    
    
    GetIP = IP
    
    
    fso.GetFile(TmpFile).Delete
    
    
    Set fso = Nothing
    Set ws = Nothing
    
    
    End Function

  10. سپاس ها (1)


  11. #8


    آخرین بازدید
    2020/01/13
    تاریخ عضویت
    February 2015
    نوشته ها
    89
    امتیاز
    26
    سپاس
    3
    سپاس شده
    16 در 11 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط alieddy0 نمایش پست ها
    با سلام
    شما ميتونيد براي گرفتن Ip سيستم از كد زير استفاده كنيد و با برقراري شرط (مساوي قرار دادن با IP سيستم خودتون) دستورات مورد نظرتون رو اجرا كنيد
    کد:
    Function GetIP()
    
    Dim ws: Set ws = CreateObject("WScript.Shell")
    Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
    
    
    Dim TmpFile: TmpFile = fso.GetSpecialFolder(2) & "/ip.txt"
    Dim ThisLine, IP
    
    
    If ws.Environment("SYSTEM")("OS") = "" Then
    ws.Run "winipcfg /batch " & TmpFile, 0, True
    Else
    ws.Run "%comspec% /c ipconfig > " & TmpFile, 0, True
    End If
    
    
    With fso.GetFile(TmpFile).OpenAsTextStream
    Do While Not .AtEndOfStream
    ThisLine = .ReadLine
    If InStr(ThisLine, "Address") <> 0 Then
    IP = Mid(ThisLine, InStr(ThisLine, ":") + 2)
    End If
    Loop
    .Close
    End With
    
    
    
    
    If IP <> "" Then
    If Asc(Right(IP, 1)) = 13 Then IP = Left(IP, Len(IP) - 1)
    End If
    
    
    GetIP = IP
    
    
    fso.GetFile(TmpFile).Delete
    
    
    Set fso = Nothing
    Set ws = Nothing
    
    
    End Function

    ای پی در کچا ظاهر میشود؟؟؟ کد کار نکرد


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

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

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

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

  1. در خصوص Username & password فرم Login
    توسط Amin_D در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 16
    آخرين نوشته: 2021/08/26, 16:59

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

یوزر exceliran.com

پسورد هنگام ورود به اکسل

کلمات کلیدی این موضوع

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

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

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