اريد المعرفه

[sief122]

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

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

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

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

[lionheart]

First, manually unprotect the worksheet from Review tab and the command Unprotect Worksheet

 

From [Developer] tab > click on [Design Mode] > Right-click the activex textbox and select the [Format Control] > from [Protection] tab, uncheck [Locked] option

 

 

 

 

Exit [Design Mode]

Finally, change the code in worksheet module (you may encounter the error message of protection for once then it will work normally)

Private Sub TextBox1_Change()
    Const sPass As String = "2212"
    With ActiveSheet
        .Protect Password:=sPass, DrawingObjects:=False
        Application.ScreenUpdating = False
            .ListObjects("data").Range.AutoFilter Field:=7, Criteria1:="*" & [F2] & "*", Operator:=xlFilterValues
        Application.ScreenUpdating = True
    End With
End Sub