هل يوجد كود لتحرير الذاكرة من الاكسس

اسف من الاكسل بدل الاكسس

السَّلامُ عَلَيْكُمُ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

أَسّْعَدْ الله اوْقَتَكُمْ بِكُلِ خَيّْر

عندي برنامج يفتح الاكسل عدة مرات ثم تمتلئ الذكرة هل يوجد كود يقفل الاكسل ويحرر الذاكرة منه مع العلم إني استخدمت اكود تقفل الاكسس لكن لاتحرر الذاكرة منه

من هذه الاكواد ولم تفلح معي

بارك الله فيكم

    	Dim xlApp As Excel.Application
    	Dim xlBook As Excel.Workbook
    	Dim xlSheet As Excel.Worksheet
    	'=========================
    	Set xlApp = CreateObject("Excel.Application")
    	Set xlBook = xlApp.Workbooks.Add
    	Set xlSheet = xlBook.Worksheets(1)
    	xlBook.Close SaveChanges:=False
    	Set xlBook = Nothing
    	xlApp.Quit
    	Set xlApp = Nothing
-----