Khi đóng Workbook xuất hiện câu thông báo Lưu/Không lưu bằng tiếng việt

[phuyen89]

Chào các bạn thành viên GPE.Cho mình hỏi có code mà khi mình nhấn nút Close thì nó xuất hiện cái Msgbox bằng tiếng việt để thông báo Lưu/Không lưu không.Cái Msgbox bằng TV thì mình biết viết nhưng mà không biết áp dụng.
Các điều kiện như:
- Các trường hợp xảy ra.Nếu mà mở Workbook mà có thay đổi thì mới xuất hiện hộp thoại Lưu.
- Nếu mà khi mở lên không thay đổi gì thì tắt nó không xuất hiện hộp thoại trên.
- Không cho cái hộp thoại Tiếng Anh của Excel nó xuất hiện nữa.

 

[liro]

Theo mình yêu cầu thứ 2 của bạn thừa thì phải.
Còn nếu muốn khi nhấn close mà xuất hiện hộp thoại MSG thì bạn vào VBAIDE trong mục MicrosoftExcelObject click đúp vào thisworkbook . Trong cửa sổ vừa hiển thị chọn danh sách ở góc bên trái từ General ->Workbook. Chọn sự kiện ở góc bên phải là Beforeclose. KHi đó se co 1 mã lệnh tự phát sinh như sau:
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Bạn đánh mã lệnh vào đây. Hiện msg hay ...vv

End Sub
Còn để không hiện MSG tiếng anh của nó mình không biết. Chỉ biết tắt tất cả các hộp thoại thì bạn gán thuộc tính DisplayAlerts = False là được.