Code không cho Save nếu không điền dữ liệu vào ô đã quy định

[khamha]

Nhờ các bạn viết cho mình cái Code như đã nêu ở trên,với điều kiện là khi ô BE4 có dữ liệu là x
thì mới cho Save hoặc SaveAs.Cảm ơn các bạn.

 

[Hai Lúa Miền Tây]

Nhờ các bạn viết cho mình cái Code như đã nêu ở trên,với điều kiện là khi ô BE4 có dữ liệu là x
thì mới cho Save hoặc SaveAs.Cảm ơn các bạn.

Thử code sau

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If [[COLOR=blue]BE4[/COLOR]] = "x" Then
        Cancel = False
    Else
        Cancel = True

End If

End Sub

 

[nghiaphuc]

Nhờ các bạn viết cho mình cái Code như đã nêu ở trên,với điều kiện là khi ô BE4 có dữ liệu là x
thì mới cho Save hoặc SaveAs.Cảm ơn các bạn.

Code chỉ cần như vầy thôi (code cho đối tượng ThisWorkbook nhé):

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If [BE4] <> "x" Then MsgBox "Ban phai nhap ""x"" vao o BE4 moi luu duoc": Cancel = True
End Sub