Vô hiệu hóa nút cancel và dấu X khi thoát (2 người xem)

[authority]

em chào các anh ạ
các anh giúp em với
em có file như dưới
làm sao khi mình kích vào nút thoát thì có 3 lựa chọn:
Save, don't save,và cancel
vậy làm sao để nút cancel không đc hoặc nếu nhấn cancel thì excel thoát luôn càng tốt ạ
2.khi xuất hiện bảng quit thì có nút x trên bảng(mình kích vào thì tương tự cancel)
vậy làm sao vô hiệu hóa nó đc ạ
em cảm ơn các anh

 

[Hoàng Trọng Nghĩa]

em chào các anh ạ
các anh giúp em với
em có file như dưới
làm sao khi mình kích vào nút thoát thì có 3 lựa chọn:
Save, don't save,và cancel
vậy làm sao để nút cancel không đc hoặc nếu nhấn cancel thì excel thoát luôn càng tốt ạ
2.khi xuất hiện bảng quit thì có nút x trên bảng(mình kích vào thì tương tự cancel)
vậy làm sao vô hiệu hóa nó đc ạ
em cảm ơn các anh

Bạn nói đến nút thoát nào? Của Excel hay trên cái nút thoát của bạn?

Người ta đưa ra câu hỏi có save lại hay không, Có - Không - Hủy, tại sao nút HỦY cũng = với nút KHÔNG vậy? Hủy ở đây là "tôi bấm nhầm và chưa muốn thoát nên tôi CANCEL vậy thôi.

Còn nếu người ta bấm nút thoát của Excel thì phải làm sao?

 

[ndu96081631]

em chào các anh ạ
các anh giúp em với
em có file như dưới
làm sao khi mình kích vào nút thoát thì có 3 lựa chọn:
Save, don't save,và cancel
vậy làm sao để nút cancel không đc hoặc nếu nhấn cancel thì excel thoát luôn càng tốt ạ
2.khi xuất hiện bảng quit thì có nút x trên bảng(mình kích vào thì tương tự cancel)
vậy làm sao vô hiệu hóa nó đc ạ
em cảm ơn các anh

Thì đùng xài cái MsgBox của Excel nữa
1> Code trong Thisworkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If Chk = False Then
    Cancel = True
    Application.ExecuteExcel4Macro ("ALERT(""Ban phai bam vao nut 'QUIT' cua chuong trinh"",2)")
  Else
    If Workbooks.Count = 1 Then Application.Quit
  End If
End Sub

2> Code trong Module

Public Chk As Boolean
Sub CloseWb()
  Dim Ans As Long
  With CreateObject("WScript.Shell")
    Ans = .Popup("Ban có muon luu '" & ThisWorkbook.Name & "' khong?", , "THÔNG BÁO", vbYesNo)
  End With
  If Ans <> 2 Then
    Chk = True
    ThisWorkbook.Close (Ans = 6)
  End If
End Sub

Xong! Giờ chỉ có cách bấm vào nút của chương trình thôi

 

[authority]

Thì đùng xài cái MsgBox của Excel nữa
1> Code trong Thisworkbook:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If Chk = False Then
    Cancel = True
    Application.ExecuteExcel4Macro ("ALERT(""Ban phai bam vao nut 'QUIT' cua chuong trinh"",2)")
  Else
    If Workbooks.Count = 1 Then Application.Quit
  End If
End Sub

2> Code trong Module

Public Chk As Boolean
Sub CloseWb()
  Dim Ans As Long
  With CreateObject("WScript.Shell")
    Ans = .Popup("Ban có muon luu '" & ThisWorkbook.Name & "' khong?", , "THÔNG BÁO", vbYesNo)
  End With
  If Ans <> 2 Then
    Chk = True
    ThisWorkbook.Close (Ans = 6)
  End If
End Sub

Xong! Giờ chỉ có cách bấm vào nút của chương trình thôi

em cảm ơn anh nhiều ạ

 

[authority]

Xong! Giờ chỉ có cách bấm vào nút của chương trình thôi

anh cho em hỏi thêm với ạgiờ em tạo thêm 1 nút thế này ạ

 Nếu có lọc dữ liệu thì bỏ lọc dữ liệu

nhưng mà em viết code không đcanh viết dùm em với ạem cảm ơn anh

 

[Hoàng Trọng Nghĩa]

anh cho em hỏi thêm với ạgiờ em tạo thêm 1 nút thế này ạ

 Nếu có lọc dữ liệu thì bỏ lọc dữ liệu

nhưng mà em viết code không đcanh viết dùm em với ạem cảm ơn anh

Nếu thoát mà không Save lại thì dù có bắt nó bỏ lọc (AutoFilter) thì cũng chả có tác dụng gì! Còn nếu cho nó tự động Save lại thì vô hình chung, thoát mà hỏi Save hay không Save là hoàn toàn vô nghĩa vì bản thân nó đã tự save lại rồi.