السلام عليكم ورحمة الله وبركاته
مطلوب التعديل على الكود المرفق
Sub lockCells()
Application.EnableEvents = False
Dim X As Worksheet
For Each X In ThisWorkbook.Worksheets
With X
.Unprotect Password:="123"
.Cells.Locked = False
With .Cells.SpecialCells(-4123, 23)
.Locked = True
.FormulaHidden = True
End With
.Protect Password:="123", AllowFormattingCells:=True, AllowFiltering:=True, AllowSorting:= _
True, DrawingObjects:=True, Contents:=True, Scenarios:=True, userinterfaceonly:=True
End With
Next X
Application.EnableEvents = True
End Sub
هذا الكود يقوم بعمل حماية على اى خلية تحتوى على معادلات مع تمكين المستخدم من تنسيق الخلايا والفرز والترتيب والفلترة
كل شىء يعمل جيدا عدا الفلترة فياريت التعديل عليه حتى يتيح فلترة البيانات