مشکل با 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