[حل شده] بستن اکسل بدون ذخیره

[kazem1359]

سلام کد زیر بابت بستن برنامه اکسل داده شده ولی وقتی اکسل را می خواهم ببندم فقط صفحه Workbook بسته میشه ولی من می خواهم کدی داشته باشم که با بستن برنامه اکسل کل اکسل بسته شود بدون اینکه فایل ذخیره شود و حتی پیغام اینکه فایل ذخیره شود داده نشود

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
End Sub

ممنون میشم راهنمایی کنید.

[kazem1359]

ممنون میشم راهنمایی نمایید

[میثم مقدم نیا]

سلام کد زیر بابت بستن برنامه اکسل داده شده ولی وقتی اکسل را می خواهم ببندم فقط صفحه Workbook بسته میشه ولی من می خواهم کدی داشته باشم که با بستن برنامه اکسل کل اکسل بسته شود بدون اینکه فایل ذخیره شود و حتی پیغام اینکه فایل ذخیره شود داده نشود

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
End Sub

ممنون میشم راهنمایی کنید.

سلام
دوست عزیز شما از کد زیر استفاده کنید ببینید مشکلتون حل میشه؟

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    ThisWorkbook.Saved = True
    Application.Quit

End Sub 

اگر می خواهید فایل ذخیره شود، باید آن را ذخیره کنید، زیرا با این کد فایل بدون ذخیره بسته می شود!

[kazem1359]

سلام حل شد ممنون مرسی