سؤوال اذا سمحتوا

[Mharee Accounting Albaig]

السلام عليكم ورحمة الله وبركاته 

اني عندي ملف اكسل يحتوي على محرك بحث واضافة اوراق اكسل متضمنة كشف حساب لاي شخص تفتح له صفحة ( زبائن )  وصلت ألآن عدد الصفحات ( شيت ) الى 905 صحفة 

ولقد اصبح الملف عندي ثقيل في الحفظ بحث يتاخر خمس دقائق عند الحفظ لزبون جديد 

هلو يوجد حل لتسريع هذا الملف 

مع الشكر الجزيل 

[أبومروان]

وعليكم السلام ورحمه الله وبركاته 

اكواد لتحسين الاداء 

Sub OptimizePerformance()
    ' إيقاف التحديثات على الشاشة
    Application.ScreenUpdating = False
    ' إيقاف الحسابات التلقائية
    Application.Calculation = xlCalculationManual
    ' إيقاف الأحداث
    Application.EnableEvents = False
    ' إيقاف التنبيهات
    Application.DisplayAlerts = False
    ' إيقاف الحفظ التلقائي
    Application.AutoRecover.Enabled = False
  
    ' إعادة تمكين كافة الإعدادات بعد الانتهاء
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    Application.DisplayAlerts = True
    Application.AutoRecover.Enabled = True
End Sub