nhấn nút "Thoát" hiện MsgBox dạng vbYesNoCancel (1 người xem)

[Rùa Con 1080]

Chào mọi người!
Em có tạo một form chính, trên form chính có hai nút để mở hai form khác.
Em có sưu tầm code của bác VetMini vào nút thoát của form chính với ý định là :
1/nếu VbYes thì thoát form chính, lưu và thoát luôn Excel.
2/nếu VbNo thì thoát form chính thoát luôn Excel và không Lưu.
3/nếu VbCancel thí thoát form chính, còn excel(bang tính).
thế nhưng có trường hợp xảy ra là khi form chính hiện, nhân nút đề hiện form khác và làm việc xong nhấn thoát form này về lại form chính thì nhấn nút "Thoát" trên form chính và chọn No, thì thoát form chính, nhưng lại về lại excel và hiện bang có lưu hay không nữa

Sub DoClose_Click()   
    
  Select Case Application.Assistant.DoAlert("MsgBox", _
     "YES: Thoat - luu" & Chr(10) & "NO: Thoat - khong Luu" & Chr(10) & "CANCEL: Ve Sheet", _
  msoAlertButtonYesNoCancel, msoAlertIconCritical, msoAlertDefaultFirst, msoAlertCancelDefault, False)
Case vbYes:
    Unload frmMain
    ThisWorkbook.Save
    Application.Quit
Case vbNo:
    Unload frmMain
    Application.Quit
Case vbCancel:
    Unload frmMain
End Select       
   
End Sub

mong mọi người giúp đỡ.

 

[befaint]

Mới xong phần trần thuật sự việc, chưa biết bạn mong muốn giúp đỡ cái gì?

 

[giaiphap]

Bạn dùng thử lệnh này

ThisWorkbook.Saved = True

trước dòng

Application.Quit

và thử lại xem sao.

 

[Rùa Con 1080]

chổ

Case vbNo:
    Unload frmMain
    Application.Quit

là mình muốn nếu chọn "NO" thì thoát form và thoát luôn Excel, thế nhưng có làm việc trên form khác và thoát form khác về lại form chính nhấn "thoát" thì lại đòi lưu hay không?

 

[giaiphap]

chổ

Case vbNo:
    Unload frmMain
    Application.Quit

là mình muốn nếu chọn "NO" thì thoát form và thoát luôn Excel, thế nhưng có làm việc trên form khác và thoát form khác về lại form chính nhấn "thoát" thì lại đòi lưu hay không?

Thì mình kêu bạn thử đưa code trên vào trước chổ.

Application.Quit

Cụ thể là thế này.

Case vbNo:
    Unload frmMain
    ThisWorkbook.Saved = True 
    Application.Quit