پرسش ماکرو بستن کل اکسل ها

[Pbapba]

سلام دوستان در ان مورد یک کد و پست هایی در انجمن دیدیم ولی اونها فقط شیت یا فایل باز ما را میبست یا پنهان میکرد من میخواد راهنمایی کنید و دستوری بگید که کل فایل های اکسل باز در سیستم را یکجا ببنده

[Pbapba]

Private Sub close_all_Workbooks()


Dim wb As Workbook
For Each wb In Workbooks
wb.Save
wb.Close
Next wm




End Sub
اینو چور میشه به دکمه یوز فرم ارتباط داد که اگر شرط غلط بود اجرا بشه و همه اکسل را ببنده