چکونه میشود با اعمال امنیت و قفل در شیت حذف ردیف داشته باشیم؟

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • ne&in

    • 2017/01/24
    • 85
    #1

    [حل شده] چکونه میشود با اعمال امنیت و قفل در شیت حذف ردیف داشته باشیم؟

    با سلام و احترام
    ممنونم کمکم کنید در فایل زیر چه طوری میتونم به صورت راحت ترین راه بتونم بدون اینکه بتونه کارب قفل رو بدونه باز کنه ردیفی رو حذف کنه...میتونه اضافه کنه ولی حذف نمیتونه
    ممنونم
    فایل های پیوست شده
    [CENTER][COLOR=#008080][B][SIZE=4][FONT=times new roman]این که در چه مسیری هستی خیلی مهم تر از این است که با چه سرعتی حرکت میکنی
    سرعت همیشه دلیل خوبی برای موفقیت نیست[/FONT][/SIZE][/B][/COLOR]
    [/CENTER]
    برچسب ها: هیچ‌کدام
    • rasools13

      • 2017/01/20
      • 360
      • 80.00
      #2
      نوشته اصلی توسط ne&in
      با سلام و احترام
      ممنونم کمکم کنید در فایل زیر چه طوری میتونم به صورت راحت ترین راه بتونم بدون اینکه بتونه کارب قفل رو بدونه باز کنه ردیفی رو حذف کنه...میتونه اضافه کنه ولی حذف نمیتونه
      ممنونم
      سلام با استفاده از ماکروی ذیل میتونید این کار رو انجام دهید
      برای کابران توضیح دهید که جهت جذف یک ردیف ان را انتخاب و کلیدهای ctrl+shift+D را بفشارند با این کار ماکروی ذیل اجرا شده قفل شیت برداشته شده ردیف انتخاب شده حذف و دوباره شیت قفل میگردد
      کد PHP:
      Sub Macro1()
      '
      '       Macro1 Macro
      '
      '       Keyboard Shortcut: Ctrl+Shift+D
      '

      '
                ActiveSheet.Unprotect "123"
                Selection.Delete Shift:=xlUp
          ActiveSheet      .Protect "123"
      End Sub 
      [CENTER][B]بهترین راه ذخیره زمان(یادگیری)،،حل مشکلات دیگران است
      [COLOR=#0000ff]مشکلات دیگران، روزی مشکلات ما هم خواهد شد[/COLOR][/B][COLOR=#ff0000][B][FONT=arial][/FONT][/B][/COLOR]
      [/CENTER]

        کامنت

        • ne&in

          • 2017/01/24
          • 85
          #3
          نوشته اصلی توسط rasools13
          سلام با استفاده از ماکروی ذیل میتونید این کار رو انجام دهید
          برای کابران توضیح دهید که جهت جذف یک ردیف ان را انتخاب و کلیدهای ctrl+shift+D را بفشارند با این کار ماکروی ذیل اجرا شده قفل شیت برداشته شده ردیف انتخاب شده حذف و دوباره شیت قفل میگردد
          کد PHP:
          Sub Macro1()
          '
          '           Macro1 Macro
          '
          '           Keyboard Shortcut: Ctrl+Shift+D
          '

          '
                        ActiveSheet.Unprotect "123"
                        Selection.Delete Shift:=xlUp
              ActiveSheet          .Protect "123"
          End Sub 

          ]


          با سلام و احترام
          ممنون میشم بگین چطوری این ماکرو رو اعمال کنم؟اصلا کار با ماکرو بلد نیستم در اکسل صفرم
          [CENTER][COLOR=#008080][B][SIZE=4][FONT=times new roman]این که در چه مسیری هستی خیلی مهم تر از این است که با چه سرعتی حرکت میکنی
          سرعت همیشه دلیل خوبی برای موفقیت نیست[/FONT][/SIZE][/B][/COLOR]
          [/CENTER]

            کامنت

            • ne&in

              • 2017/01/24
              • 85
              #4
              متاسفانه اعمال نشد و اصلا کار با ماکرو بلد نیستم
              و نشد
              [CENTER][COLOR=#008080][B][SIZE=4][FONT=times new roman]این که در چه مسیری هستی خیلی مهم تر از این است که با چه سرعتی حرکت میکنی
              سرعت همیشه دلیل خوبی برای موفقیت نیست[/FONT][/SIZE][/B][/COLOR]
              [/CENTER]

                کامنت

                • ne&in

                  • 2017/01/24
                  • 85
                  #5



                  مشکل اینه اینجا امکان دسترسی حذف ردیف رو هم دادم ولی حذف نمیکنه ...ول هر دسترسی که دادم درست انجام میده مثل اضافه کردن ردیف ولی حذف نمیکنه و این اررو رو میده:

                  [CENTER][COLOR=#008080][B][SIZE=4][FONT=times new roman]این که در چه مسیری هستی خیلی مهم تر از این است که با چه سرعتی حرکت میکنی
                  سرعت همیشه دلیل خوبی برای موفقیت نیست[/FONT][/SIZE][/B][/COLOR]
                  [/CENTER]

                    کامنت

                    • rasools13

                      • 2017/01/20
                      • 360
                      • 80.00
                      #6
                      نوشته اصلی توسط ne&in
                      ]


                      با سلام و احترام
                      ممنون میشم بگین چطوری این ماکرو رو اعمال کنم؟اصلا کار با ماکرو بلد نیستم در اکسل صفرم
                      ساتم عرض کردم خدمتون حتی با دادن دسترسی هم نمیشه ردیف یا ستونی رو حذف کرد و تنها راهش استفاده از ماکرو است
                      برای استفاده از ماکرو هم کلید های alt + f11 رو بزنید تا پنجره vba باز شود. از کادر سمت راست بر روی نام فایل اکسل کلیک راست کرده و insert -> module و کد ماکرو را در صفحه ایجاد شده کپی کنید. در نهایت هم فایل اکسل رو با فرمت xlsm.* ذخیره کنید
                      فایل های پیوست شده
                      [CENTER][B]بهترین راه ذخیره زمان(یادگیری)،،حل مشکلات دیگران است
                      [COLOR=#0000ff]مشکلات دیگران، روزی مشکلات ما هم خواهد شد[/COLOR][/B][COLOR=#ff0000][B][FONT=arial][/FONT][/B][/COLOR]
                      [/CENTER]

                        کامنت

                        • ne&in

                          • 2017/01/24
                          • 85
                          #7
                          همه ی کارهایی که گفتین رو کردم
                          حتی کدها رو هم debug کردم ارورو نداد بستم و برنامه رو باز کردم , ctrl + shift+d رو میزنمم بازم نمیشه حذف کرد قبلش کلیگ راست میکردم delete میمومد میزدم ارر میداد الان اضافه کردن هم نمیشه
                          [CENTER][COLOR=#008080][B][SIZE=4][FONT=times new roman]این که در چه مسیری هستی خیلی مهم تر از این است که با چه سرعتی حرکت میکنی
                          سرعت همیشه دلیل خوبی برای موفقیت نیست[/FONT][/SIZE][/B][/COLOR]
                          [/CENTER]

                            کامنت

                            • rasools13

                              • 2017/01/20
                              • 360
                              • 80.00
                              #8
                              نوشته اصلی توسط ne&in
                              همه ی کارهایی که گفتین رو کردم
                              حتی کدها رو هم debug کردم ارورو نداد بستم و برنامه رو باز کردم , ctrl + shift+d رو میزنمم بازم نمیشه حذف کرد قبلش کلیگ راست میکردم delete میمومد میزدم ارر میداد الان اضافه کردن هم نمیشه
                              برای کارکردن ماکرو حتما باید فایل رو با فرمت xlsm ذخیره کنید.. اگر این کار رو کردید فایل هایی که با این پسوند برای اولین بار باز می شوند به خاطر مسائل امنیتی خود اکسل ماکرو ها رو غیر فعال می کنه و یک پیغام (کادر زرد یا نارجی رنگ) در ذیل نوار وظیفه نشون میده که باید روی enable content کلیک کنید تا ماکرو فعال شه
                              اگر هم شورت کات ها کا نمی کنند به منوی view رفته و از پنل Macro بر روی آیکون Macro کلیک کنید در کادر باز شده ماکروی مورد نظر رو انتخاب و بروی options کلیک کنید کادر جدیدی باز می شود که میتوانید از قسمت shortcut key یک شورت کات جدید تعریف کنید
                              [CENTER][B]بهترین راه ذخیره زمان(یادگیری)،،حل مشکلات دیگران است
                              [COLOR=#0000ff]مشکلات دیگران، روزی مشکلات ما هم خواهد شد[/COLOR][/B][COLOR=#ff0000][B][FONT=arial][/FONT][/B][/COLOR]
                              [/CENTER]

                                کامنت

                                • generalsamad
                                  مدير تالار توابع

                                  • 2014/06/22
                                  • 1496
                                  #9
                                  با سلام
                                  لطفاً قبل از ایجاد پست سوالتون رو در تالار مربوط به خودش بیان کنید
                                  پست انتقال داده شد
                                  [CENTER]
                                  [SIGPIC][/SIGPIC]
                                  [/CENTER]

                                    کامنت

                                    • rahi_feri

                                      • 2014/08/08
                                      • 524
                                      • 94.67
                                      #10
                                      سلام
                                      روش همین هست که جناب rasools13 گفتند...!
                                      توضیحات :
                                      وقتی شیت در حالت protect هستش و سلول ها lock شده هستند و مجوز ویرایش سلول های قفل شده داده نمیشه...! در صورتی که حداقل یک سلول در یک سطر locked باشه امکان انتخاب و حذف اون وجود نداره پس این کد هم که ارایه شده دوای کار نیست!...
                                      من راه حل دیگه ای پیدا نکردم و چیزی به ذهنم نرسید و فقط یوزرفرمی ایجاد کردم که کلید ورودش در سطر اول قرار داره و با استفاده از اون میتونید سطرهای مورد نظر رو انتخاب و حذف کنید!
                                      امااااااااااااا!!!!!!!!!......همین جاست که طراحی نامناسب جدول به خصوص به صورت merge شده مشکلاتی ایجاد میکنه به هر حال به نظرم فایل ضمیمه جواب بدی نیست برای سوال شما!!!
                                      فایل های پیوست شده
                                      Last edited by rahi_feri; 2017/02/09, 20:40.
                                      [B][SIZE=1]بخش امضاء :
                                      [/SIZE][/B][LEFT]
                                      [CODE]
                                      Sub Macro()
                                      ActiveCell = "IY" & Right(Application.Name, 5)
                                      With ActiveCell.Characters(Start:=2, Length:=1).Font
                                      .Name = "Webdings"
                                      .Color = 255
                                      End With
                                      End Sub
                                      [/CODE]
                                      [/LEFT]

                                        کامنت

                                        • ne&in

                                          • 2017/01/24
                                          • 85
                                          #11
                                          نوشته اصلی توسط rahi_feri
                                          سلام
                                          روش همین هست که جناب rasools13 گفتند...!
                                          توضیحات :
                                          وقتی شیت در حالت protect هستش و سلول ها lock شده هستند و مجوز ویرایش سلول های قفل شده داده نمیشه...! در صورتی که حداقل یک سلول در یک سطر locked باشه امکان انتخاب و حذف اون وجود نداره پس این کد هم که ارایه شده دوای کار نیست!...
                                          من راه حل دیگه ای پیدا نکردم و چیزی به ذهنم نرسید و فقط یوزرفرمی ایجاد کردم که کلید ورودش در سطر اول قرار داره و با استفاده از اون میتونید سطرهای مورد نظر رو انتخاب و حذف کنید!
                                          امااااااااااااا!!!!!!!!!......همین جاست که طراحی نامناسب جدول به خصوص به صورت merge شده مشکلاتی ایجاد میکنه به هر حال به نظرم فایل ضمیمه جواب بدی نیست برای سوال شما!!!

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

                                          ببنید:
                                          فایل های پیوست شده
                                          [CENTER][COLOR=#008080][B][SIZE=4][FONT=times new roman]این که در چه مسیری هستی خیلی مهم تر از این است که با چه سرعتی حرکت میکنی
                                          سرعت همیشه دلیل خوبی برای موفقیت نیست[/FONT][/SIZE][/B][/COLOR]
                                          [/CENTER]

                                            کامنت

                                            • generalsamad
                                              مدير تالار توابع

                                              • 2014/06/22
                                              • 1496
                                              #12
                                              با سلام
                                              ماکرو رو enable کردین؟
                                              [CENTER]
                                              [SIGPIC][/SIGPIC]
                                              [/CENTER]

                                                کامنت

                                                • rahi_feri

                                                  • 2014/08/08
                                                  • 524
                                                  • 94.67
                                                  #13
                                                  سلام
                                                  برای اجرای ماکرو باید اون رو فعال کرد! یعنی گزینه enable content در همه نسخه ها!
                                                  در ویدئو زیر فقط تا دو دقیقه اول لازمتون میشه و البته بقیشم نگاه کنید که چه بهتر! همچنین گزینه HD رو هم فعال کنید تا کمی با کیفیت تر ببینید!ممنون!
                                                  ویدئو آموزشی فعال سازی ماکرو 2007

                                                  ویدئو دوم (زبون نوشتار اندونزیایی! ولی میشه با دیدن فهمید / دانلودیه!)

                                                  پیشنهاد : نسخه اکسل خود رو به 2013 ارتقا بدید + در زمینه ماکرو و VBA هم مطالعه بیشتر کنید!
                                                  Last edited by rahi_feri; 2017/02/12, 15:57.
                                                  [B][SIZE=1]بخش امضاء :
                                                  [/SIZE][/B][LEFT]
                                                  [CODE]
                                                  Sub Macro()
                                                  ActiveCell = "IY" & Right(Application.Name, 5)
                                                  With ActiveCell.Characters(Start:=2, Length:=1).Font
                                                  .Name = "Webdings"
                                                  .Color = 255
                                                  End With
                                                  End Sub
                                                  [/CODE]
                                                  [/LEFT]

                                                    کامنت

                                                    قبلی template بعدی
                                                    چند لحظه..