فیلتر پیشرفته

[face_2_faces]

سلام به همه عزیزان و سروران گرامی
دوستان من یک بانک اطلاعاتی دارم برا اداره درست میکنم که فعلا ناقصه و تا پایان عید قراره تمومش کنم و فایل اکسلش بین چند همکار شیر هستش (پیوستش کردم).من فکر میکنم بعضی از همکارا دارن از موقعیت شغلیشون سوء استفاده رو میکنن برا همین روی بعضی از شیت ها قراره پسورد بذارم که فغلا از این قضیه بگذریم.همونطور که در شیت تخصیص 2 میبینید از ستون a تا f رو یکی از همکارا در شیت قبل پر کرده فقط جهت دیده شدن اومده تو این شیت و قفل میشه سل هاش که قابل تغییر نباشه.و با دیدن این مشخصات همکار بعدی عددها رو در ستونهای h تا m وارد میکنه.اما همکارای من در شیت تخصیص 2 باید در قسمت نام واحد فیلتر بکنن و بعد بر این اساس دیتا ها رد در ستونهای h تا m وارد کنند.الان 2 تا مشکل دارم.اولیش اینکه وقتی فیلتر میکنن نام یک واحدو.خود به خود اکسل در ستون f مثلا میره رو ردیف پنجاهم چون ممکنه 50 بار نام یک واحد خاص وارد شده باشه.ولی در ستون f باید در ستون سوم(مثلا)وارد کنن اطلاعاتو.یعنی هی باید فیلتر کنن و هی برگردن به حالت قبل و این مشکل سازه.
دومین مشکلمم اینه که دوستان یک عدد رو وارد میکنن تو هر ستونی ولی ممکنه بعد از صدور تخصیص اونو عوض کنن و هیچکس متوجه نشه.اگه بخوامم هی قفل کنم هی باز کنم یک سل رو خیلی برام سخته و مشکل ساز.نمیشه یک ایکن تیک گذاشت که وقتی اون زده شد دیگه قابل تغییر نباشه چند ستون

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[face_2_faces]

فایل پیوست یادم رفت ببخشید
انجمن اکسل ایران

[iranweld]

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

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

[face_2_faces]

ببخشید.
http://uplod.ir/g09vcdk7v3t0/_ورات.xlsx.htm
من این همه توضیح دادم
مشکل اولم اینه که میخوام اطلاعت یک شیت دیگه رو تو شیت دیگه بتونم فیلتر کنم.فکر کنم بالا توضیح کامل دادم.ی نگاهی کنید ببینید فایل رو

[face_2_faces]

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

[iranweld]

در فایل پیوست بعد از ورود دیتا در سلولهای شیت "درخواست تخصیص" ، سلول قفل میگردد و ویرایش مقدور نیست

رمز شیت 12345

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

ActiveSheet.Unprotect Password:="12345"
    
        If Target.Value <> "" Then
            Target.Locked = True
            Else
             Target.Locked = False
        End If
    
    ActiveSheet.Protect Password:="12345"
   

End Sub 

[face_2_faces]

در فایل پیوست بعد از ورود دیتا در سلولهای شیت "درخواست تخصیص" ، سلول قفل میگردد و ویرایش مقدور نیست

رمز شیت 12345

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next

ActiveSheet.Unprotect Password:="12345"
    
        If Target.Value <> "" Then
            Target.Locked = True
            Else
             Target.Locked = False
        End If
    
    ActiveSheet.Protect Password:="12345"
   

End Sub 

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

[iranweld]

در فایل پیوست در صورت تایپ شدن OK در سلول ستون M آن ردیف قفل شده و قابل ویرایش توسط کاربر نمیباشد

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Me.Range("m:m")) Is Nothing Then

On Error Resume Next

xx = Target.Row

ActiveSheet.Unprotect Password:="12345"
    
        If LCase(Target.Value) = "ok" Then

                       Range("b" & xx & ":m" & xx).Locked = True

            Else

             Range("b" & xx & ":m" & xx).Locked = False
        End If
    
    ActiveSheet.Protect Password:="12345"
    
   End If

End Sub 

[face_2_faces]

فوق العاده بود.یک دنیا ممنون.فقط اگه من بخوام ok تو ستون t نوشته بشه تا فقل صورت بگیره.فرمول چه تغییری میکنه؟

[iranweld]

در خط ذیل

 If LCase(Target.Value) = "ok" Then 

بجای کلمه OK حرف t را بنویسید