برجاء معرفة مكان الخطاء

[sief122]

عندي ملف بحث واريد غلق الخلايا بباسوورد كود البحث يعمل بشكل جيد  بدون اخطاء بس عندما اغلق الخلايا بباسوورد كود البحث لايعمل برجاء تعديل الكود الباسوورد ٢٢١٢

محرك بحث ديناميكي.xlsm

تم تعديل أبريل 16, 2023 بواسطه sief122

[حسونة حسين]

السلام عليكم ورحمه الله وبركاته وبها نبدأ

عدل f2 الى TextBox1

Private Sub TextBox1_Change()
    ActiveSheet.Unprotect "2212"
    Application.ScreenUpdating = False
    ActiveSheet.ListObjects("data").Range.AutoFilter Field:=7, Criteria1:="*" & TextBox1 & "*", Operator:=xlFilterValues
    Application.ScreenUpdating = True
    ActiveSheet.Protect "2212"
End Sub

واجعل Linkedcell فارغه

 

[sief122]

ماشاء الله بارك الله فيك وجازاك كل خير وجعلك عونا للمحتاجين شكرا جدا

[حسونة حسين]

وجزاكم مثله اخى

الحمد لله الذي بنعمته تتم الصالحات