Hỏi: Code không cho đóng file khi chưa đủ điều kiện (1 người xem)

[pro8x]

Mọi người cho e hỏi code đóng file excel có điều kiện với ah.
Cụ thể:tại sheet 1. Nếu dữ liệu tại ô A1>0 thì khi đóng file sẽ hiện thông báo " Kiem tra lai du lieu" và không cho đóng file. Còn nếu ô A1=0 thì bt
Em xin cảm ơn

 

[Hoàng Trọng Nghĩa]

Bạn đặt vào module của ThisWorkbook sự kiện này:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    With Sheets("Sheet1")
        If .Range("A1") > 0 Then
            Cancel = True
            MsgBox "Kiem tra lai du lieu tai o A1 cua Sheet1"
            .Select
            .Range("A1").Select
        End If
    End With
End Sub