قفل شدن سلول بعد از وارد کردن اطلاعات

Collapse
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • شهاب1400

    • 2021/03/19
    • 10

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

    کامنت

    • iranweld

      • 2015/03/29
      • 3341

      #17
      در فایل پیوست بعد از save کردن ، سلولهای دارای دیتا قفل میگردد

      امکان رمز مجزا برای ستونهای مختلف امکان پذیر نیست.


      Click image for larger version

Name:	1.png
Views:	1
Size:	44.8 کیلو بایت
ID:	138709
      فایل های پیوست شده

      کامنت

      • iranweld

        • 2015/03/29
        • 3341

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


        Click image for larger version

Name:	1.png
Views:	1
Size:	135.9 کیلو بایت
ID:	138710
        Last edited by iranweld; 2021/03/30, 13:57.

        کامنت

        • میثم مقدم نیا

          • 2017/03/23
          • 558
          • 41.00

          #19
          نوشته اصلی توسط شهاب1400
          سلام
          منظور من این است که پس از وارد کردن اعداد داخل سلول به صورت اتوماتیک قفل نشود و موقعی که ما save را زدیم قفل شود و قابل ویرایش نباشد مگر اینکه رمز رو داشته باشه( باز هم تکرار می کنم که پس از زدن save قفل شود و قابل ویرایش نباشد)
          موضوع دوم اینکه رمز کل شیت به صورت واحد نباشد مثلا ستونهای A تا D یک رمز جداگانه داشته باشد و ستونهای L تا Q هم رمز جداگانه داشته باشد.
          تشکر
          سلام

          دوست عزیز برای بخش اول سوالتون باید شما یک بخش خاصی را انتخاب یا کل صفحه را قفل کنید

          در مورد بخش دوم سوالتونم گم نکنم بشه دو تا پسورد را به یک Workbook اختصاص داد
          [HR][SIZE=5][COLOR="#0000FF"][FONT=Times New Roman][B] در سرزمینی کہ نتوان مردانہ زیست ، مردانہ مردن بهتر از این زندگیست [/B][/FONT][/COLOR][/SIZE][/HR]

          کامنت

          • شهاب1400

            • 2021/03/19
            • 10

            #20
            سلام
            cell.locked = true رو ایراد میگیره
            این کد رو کجا باید بنویسم
            Private Sub Worksheet_SelectionChange(ByVal Target As Range)
            If Target = "" Then
            ActiveSheet.Unprotect Password:="xx"
            Target.Locked = False
            End If
            ActiveSheet.Protect Password:="xx"
            End Sub

            کامنت

            • شهاب1400

              • 2021/03/19
              • 10

              #21
              میشه بیشتر توضیح بدید
              کاری که شما انجام دادید رو اجرا کردم ولی نشد

              کامنت

              • شهاب1400

                • 2021/03/19
                • 10

                #22
                این رو ایراد میگیره
                ActiveSheet.Unprotect Password:="xx"

                - - - Updated - - -

                " بعد x هست تو تایپ اشتباه شد

                کامنت

                • محمد نژاد
                  • 2021/06/29
                  • 1

                  #23
                  سلام
                  محل بارگذاری این فرمول رو میشه توضیح بدید.ممنون

                  کامنت

                  • حسام بحرانی

                    • 2013/09/29
                    • 2065
                    • 72.00

                    #24
                    Vba

                    نوشته اصلی توسط محمد نژاد
                    سلام
                    محل بارگذاری این فرمول رو میشه توضیح بدید.ممنون
                    سلام دوست عزیز
                    به انجمن اکسل ایران خوش آمدید.

                    این دستورات مربوط به برنامه نویسیِ اکسل است.

                    برای اینکه به این کدها دسترسی داشته باشید کافیه یکی از فایل های این تاپیک را باز کنید و با زدن کلیدهای ترکیبی
                    Alt و F11 ، وارد محیط برنامه نویسی بشید.
                    موفق باشید.
                    [CENTER][B][SIZE=5][COLOR=#006600][FONT=georgia][COLOR=#800000]!With [/COLOR][/FONT][/COLOR][COLOR=#006600][FONT=georgia]God [/FONT][/COLOR][COLOR=#006600][FONT=georgia][COLOR=#800000]all [/COLOR][/FONT][/COLOR][COLOR=#800000][FONT=georgia]things are [/FONT][/COLOR][COLOR=#006600][FONT=georgia]possible[/FONT][/COLOR][/SIZE][/B][B][FONT=Tahoma]
                    [/FONT][/B][/CENTER]
                    [CENTER][B][FONT=Tahoma] [IMG]http://forum.exceliran.com/attachment.php?attachmentid=5334&d=1419428336[/IMG]
                    [/FONT][/B][SIZE=1][FONT=Tahoma][B][FONT=Tahoma]
                    [/FONT][/B][/FONT][/SIZE]
                    [/CENTER]

                    کامنت

                    چند لحظه..