[حل شده] خروج از برنامه با شرط

[علی فاطمی]

با سلام و وقت بخیر
آیا امکان داره که برای بستن کامل اکسل شرطی گذاشت؟
یعنی به فرض اگر فقط یک فایل مثلا Book1 باز باشه کل اکسل بسته بشه ولی اگر غیر از Book1 فایل دیگری باز هست فقط Book1 بسته بشه و برنامه اکسل به همراه بقیه فایل ها همچنان باز باشه ؟
ممنون میشم راهنمایی بفرمایید .

[iranweld]

با سلام

کد ذیل را تست کنید

پسوند فایل book1 را در کدها درست وارد کنید xls یا xlsm

Sub Macro11BCloseAllWBs1()
Dim WB As Workbook

For Each WB In Workbooks
If WB.Name = "Book1.xlsm" Then
WB.Close SaveChanges:=True
End If
Next
End Sub 

[علی فاطمی]

با سلام

کد ذیل را تست کنید

پسوند فایل book1 را در کدها درست وارد کنید xls یا xlsm

Sub Macro11BCloseAllWBs1()
Dim WB As Workbook

For Each WB In Workbooks
If WB.Name = "Book1.xlsm" Then
WB.Close SaveChanges:=True
End If
Next
End Sub 

ممنون از توجه شما