ایجاد محدودیت در فیلتر کردن جدول

**armani** · 2019/09/03, 09:25

سلام دوستان
میشه راهنمایی بفرمایید؟

**mokaram** · 2019/09/03, 13:24

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

**armani** · 2019/09/03, 17:34

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

**armani** · 2019/09/05, 17:43

دوستان راه حلی وجود ندارد؟

**M_ExceL** · 2019/09/06, 04:12

نوشته اصلی توسط armani

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

سلام،
شما می تونید مقادیری که قصد فیلتر انها را دارید در یک شیت وارد کنید سپس با vba اونها رو در شیت اصلی فیلتر کنید
برای اینکه کاربر نتونه ایتم های دیگری را فیلتر کنه می بایست شیت حالت Protect داشته باشد.
بنابراین ابتدا شیت رو Unprotect می کنیم سپس بعد از عملیات فیلتر مجددا اون رو در حالت Protect قرار میدیم.

کد:

Sub m_excel()
mypass = "123"
Dim i, lr As Long
Dim myArray As Variant
    Sheets(2).Unprotect mypass
    Sheets(2).AutoFilterMode = False
    lr = Sheets(1).Cells(Rows.Count, 1).End(3).Row
        ReDim myArray(1 To lr)
            For i = 1 To lr - 1
                myArray(i) = "" & Sheets(1).Range("a" & i + 1).Value & ""
            Next i
    Sheets(2).Range("A1").AutoFilter
    Sheets(2).Range("A1").AutoFilter Field:=1, Criteria1:=myArray, Operator:=xlFilterValues
    Sheets(2).Protect mypass
End Sub

فایل پیوست را بررسی بفرمایید، مقادیری که می خواهید فیلتر شوند می بایست در شیت "filtervalues" وارد شوند.
سپس در شیت دوم روی فیلتر کلیک کنید.
یا حق.

فایل های پیوست شده