پرسش قفل کردن اکسل

[taha2]

باسلام به دوستان
من یک فایل اکسل را قفل کرده ام واطلاعات وارد کرده ام وقتی که می خواهم اطلاعاتی راکه وارد کرده ام فیلتر جستجو را باز کنم وسرچ کنم ،تیک فیلتر هم قفل شده واطلاعات را به من نمی دهد باید چکار کنم که تیک فیلتر باز شود.
لطفا راهنمایی کنید .اگر امکان دارد یک فایل تصویری به ایمیل من بفرستید ممنون میشم.
trabymhmd405@gmail.com

[saed.rasa]

سلام
به انجمن محبوب اکسل ایران، خوش آمدید!

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

مرسی

[majid_mx4]

ضمن تشکر از دوستان پاسخگو و با کسب اجازه

با فرض اینکه نام شیت شما Main و رمز شیت 123 باشد میتوانید از کد زیر استفاده نمایید.
کلید های Alt+F11 را زده روی شیت مورد نظر کلیک کرده و کد زیر را به آن انتقال دهید.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Main")

ws.Unprotect Password:="123"
    ws.EnableAutoFilter = True
    ws.Protect userinterfaceonly:=True
ws.Protect Password:="123"

End Sub

موفق باشید میر