[Hỏi] Sửa lỗi code VBA khi chọn "Cancel" hoặc "No"

Em có code này, khi chọn "Yes" thì code chạy bình thường, nhưng nếu chọn "Cancel" hoặc "No" thì nó hiện ra cửa sổ VBA. Em muốn khi chọn "Cancel" hoặc "No" thì nó không hiện ra bất kỳ cái gì mà kết thúc code luôn thì phải sửa code như thế nào ạ. Mọi người xem giúp em với ạ.

Sub Save_as_file_xls() Dim TenFilegoc As String Dim Duongdan As String TenFilegoc = ActiveWorkbook.Name Duongdan = ActiveWorkbook.Path ActiveWorkbook.SaveAs Filename:="" & Duongdan& "\" & TenFilegoc & "", FileFormat:=xlNormal,Password:="", WriteResPassword:="",ReadOnlyRecommended:=False, CreateBackup:=False End Sub

1./ Code đó là lưu file với chính tên của nó rồi nên mới hiện hộp thoại hỏi có ghi đè không. Vậy thì chỉ cần "ActiveWorkbook.Save" là xong
2./ Giả sử muốn dùng code đó thì thêm 2 dòng lệnh vào, như sau:

[Visual Basic] 纯文本查看 复制代码

Sub Save_as_file_xls()
    Dim TenFilegoc As String
    Dim Duongdan As String
    TenFilegoc = ActiveWorkbook.Name
    Duongdan = ActiveWorkbook.Path
    On Error Resume Next     ' Bỏ qua lỗi
    ActiveWorkbook.SaveAs Filename:=Duongdan & "\" & TenFilegoc, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    On Error GoTo 0        'Khôi phục lại việc bắt lỗi 
End Sub

Cảm ơn mọi người rất nhiều

Anh ơi, code này có ý nghĩa là lưu file với chính tên và đường dẫn đó, khi chạy code xuất hiện hộp thoại thông báo và e muốn khi nhấn Yes thì code save này chạy bình thường, còn khi nhấn "Cancel" hoặc "No" thì code save này không chạy anh ạ.