không cho tắt file excel (1 người xem)

[quochung2005]

có cách nào không cho tắt file ex khi nhấn vào nút đỏ (X) bên trên phải của EX như trong form không vậy, trong form thì dùng :
Private Sub Workbook_BeforeClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = 1
Exit Sub
nó sẽ không tắt được chỉ tắt bằng nút lệnh tự tạo như gắn nút Thoat : unload me
trong file EX thì làm sao monh các bác chỉ giúp
thân

 

[hoa35ktxd]

Bạn thử cái này xem
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub

 

[quochung2005]

cam on ban nhieu, mình có tạo một nút lệnh:
Sub close()
ActiveWorkbook.close
End Sub
để tắt thay cho nút lệnh tắt(X) bên trên phải của EX nhưng no tat không được, có cách nào để tạo một close để thay thế không?
thân

 

[hoa35ktxd]

Bạn thử nhé.

Dim BtClick As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If Not BtClick Then Cancel = True
End Sub
Public Sub My_Close()
    BtClick = True
    ActiveWorkbook.Close
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    BtClick = False
End Sub