صفحه 6 از 8 نخستنخست ... 45678 آخرینآخرین
نمایش نتایج: از شماره 51 تا 60 , از مجموع 77

موضوع: پکیج آموزشی ایجاد فایل چندکاربره با سطح دسترسی مشخص

  1. #51


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    نقل قول نوشته اصلی توسط nazi nazi نمایش پست ها
    سلام ممنونم جواب دادید
    ولی من خیلی از کد نویسی چیزی بلد نیستم
    میشه راهنمایی بیشتری بفرمایید
    این کار شما خیلی خوبه و عالی خیلی پروزه کاری منو جلو انداخت حتما در اون از شما نام خواهم برد
    متاسفانه امکان راهنمایی در چند خط وجود نداره با توجه به اینکه آشنایی کمی با vba داریدکه به علت گستردگی مطلب هست اما اگر پیگیر باشید مطالب آموزشی خیلی خوبی در زمینه vba در انجمن هست که به شما کمک خواهد کرد در جزوه هم حتی الامکان در خصوص نحوه کار کد ها بحث کردم که با مطالعه اون بیشتر با روند کد نویسی آشنا میشید سعی میکنم برای موردی که مطرح کردید کدهای لازم رو بنویسم اما همونطور که گفتم روش های گفته شده فی البداهه و تنها ایده بود و تا زمانی که خودم شروع نکنم به نوشتن نمیدونم چقدر عملی باشه شاید هم راه ساده تری برای کار باشه به هر حال پیگیر باشید جوابتون رو میگیرید



  2. سپاس ها (2)


  3.  

  4. #52


    آخرین بازدید
    2023/12/09
    تاریخ عضویت
    February 2015
    نوشته ها
    97
    امتیاز
    48
    سپاس
    8
    سپاس شده
    38 در 23 پست
    سطح اکسل
    61.00 %

    نقل قول نوشته اصلی توسط ~M*E*H*D*I~ نمایش پست ها
    متاسفانه امکان راهنمایی در چند خط وجود نداره با توجه به اینکه آشنایی کمی با vba داریدکه به علت گستردگی مطلب هست اما اگر پیگیر باشید مطالب آموزشی خیلی خوبی در زمینه vba در انجمن هست که به شما کمک خواهد کرد در جزوه هم حتی الامکان در خصوص نحوه کار کد ها بحث کردم که با مطالعه اون بیشتر با روند کد نویسی آشنا میشید سعی میکنم برای موردی که مطرح کردید کدهای لازم رو بنویسم اما همونطور که گفتم روش های گفته شده فی البداهه و تنها ایده بود و تا زمانی که خودم شروع نکنم به نوشتن نمیدونم چقدر عملی باشه شاید هم راه ساده تری برای کار باشه به هر حال پیگیر باشید جوابتون رو میگیرید
    در مورد فرم یک نمونه در جایی دیدم که در بالای اون تب هایی بود و برای هر واحد جدا بود هر واحد اطلاعاتش را وارد میکرد و همه در یک جا ثبت میشد
    برای من مهم ثبت اطلاعاته که بتونم در تاریخ های مشخص وارد کنم و بتونم خروجی بگیرم ازشون در ضمن قابلیت برگشت به گذشته هم داشته باشه مثلا بتونم اطلاعات چند ماه قبل را را بتونم ببینم با وارد کردن یک تاریخ

  5. سپاس ها (2)


  6. #53


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    درود

    در خصوص سوالی که دوستان مطرح کردند مبنی بر اینکه برای کاربر بیش از یک شیت در نظر بگیریم دو راهکار به ذهنم رسید
    1- تعیین شیت های هر کاربر در شیت protectdata به نحوی که با پیمایش ردیف هر کاربر شیت مربوطه باز بشه
    2- استفاده از یک قاعده نامگذاری برای شیت ها

    کد زیر برای راه حل دوم نوشته شده دوستان باید این کد رو جایگزین کدی که برای کلید login یوزر فرم یک نوشته شده کنند


    کد PHP:
    Private Sub CommandButton1_Click()
    Dim PassWord As String
    Dim user 
    As String
    Dim ws 
    As Worksheet
    user 
    ComboBox1.Value
    PassWord 
    TextBox1.Value
    If user "" Or PassWord "" Then
    MsgBox 
    "Enter name and password"
    Exit Sub
    End 
    If
    If 
    PassWord WorksheetFunction.VLookup(userRange("List"), 20Then

    For Each ws In ActiveWorkbook.Worksheets
    If ws.Name <> "Welcome" And ws.Name <> "Protectdata" Then
    On Error 
    GoTo handler
    If user Mid(ws.Name1Application.WorksheetFunction.Find("-"ws.Name1) - 1Then
    Sheets
    (ws.Name).Visible xlSheetVisible
    End 
    If
    End If
    handler:
    If 
    Err 1004 Then
    MsgBox 
    "The name of sheet is wrong"
    Exit Sub
    End 
    If
    Next
    MsgBox 
    "Password Accepted"
    UserForm1.Hide
    ElseIf counter <= 3 Then
    MsgBox 
    "Try Again"
    counter counter 1
    TextBox1
    .Value ""
    Exit Sub
    Else
    MsgBox "Password Not Accepted, Workbook will close"
    Unload Me
    ThisWorkbook
    .Close
    End 
    If
    ComboBox1.Value ""
    TextBox1.Value ""
    End Sub 
    اما برای اینکه کدها به درستی کار کنند قواعدی باید رعایت بشه

    در فایل مشاهده میکنید که نام شیت ها به صورت User1,User2,User3 نامگذاری شده با این فرض که هر کاربر ممکنه تعداد شیت بیشتری داشته باشه نامگذاری به شیوه زیر خواهد بود

    User1-1
    User2-1
    User3-1

    بنابر این گر user1 شیت های دیگری نیاز داشته باشه به شکل زیر خواهد بود

    User1-2
    User1-3
    و....

    برای سایر کاربران هم به همین نحو

    در صورتی که این قاعده راعایت نشه پیغام زیر صادر خواهد شد


    کد PHP:
    The name of sheet is wrong 
    سوالی بود در خدمتم




  7. #54


    آخرین بازدید
    2023/12/09
    تاریخ عضویت
    February 2015
    نوشته ها
    97
    امتیاز
    48
    سپاس
    8
    سپاس شده
    38 در 23 پست
    سطح اکسل
    61.00 %

    نقل قول نوشته اصلی توسط ~M*E*H*D*I~ نمایش پست ها
    درود

    در خصوص سوالی که دوستان مطرح کردند مبنی بر اینکه برای کاربر بیش از یک شیت در نظر بگیریم دو راهکار به ذهنم رسید
    1- تعیین شیت های هر کاربر در شیت protectdata به نحوی که با پیمایش ردیف هر کاربر شیت مربوطه باز بشه
    2- استفاده از یک قاعده نامگذاری برای شیت ها

    کد زیر برای راه حل دوم نوشته شده دوستان باید این کد رو جایگزین کدی که برای کلید login یوزر فرم یک نوشته شده کنند


    کد PHP:
    Private Sub CommandButton1_Click()
    Dim PassWord As String
    Dim user 
    As String
    Dim ws 
    As Worksheet
    user 
    ComboBox1.Value
    PassWord 
    TextBox1.Value
    If user "" Or PassWord "" Then
    MsgBox 
    "Enter name and password"
    Exit Sub
    End 
    If
    If 
    PassWord WorksheetFunction.VLookup(userRange("List"), 20Then

    For Each ws In ActiveWorkbook.Worksheets
    If ws.Name <> "Welcome" And ws.Name <> "Protectdata" Then
    On Error 
    GoTo handler
    If user Mid(ws.Name1Application.WorksheetFunction.Find("-"ws.Name1) - 1Then
    Sheets
    (ws.Name).Visible xlSheetVisible
    End 
    If
    End If
    handler:
    If 
    Err 1004 Then
    MsgBox 
    "The name of sheet is wrong"
    Exit Sub
    End 
    If
    Next
    MsgBox 
    "Password Accepted"
    UserForm1.Hide
    ElseIf counter <= 3 Then
    MsgBox 
    "Try Again"
    counter counter 1
    TextBox1
    .Value ""
    Exit Sub
    Else
    MsgBox "Password Not Accepted, Workbook will close"
    Unload Me
    ThisWorkbook
    .Close
    End 
    If
    ComboBox1.Value ""
    TextBox1.Value ""
    End Sub 
    اما برای اینکه کدها به درستی کار کنند قواعدی باید رعایت بشه

    در فایل مشاهده میکنید که نام شیت ها به صورت User1,User2,User3 نامگذاری شده با این فرض که هر کاربر ممکنه تعداد شیت بیشتری داشته باشه نامگذاری به شیوه زیر خواهد بود

    User1-1
    User2-1
    User3-1

    بنابر این گر user1 شیت های دیگری نیاز داشته باشه به شکل زیر خواهد بود

    User1-2
    User1-3
    و....

    برای سایر کاربران هم به همین نحو

    در صورتی که این قاعده راعایت نشه پیغام زیر صادر خواهد شد


    کد PHP:
    The name of sheet is wrong 
    سوالی بود در خدمتم
    سلام
    ممنون از جوابتون
    من این کارو کردم ولی یوزر ه دیگه باز نمیشدن
    البته من یوزرهای جدید با نامهای دیگه ساخته بودم مثلا qa یا qc
    ولی نشد اصلا باز نمشد و فقط ادمین باز میشد

  8. #55


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    نقل قول نوشته اصلی توسط nazi nazi نمایش پست ها
    سلام
    ممنون از جوابتون
    من این کارو کردم ولی یوزر ه دیگه باز نمیشدن
    البته من یوزرهای جدید با نامهای دیگه ساخته بودم مثلا qa یا qc
    ولی نشد اصلا باز نمشد و فقط ادمین باز میشد
    نام کاربری چی گذاشتید؟



  9. #56


    آخرین بازدید
    2023/12/09
    تاریخ عضویت
    February 2015
    نوشته ها
    97
    امتیاز
    48
    سپاس
    8
    سپاس شده
    38 در 23 پست
    سطح اکسل
    61.00 %

    نقل قول نوشته اصلی توسط ~m*e*h*d*i~ نمایش پست ها
    نام کاربری چی گذاشتید؟
    qa
    qc
    pm
    factory
    اینها ار گذاشتم ممکنه باز واحد های دیگه ای اضافه بشه

  10. سپاس ها (1)


  11. #57


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

    نقل قول نوشته اصلی توسط nazi nazi نمایش پست ها
    qa
    qc
    pm
    factory
    اینها ار گذاشتم ممکنه باز واحد های دیگه ای اضافه بشه

    خب شما باید شیت هارو به صورت زیر نام گذاری کنید
    qc-1
    pm-1
    factory-1
    اگر qc شیت دیگه ای نیاز داشت qc-2 و....



  12. سپاس ها (2)


  13. #58


    آخرین بازدید
    2023/12/09
    تاریخ عضویت
    February 2015
    نوشته ها
    97
    امتیاز
    48
    سپاس
    8
    سپاس شده
    38 در 23 پست
    سطح اکسل
    61.00 %

    نقل قول نوشته اصلی توسط ~M*E*H*D*I~ نمایش پست ها

    خب شما باید شیت هارو به صورت زیر نام گذاری کنید
    qc-1
    pm-1
    factory-1
    اگر qc شیت دیگه ای نیاز داشت qc-2 و....
    نمیشه
    حتی یوزر جدید هم ساختم باز وارد یوزر ها نمیشه

  14. #59


    آخرین بازدید
    2022/12/05
    تاریخ عضویت
    October 2011
    محل سکونت
    مشهد
    نوشته ها
    4,374
    امتیاز
    12614
    سپاس
    4,596
    سپاس شده
    11,990 در 3,203 پست
    سطح اکسل
    70.00 %

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

    mehdi.vatanparast@exceliran.com



  15. سپاس ها (1)


  16. #60


    آخرین بازدید
    2023/12/09
    تاریخ عضویت
    February 2015
    نوشته ها
    97
    امتیاز
    48
    سپاس
    8
    سپاس شده
    38 در 23 پست
    سطح اکسل
    61.00 %

    نقل قول نوشته اصلی توسط ~M*E*H*D*I~ نمایش پست ها
    ایمیل کنید فایل رو برام تا چک کنم

    mehdi.vatanparast@exceliran.com
    فرستاده شد

  17. سپاس ها (1)



صفحه 6 از 8 نخستنخست ... 45678 آخرینآخرین

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

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

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

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

  1. آموزش ایجاد سطح دسترسی در اکسل
    توسط ~M*E*H*D*I~ در انجمن توابع در ويژوال بيسيك - Functions in VBA
    پاسخ ها: 35
    آخرين نوشته: 2019/01/08, 22:23
  2. حق دسترسی به افراد
    توسط moslemi در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 0
    آخرين نوشته: 2013/03/14, 00:47
  3. دسترسی به سرور اصلی از طریق VBA
    توسط ~M*E*H*D*I~ در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 0
    آخرين نوشته: 2012/08/09, 16:19

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

بستن سطح دسترسی ویرایش excel

سطح دسترسی چند کاربر exceliran.com

ایجاد سطح دسترسی چند کاربره exceliran.com

صفحات کاری چند کاربره در اکسل

https:forum.exceliran.comshowthread.php4732-پکیج-آموزشی-ایجاد-فایل-چندکاربره-با-سطح-دسترسی-مشخصgoto=newpost

اکسس چند کاربره

استاد‌وطن‌پرست

ایجاد سطح دسترسی در اکسس با وی بی ای

ساخت کامبو باکس در برنامه اکروبات پی دی اف

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

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

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

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