SHARE WORKBOOK"FILTER"

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

    • 2010/11/11
    • 362

    SHARE WORKBOOK"FILTER"

    سلام دوستان گرام
    یه مشکل برام پیش اومده خیلیم هم تو نت گشتم ولی حل نشد امیدوارم اساتید بتونن کمک کنند
    من یه فایل تو شبکه شیر کردم که شیتهای اون protect شده اند و وقتی که شیت رو PROTECT میکنی ShowAllData هم کار نمیکنه از کدهای زیر هم استفاده کردم جواب نداد ممنون میشم اساتید راهنمایی کنند چطور یه فایل که شیر شده و هم پروتکت شده رو حذف فیلتر کرد
    کد PHP:
    ActiveWorkbook.UnprotectSharing
    ActiveSheet
    .Unprotect "123"
        
    ActiveSheet.ShowAllData

    ActiveSheet
    .Protect "123"DrawingObjects:=TrueContents:=TrueScenarios:=TrueAllowFiltering:=True
    ActiveWorkbook
    .ProtectSharing 
    [B][COLOR=#000080]مهدی کریمی[/COLOR][/B]
  • m_d6712

    • 2010/05/22
    • 174

    #2
    RE: SHARE WORKBOOK"FILTER"

    نوشته اصلی توسط MEYTI
    سلام دوستان گرام
    یه مشکل برام پیش اومده خیلیم هم تو نت گشتم ولی حل نشد امیدوارم اساتید بتونن کمک کنند
    من یه فایل تو شبکه شیر کردم که شیتهای اون protect شده اند و وقتی که شیت رو PROTECT میکنی ShowAllData هم کار نمیکنه از کدهای زیر هم استفاده کردم جواب نداد ممنون میشم اساتید راهنمایی کنند چطور یه فایل که شیر شده و هم پروتکت شده رو حذف فیلتر کرد
    کد PHP:
    ActiveWorkbook.UnprotectSharing
    ActiveSheet
    .Unprotect "123"
        
    ActiveSheet.ShowAllData

    ActiveSheet
    .Protect "123"DrawingObjects:=TrueContents:=TrueScenarios:=TrueAllowFiltering:=True
    ActiveWorkbook
    .ProtectSharing 
    من این کد رو امتحان کردم جواب داد.
    شما هم امتحان کنید:

    Sub a()
    ActiveWorkbook.UnprotectSharing SharingPassword:="123"
    Application.DisplayAlerts = True
    ActiveSheet.Unprotect "123"
    ActiveSheet.ShowAllData
    ActiveSheet.Protect "123", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True
    ActiveWorkbook.ProtectSharing Password:="123", SharingPassword:="123"
    End Sub


    انشالا که جواب بده برای شما هم

    موفق باشید.
    -------
    [url=http://md6712.com]http://md6712.com[/url]
    جامعه ایده پردازان: http://idekadeh.com

    کامنت

    • MEYTI

      • 2010/11/11
      • 362

      #3
      RE: SHARE WORKBOOK"FILTER"

      خیلی ممنون دوست عزیز جواب داد
      ولی تا اونجایی که من فهمیدم با این کار یبار فایل از حالت شبکه خارج میشه بعد دوباره وصل میشه،و این احتمالا برای کاربرانی که همزمان با این عمل عملیات دیگری روی فایل انجام می دهند مشکل ایجاد می کنه آیا راه دیگری هم هست که فایل از شبکه خارج نشه
      [B][COLOR=#000080]مهدی کریمی[/COLOR][/B]

      کامنت

      • m_d6712

        • 2010/05/22
        • 174

        #4
        RE: SHARE WORKBOOK"FILTER"

        یک صدم ثانیه هم طول نمی کشه! نمی دونم خیلی خیلی بعیده که تو اون لحظه کاربری فایل رو لود کنه!!!!!
        یک CPU 2 گیکا هرتز توانایی پردازش 1 میلیارد عملیات در 3 ثانیه دارد. یعنی 330 میلیون غملیات در ثانیه. حال شما فرض بگیر چون شی گرایی استفاده می کنید و 6 تا فرمان دارید این ماژول رو میتونه حدود 10 میلیون بار انجام بده حدودا دست پایین. یعنی 10^(-7)
        ثانیه. فکر نمی کنم شما باید نگران این مساله باشید اگر درست بنویسید کدتون رو مشکلی پیش نمیاد.

        البته به تعداد کاربر هم بستگی دارد. اگر از یک میلیون کاربر بشتر هستند اون موقع احتمال بیشتر می شود. که این هم غیر ممکن هست. نه اکسل توانایی این اندازه کاربر رو داره و نه سرور شما. پس نگران نباشید.

        -------
        [url=http://md6712.com]http://md6712.com[/url]
        جامعه ایده پردازان: http://idekadeh.com

        کامنت

        • MEYTI

          • 2010/11/11
          • 362

          #5
          RE: SHARE WORKBOOK"FILTER"

          ممنون دوست عزیز بابت پاسخ های فنی و کاملتون و همچنین جالب
          اما یه مشکل دیگر هم که هست این کد روی شبکه بر روی سیتمهای دیگر غیر سیستم اصلی کار نمیکنه و ارور میده
          و روی سیستم اصلی هم فایلرو بعد از اجرای این کد روی MY DOCUMENT ذخیره میکنه نه در محل جاری فایل، برای ورود به فایل هم پسورد میذاره.
          [B][COLOR=#000080]مهدی کریمی[/COLOR][/B]

          کامنت

          • m_d6712

            • 2010/05/22
            • 174

            #6
            RE: SHARE WORKBOOK"FILTER"

            نوشته اصلی توسط MEYTI
            ممنون دوست عزیز بابت پاسخ های فنی و کاملتون و همچنین جالب
            اما یه مشکل دیگر هم که هست این کد روی شبکه بر روی سیتمهای دیگر غیر سیستم اصلی کار نمیکنه و ارور میده
            و روی سیستم اصلی هم فایلرو بعد از اجرای این کد روی MY DOCUMENT ذخیره میکنه نه در محل جاری فایل، برای ورود به فایل هم پسورد میذاره.
            محل جاری فایل رو که میشه با استفاده از کد بگیری و می تونی از دستور Save As برای ذخیره سازی کمک بگیری...

            من فعلا در حال حاضر دسترسی به شبکه ندارم که امتحان کنم اون مورد رو!!!!! متاسفانه!
            قبلا یک چند سرور مجازی روی سیستمم نصب بود اما جدیدا اونا رو پاک کردم. اگر جایی بودم که دسترسی به شبکه داشتم چک می کنم.
            -------
            [url=http://md6712.com]http://md6712.com[/url]
            جامعه ایده پردازان: http://idekadeh.com

            کامنت

            • MEYTI

              • 2010/11/11
              • 362

              #7
              RE: SHARE WORKBOOK"FILTER"

              تشکر دوست عزیز منتظر میمونم
              دوستان دیگه ام که تجربه کار با شبکه اکسل دارند اگه راه حل دیگه ای سراغ دارن ممنون می شم.
              [B][COLOR=#000080]مهدی کریمی[/COLOR][/B]

              کامنت

              • shamsololama

                • 2010/02/15
                • 940

                #8
                RE: SHARE WORKBOOK"FILTER"

                با درود فراوان
                دوست عزیزم برای اینکه فیلتری رو انجام بدی و گزارشگیری کنی معمولا برای فایلی که شر میکنی و چند تا کاربر همزمان استفاده میکنند بهتره که از فرم استفاده کنی و گزارش گیری هم از فرم انجام بدی که نیازی به فیلتر هم پیدا نمکینی و لی برای این موضوع بفرمائید شما از کدوم آفیس استفاده میکنید
                ---------------------------------------------------------------------------------------------------
                بمانیم تا کاری کنیم ،نه کاری کنیم تا بمانیم [size=x-small](دکتر شریعتی)[/size]
                shamsololama@yahoo.com
                09177733411

                کامنت

                • MEYTI

                  • 2010/11/11
                  • 362

                  #9
                  RE: SHARE WORKBOOK"FILTER"

                  با تشکر از جناب شمس العلما
                  بدلیل اینکه تعداد ستونهای گزارشگیری زیاده (حدود30تا) و کاربر باید بتونه بر اساس همه ستونها گزارش بگیره گزارشگیری با فرم مشکل میشه و مستقیم با خود شیت زودتر به نتیجه میرسیم
                  آفیس من هم 2010 است
                  [B][COLOR=#000080]مهدی کریمی[/COLOR][/B]

                  کامنت

                  چند لحظه..