تم رفع هذا الكود فى مشاركة منفصله
حتى لا ننسى هذه المشاركة
انشىء زر بورقة العمل و الحق به هذا الكود
Sub sort()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
End Sub
و لا تنسونا من صالح الدعاء
تحياتى