برجاء من اساتذتى في المنتدي المساعده

[sief122]

انا صممت هذا الملف من مساعدتكم ليا بس حتي الان توجد مشكله برجاء مساعدتى علي حلها الملف يعمل بشكل جيد بس عندما ابحث عن اسم وانتهي من البحث واحاول ان اعمل سيريال في العمود المذكور داخل الملف بيرفض عمل السيريال انا اريد كود يسمحلي بعمل السيريال بعد البحث عن اي اسم اثناء غلق الملف بالباسوورد و بدون ما افتح الباسوورد وبدون الغاء الفلتر ولسيادتكم جزيل الشكر والتقدير

رقم الباسوورد 2212

محرك بحث.xlsm

[lionheart]

First manually unprotect the worksheet

Select column O or just select the cells you would like to deal with

Right-Click the selection and select the command Format Cells

Go to Protection tab

Uncheck the option Locked

Protect the worksheet again

Please when posting a question, put a suitable title for the topic

[sief122]

اولا الف شكر على اهتمام حضرتك

ثانيا انا جربت اللى حضرتك قولت عليه بس برده مانفعش هل ممكن حضرتك تجرب اللى حضرتك قولت عليه علي الملف حتي تتاكد انه لايعمل ولسيادتكم جزيل الشكر

[محي الدين ابو البشر]

استبد الكود بـ

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

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Protect "2212"
End Sub

 

[sief122]

برده مانفعش هو ممكن بعد ازن حضرتكم اللي يساعدنى يعمل الكود علي الملف بحيث يتأكد انه يعمل

برجاء من الاخوه الافاضل اللي يعرف حل يفيدني وله الاجر والثواب عند الله 

[محي الدين ابو البشر]

تفضل يا رعاك الله

 

sief122.xlsm

[sief122]

اخي الفاضل انا شاكر حضرتك على مجهودك معايا وجاذاك الله خيرا

بس برده عندما اعمل اسحب الخلايا في العمود o لكي اعمل سيريال الاقيه برده يكرر اول رقم احاول اعمل سيريال من خلاله ولك صورة توضيحيه