[حل شده] مشکل با On Error GoTo

[a.dal65]

با سلام

دوستان من توی Workbook_BeforeClose این کد رو قرار دادم :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox "لطفا منتظر بمانيد در حال تهيه نسخه پشتيبان", vbInformation + vbMsgBoxRight
On Error GoTo errHandler:
ThisWorkbook.SaveCopyAs Filename:="C:\bk\" & ActiveWorkbook.Name & "_" & Format(Now(), "yyyymmdd_hhmmss") & ".xlsm"
MsgBox "موفق", vbInformation + vbMsgBoxRight
errHandler:
MsgBox "خطاااااااااااااااا", vbCritical + vbMsgBoxRight
End Sub

هدفم از گذاشتن On Error GoTo errHandler: این بوده که اگه مثلا فولدر وجود نداشت یا هر خطایی رخ داد که عملیات backup گیری انجام نشد به کاربر اطلاع بده تا متوجه بشه .


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

ولی اگه فولدر وجود داشته باشه هم پیعام خطا میده هم پیغام موفق!!! (که نباید پیام خطا بده)

[Amir Ghasemiyan]

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

exit sub