البحث في الموقع
Showing results for tags 'الغاء حماية / تصفية تلقائية'.
تم العثور علي 1 نتيجه
-
السلام عليكم كيف يمكن الغاء حماية الورقة قبل التصفية واعادة الحماية بعد الانتهاء من التصفية في هذا الكود Sub tasfia() 'ActiveSheet.Unprotect Application.ScreenUpdating = False Sheets("الدرجات").Range("A4:Q404").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Sheets("تصفية").Range("G3:H4"), CopyToRange:=Sheets("تصفية").Range("B6:Q406") _ , Unique:=False If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData End If [B7:O407].Interior.ColorIndex = xlNone [B7:O413].AutoFilter Field:=4, Criteria1:="<>" [B7].Select Application.ScreenUpdating = True End Sub جزاكم الله خيرا
