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

موضوع: users

  1. #1


    آخرین بازدید
    08 _ 09 _ 2015
    تاریخ عضویت
    November_2010
    نوشته ها
    123
    امتیاز
    19
    سپاس
    20
    سپاس شده
    21 در 18 پست

    Question users

    سلام
    فايلي دارم كه ورود اطلاعات و گزارشگيري از طريق فرمهايي كه ساختم و كاربران صرفا فرمها را مي بينند ودسترسي به شيتها را ندارند . ورود به وسيله يوزرنيم و پسورد هست . حال ميخوام آي پي كاربري كه وارد شده را شناسايي كنم و در يه شيت نگهداري كنم ساعت و تاريخ ورود كاربر را تونستم در يه شيت انجام بدم ولي شناساي كامپيوتري كه كاربر توسط اون تونسته اين تغييرات را بده نتونستم انجام بدم. و همچنين تغييراتي را كه انجام ميده را د رمقابل آي پي اون نشون بده .

    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    مواظب باشید به تابوت من آگهی تبلیغاتی نچسبانند (حسين پناهي)

  2. سپاس ها (1)


  3.  

  4. #2


    آخرین بازدید
    18 _ 08 _ 2016
    تاریخ عضویت
    December_2010
    نوشته ها
    403
    امتیاز
    255
    سپاس
    753
    سپاس شده
    385 در 161 پست

    نقل قول نوشته اصلی توسط intro نمایش پست ها
    سلام
    فايلي دارم كه ورود اطلاعات و گزارشگيري از طريق فرمهايي كه ساختم و كاربران صرفا فرمها را مي بينند ودسترسي به شيتها را ندارند . ورود به وسيله يوزرنيم و پسورد هست . حال ميخوام آي پي كاربري كه وارد شده را شناسايي كنم و در يه شيت نگهداري كنم ساعت و تاريخ ورود كاربر را تونستم در يه شيت انجام بدم ولي شناساي كامپيوتري كه كاربر توسط اون تونسته اين تغييرات را بده نتونستم انجام بدم. و همچنين تغييراتي را كه انجام ميده را د رمقابل آي پي اون نشون بده .

    سلام دوست عزیز ، اگر ممکنه نمونه ای از فایلتون رو بزاریدو
    با تشکر
    خواستن ، توانستن است.

  5. سپاس ها (1)


  6. #3


    آخرین بازدید
    09 _ 03 _ 2016
    تاریخ عضویت
    October_2013
    محل سکونت
    اصفهان
    نوشته ها
    33
    امتیاز
    160
    سپاس
    4
    سپاس شده
    170 در 31 پست

    با عرض سلام
    فکر کنم جوابتون تو فایل ضمیمه باشه
    رمز : reza
    پسورد : 123
    وارد شوید به کدها و نمونه ها توجه کنید می تونین اسم خودتون را با رمز در قسمت شیت یک وارد کنید و نتیجه را ببینید
    فايل هاي پيوست شده فايل هاي پيوست شده


  7. #4


    آخرین بازدید
    08 _ 09 _ 2015
    تاریخ عضویت
    November_2010
    نوشته ها
    123
    امتیاز
    19
    سپاس
    20
    سپاس شده
    21 در 18 پست

    سلام
    ممنونم كه جواب دادين
    اما منظور بنده شناسايي كاربر نبود بلكه شناسايي كامپيوتري كه كاربر با اون وارد سيستم شده .
    مواظب باشید به تابوت من آگهی تبلیغاتی نچسبانند (حسين پناهي)

  8. #5


    آخرین بازدید
    09 _ 03 _ 2016
    تاریخ عضویت
    October_2013
    محل سکونت
    اصفهان
    نوشته ها
    33
    امتیاز
    160
    سپاس
    4
    سپاس شده
    170 در 31 پست

    با سلام
    من متوجه منظورتون نشدم ولی فکر کنم منظورتون اینه که بتونیم تشخیص بدیم که فایلی که اجرا می شه از طریق سریال نامبر و یا کدهای داخلی خود کامپیوتر اجرا بشه
    یه نمونه براتونمی زارم ببینم منظورتون همینه

    اگه ممکنه نمونه فایلتون را ارسال کنید
    دوستان سوالاتشون را کامل بنویسن --------- اون جوابه که مختصر و مفیده میدن
    فايل هاي پيوست شده فايل هاي پيوست شده
    ویرایش توسط rezajaberpour : 23 _ 10 _ 2013 در ساعت 18:50

  9. سپاس ها (1)


  10. #6


    آخرین بازدید
    02 _ 08 _ 2017
    تاریخ عضویت
    November_2010
    محل سکونت
    کرج
    نوشته ها
    363
    امتیاز
    263
    سپاس
    193
    سپاس شده
    564 در 140 پست

    MEYTI به Yahoo ارسال پیام
    با سلام دوست عزیز برای پیدا کردن یوزنیم کامپیوتر فعال از کدهای زیر استفاده کن
    کد:
    Dim USER As String
    
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colSettings = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
    For Each objComputer In colSettings
    
    USER = objComputer.UserName
    Next
    از مقدار user در محل مورد نظر استفاده کن
    مهدی کریمی


  11. #7


    آخرین بازدید
    08 _ 09 _ 2015
    تاریخ عضویت
    November_2010
    نوشته ها
    123
    امتیاز
    19
    سپاس
    20
    سپاس شده
    21 در 18 پست

    سلام
    ممنونم آقاي كريمي بسيار عالي بود . خيلي استفاده كرديم .
    يه سوال ديگه . ميشه آي پي كامپيوتر رو هم شناسايي كرد؟
    مواظب باشید به تابوت من آگهی تبلیغاتی نچسبانند (حسين پناهي)

  12. #8


    آخرین بازدید
    02 _ 08 _ 2017
    تاریخ عضویت
    November_2010
    محل سکونت
    کرج
    نوشته ها
    363
    امتیاز
    263
    سپاس
    193
    سپاس شده
    564 در 140 پست

    MEYTI به Yahoo ارسال پیام
    با سلام خواهش میکنم دوست عزیز
    از کد زیر جهت بدست آوردن ip address استفاده کن
    Sub IPtest()
    Dim wsh As Object
    Dim RegEx As Object, RegM As Object
    Dim FSO As Object, fil As Object
    Dim ts As Object, txtAll As String, TempFil As String
    Set wsh = CreateObject("W******.Shell")
    Set FSO = CreateObject("******ing.FileSystemObject")
    Set RegEx = CreateObject("vb******.regexp")
    TempFil = "C:\myip.txt"
    ' Save ipconfig info to temporary file
    wsh.Run "%comspec% /c ipconfig > " & TempFil, 0, True
    With RegEx
    .Pattern = "(\d{1,3}\.){3}\d{1,3}"
    .Global = False
    End With
    Set fil = FSO.GetFile(TempFil)
    ' Access temporary file
    Set ts = fil.OpenAsTextStream(1)
    txtAll = ts.ReadAll
    Set RegM = RegEx.Execute(txtAll)
    ' Return IP address to Activesheet cell A1 by parsing text
    ActiveSheet.Range("A1").Value = RegM(0)
    ' ActiveSheet.Range("A1").EntireColumn.AutoFit
    ts.Close
    ' Remove temp file
    Kill TempFil

    Set ts = Nothing
    Set wsh = Nothing
    Set fil = Nothing
    Set FSO = Nothing
    Set RegM = Nothing
    Set RegEx = Nothing
    End Sub


    مهدی کریمی

  13. سپاس ها (1)



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

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

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

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

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

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

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

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