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

موضوع: سطح دسترسی متفاوت برای هر کاربر

  1. #1


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    800
    امتیاز
    1683
    سپاس
    594
    سپاس شده
    1,258 در 438 پست
    تعیین سطح نشده است

    سطح دسترسی متفاوت برای هر کاربر

    سلام
    ی فرم درست کردم که هر کاربر بر حسب تعریف سطح دسترسی خاص خودشو داره
    مثلا این نمونه کد
    کد:
    If ComboBox1.Column(0) = "ADMIN" ThenSheet1.Visible = xlSheetVisible
    Sheet2.Visible = xlSheetVisible
    Sheet3.Visible = xlSheetVisible
    Sheet1.Select
    Application.Windows.Application.Visible = True
    End
    
    
    ElseIf ComboBox1.Column(0) = "A" Then
    
    
    Sheet2.Visible = xlSheetVisible
    Sheet2.Select
    End
    اینجا کاربر admin به هر 3 تا شیت دسترسی داره و کاربر A فقط شیت 2
    از طرفی من ی کد دارم که کاربرد دو کلید del و backspace رو از شیت ها غیرفعال میکنه

    حالا سوالم اینه ایا راهی هست که این کد غیر فعال کردن دکمه برای کاربر a فعال باشه؟ و برای Admin تاثیری نداشته باشه؟
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    پاسخ مورد نظر براي اين تاپيك ارسال شده است.



  2.  

  3. #2


    آخرین بازدید
    42 دقیقه پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,493
    امتیاز
    12381
    سپاس
    8,957
    سپاس شده
    10,652 در 3,762 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط absorkhi نمایش پست ها
    سلام
    ی فرم درست کردم که هر کاربر بر حسب تعریف سطح دسترسی خاص خودشو داره
    مثلا این نمونه کد
    کد:
    If ComboBox1.Column(0) = "ADMIN" ThenSheet1.Visible = xlSheetVisible
    Sheet2.Visible = xlSheetVisible
    Sheet3.Visible = xlSheetVisible
    Sheet1.Select
    Application.Windows.Application.Visible = True
    End
    
    
    ElseIf ComboBox1.Column(0) = "A" Then
    
    
    Sheet2.Visible = xlSheetVisible
    Sheet2.Select
    End
    اینجا کاربر admin به هر 3 تا شیت دسترسی داره و کاربر A فقط شیت 2
    از طرفی من ی کد دارم که کاربرد دو کلید del و backspace رو از شیت ها غیرفعال میکنه

    حالا سوالم اینه ایا راهی هست که این کد غیر فعال کردن دکمه برای کاربر a فعال باشه؟ و برای Admin تاثیری نداشته باشه؟
    سلام. بله امكان پذيره
    كافيه يك if بذارين و بگين مثلا اگر يوزري كه وارد شده ادمين بود اين كارها رو انجام نده و goto به خط بعد از دستورات غير فعال كردن دكمه ها
    البته راه هاي رسيدن به خدا چي؟زياده!


  4. #3


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    800
    امتیاز
    1683
    سپاس
    594
    سپاس شده
    1,258 در 438 پست
    تعیین سطح نشده است

    استاد عزیز ممنونم
    اما ی سوال
    خدا تو راه های رسیدنش احیانا نگفته واسه بنده خنگی مثل من یه مثال هم بزنین (*_^)؟؟؟


  5. سپاس ها (1)


  6. #4


    آخرین بازدید
    42 دقیقه پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,493
    امتیاز
    12381
    سپاس
    8,957
    سپاس شده
    10,652 در 3,762 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط absorkhi نمایش پست ها
    استاد عزیز ممنونم
    اما ی سوال
    خدا تو راه های رسیدنش احیانا نگفته واسه بنده خنگی مثل من یه مثال هم بزنین (*_^)؟؟؟

    من كه چيزي در اين خصوص نديدم

    من جاي شما باشم براي اينكه كارم حرفه اي تر باشه يك فانكشن تعريف ميكنم اينطوري:
    کد:
    Function keylock(Optional value As Boolean)
    If value Then
        key lock codes
    Else
        key unlock codes
    End If
        
    End Function


  7. #5


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    800
    امتیاز
    1683
    سپاس
    594
    سپاس شده
    1,258 در 438 پست
    تعیین سطح نشده است

    این کد قفل کلید
    کد:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)         Dim rngCell As Range
        If Not Application.Intersect(Target, Me.Range("c1:c10")) Is Nothing Then
            For Each rngCell In Application.Intersect(Target, Me.Range("c1:c10"))
                If Me.Cells(rngCell.Row, "A").Value <> "Pending" Then
                    Application.OnKey "{DEL}", ""
                    Application.OnKey "{BACKSPACE}", ""
                    Exit For
                Else
                    Application.OnKey "{DEL}"
                    Application.OnKey "{BACKSPACE}"
                End If
            Next rngCell
        Else
            Application.OnKey "{DEL}"
            Application.OnKey "{BACKSPACE}"
        End If
         
    End Sub
    اینم کد یورز فرم
    کد:
    Private Sub CommandButton1_Click()
    
    If TextBox1.Text = ComboBox1.Column(1) Then
    MsgBox (" ÎæÔ ÂãÏíÏ " + ComboBox1.Column(0))
    If ComboBox1.Column(0) = "ADMIN" Then
    Sheet1.Visible = xlSheetVisible
    
    
    Sheet2.Visible = xlSheetVisible
    Sheet3.Visible = xlSheetVisible
    Sheet1.Select
    Application.Windows.Application.Visible = True
    End
    
    
    ElseIf ComboBox1.Column(0) = "A" Then
    
    
    Sheet2.Visible = xlSheetVisible
    Sheet2.Select
    End
    ElseIf ComboBox1.Column(0) = "B" Then
    
    
    Sheet3.Visible = xlSheetVisible
    Sheet3.Select
    End
    
    
    End If
    Else
    
    
    
    
    MsgBox ("äÇã ˜ÇÑÈÑí íÇ ÑãÒ ÚÈæÑ ÇÔÊÈÇå ÇÓÊ")
    
    
    End If
    
    
    End Sub
    ویرایش توسط ali.b : 2014/07/26 در ساعت 11:18


  8. سپاس ها (1)


  9. #6


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    800
    امتیاز
    1683
    سپاس
    594
    سپاس شده
    1,258 در 438 پست
    تعیین سطح نشده است

    التماس دعا داریم


  10. سپاس ها (1)


  11. #7


    آخرین بازدید
    42 دقیقه پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,493
    امتیاز
    12381
    سپاس
    8,957
    سپاس شده
    10,652 در 3,762 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط absorkhi نمایش پست ها
    التماس دعا داریم
    محتاجيم به دعا

  12. سپاس ها (1)


  13. #8


    آخرین بازدید
    تاریخ عضویت
    January 2014
    نوشته ها
    800
    امتیاز
    1683
    سپاس
    594
    سپاس شده
    1,258 در 438 پست
    تعیین سطح نشده است

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


  14. #9


    آخرین بازدید
    2018/11/27
    تاریخ عضویت
    March 2013
    محل سکونت
    Tehran
    نوشته ها
    31
    امتیاز
    12
    سپاس
    0
    سپاس شده
    12 در 9 پست
    تعیین سطح نشده است

    دوست عزیز
    عرض سلام و ادب
    میشه خواهش کنم فایل نهایی تون رو بزارین اینجا که بنده و امثال من با مهندسی معکوس یاد بگیریم ؟
    ممنون


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

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

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

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

  1. پکیج آموزشی ایجاد فایل چندکاربره با سطح دسترسی مشخص
    توسط ~M*E*H*D*I~ در انجمن پشتيباني محصولات فروشگاه - Products Support
    پاسخ ها: 76
    آخرين نوشته: 2021/02/22, 22:09
  2. گذاشتن رمزهای متفاوت برای شیت های متفاوت
    توسط taknavaz123 در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 7
    آخرين نوشته: 2013/04/15, 13:17
  3. حق دسترسی به افراد
    توسط moslemi در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 0
    آخرين نوشته: 2013/03/14, 00:47
  4. دسترسی به سرور اصلی از طریق VBA
    توسط ~M*E*H*D*I~ در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 0
    آخرين نوشته: 2012/08/09, 16:19

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

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

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

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

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

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