Vầy hổng biết có được khôngChào GPE!
Em vô hiệu hóa button X của application và chỉ cho đóng bằng button EXIT (tự tạo) thì phải viết code thế nào vậy.
Em có mô tả trong sheet INTRODUCE ở file đính kèm.
Mong được mọi người hỗ trợ.
Public Chk As Boolean
Sub CloseWb()
Chk = True
ThisWorkbook.Close (True)
End SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)
If Chk = False Then
Cancel = True
MsgBox "Ban phai bam nut 'Exit Workbook' de dong file"
End If
End Sub2 code gần như giống nhau, chỉ khác 1 điểm là trong file của bạn dùng Application.Quit ---> Tôi nghĩ không nên! Vì mình đóng Wb của mình thôi chứ, cớ sao lại đóng toàn bộ Excel (bạn mở 3 file, nó đóng tất tần tật của bạn luôn)
Sub ex()
Dim wb As Integer
AllowClose = True
Application.IgnoreRemoteRequests = False
Application.DisplayAlerts = True
wb = Application.Workbooks.Count
If wb < 2 Then
Application.Quit
Else
ThisWorkbook.Close
End If
End Sub
Đây là cách làm của tôiAh!
Riêng vấn đề nay em mới giải quyết được bằng việc dùng code sau:
Xin được anh chỉ giáo thêm.PHP:Sub ex() Dim wb As Integer AllowClose = True Application.IgnoreRemoteRequests = False Application.DisplayAlerts = True wb = Application.Workbooks.Count If wb < 2 Then Application.Quit Else ThisWorkbook.Close End If End Sub
Public Chk As Boolean
Sub CloseWb()
Dim Ans As Long
With CreateObject("WScript.Shell")
Ans = .Popup(Evaluate("tb1"), , "THÔNG BÁO", vbYesNoCancel)
End With
If Ans <> 2 Then
Chk = True
ThisWorkbook.Close (Ans = 6)
End If
End SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)
If Chk = False Then
Cancel = True
Application.ExecuteExcel4Macro ("ALERT(""" & Evaluate("tb2") & """,2)")
Else
If Workbooks.Count = 1 Then Application.Quit
End If
End SubCó copy thì phải copy CODE VBA chứ! Chỉ copy mỗi BUTTON chả được tích sự gì
Ah...Em có copy ca code rồi mà nó vẫn ko chạy
Em đành làm cách nhấn vào nút thì quit luôn, ko hiển thị thông báo nữa
Dùng : Application.Quit
Không thể hỏi "chen ngang" kiểu vậy được
hì
Làm lại cho bạn phần thoát chương trình nhé
