Nhờ sửa code cho sub Workbook_BeforeClose (1 người xem)

[nghiaphuc]

Mình có ý tưởng Việt hóa thông báo của Excel khi đóng Workbook lại nhưng code không hoạt động như ý muốn (đặc biệt là khi có từ 2 workbook trở lên đang được mở)
Nhờ các bạn xem lại code giúp mình trong file đính kèm.
Mong các bạn giúp đỡ vì mình đang rất cần nó.
Xin cảm ơn tất cả!

 

[nghiaphuc]

Mình đã thử xử lý bằng cách chuyển toàn bộ đoạn code trong Sub Workbook_BeforeClose gán cho nút Close Thisworkbook và sử dụng thêm các hàm MsgboxUni và VNItoUnicode của bác TuanVNUNI để Việt hóa, mình thấy khá ổn. Các bạn xem và góp ý nhé.

 

[le tin]

Nhờ các bạn giúp mình đoạn code vào dấu ...
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If sheet1.[A1]=1 then
... 'Không đóng
End if
End sub

Cám ơn

 

[ptm0412]

Anh thay ... bằng Cancel = True