Giúp code lưu và thoát hiện thông báo tiếng việt (1 người xem)

[minhtuan55]

Chào cả nhà GPE ! tình hình là em nghiên cứu nghiên cứu cả ngày chủ nhật mà làm được cái này thì cái kia không được, Bí quá nên nhờ mấy Thầy giúp đở. Em có thiết kế 1 chương trình đếm sản phẩm qua Cảm biến sensor trong nhà máy, em muốn người sử dụng chương trình này khi thoát chương trình thì có 2 trường hợp

Trường hợp 1: Click vào nút bấm "Thoát chương trình" thì 1 bảng thông báo hiện lên " Bạn có muốn thoát không"
- Chọn NO: không làm gì cả , và File vẫn nằm yên đó ( không lưu, không thoát )
- Chọn YES: + Nếu trên máy tính chỉ mở 1 file đó thì lưu xong rồi thoát luôn
+ Nếu máy tính mở nhiều file thì chỉ File đó Lưu và thoát thôi, mấy file Khác thì vẫn nằm yên đó

Trường hợp 2: Click vào nút X từ cửa sổ của File thì 1 bảng thông báo hiện lên " Bạn có muốn thoát không"
- Chọn NO: không làm gì cả , và File vẫn nằm yên đó ( không lưu, không thoát )
- Chọn YES: + Nếu trên máy tính chỉ mở 1 file đó thì lưu xong rồi thoát luôn
+ Nếu máy tính mở nhiều file thì chỉ File đó Lưu và thoát thôi, mấy file Khác thì vẫn nằm yên đó

Trường hợp 1 thì em viết code chạy chính xác 100%, nhưng trường hợp 2 thì em bó tay ( khi thoát nó hiện thông báo 2 lần và lưu 2 lần ). Em viết code như thế này mong mọi người chỉ giáo. Em xin chân thành cảm ơn

Sub thoatphanmem()
If Application.ExecuteExcel4Macro("ALERT(""" & Evaluate("demo") & """,1)") Then
    If Application.Workbooks.Count > 1 Then
      ThisWorkbook.Close (True)
    Else
      ThisWorkbook.Save
      Application.Quit
    End If
End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
thoatphanmem
End Sub

 

[ndu96081631]

Chào cả nhà GPE ! tình hình là em nghiên cứu nghiên cứu cả ngày chủ nhật mà làm được cái này thì cái kia không được, Bí quá nên nhờ mấy Thầy giúp đở. Em có thiết kế 1 chương trình đếm sản phẩm qua Cảm biến sensor trong nhà máy, em muốn người sử dụng chương trình này khi thoát chương trình thì có 2 trường hợp

Trường hợp 1: Click vào nút bấm "Thoát chương trình" thì 1 bảng thông báo hiện lên " Bạn có muốn thoát không"
- Chọn NO: không làm gì cả , và File vẫn nằm yên đó ( không lưu, không thoát )
- Chọn YES: + Nếu trên máy tính chỉ mở 1 file đó thì lưu xong rồi thoát luôn
+ Nếu máy tính mở nhiều file thì chỉ File đó Lưu và thoát thôi, mấy file Khác thì vẫn nằm yên đó

Trường hợp 2: Click vào nút X từ cửa sổ của File thì 1 bảng thông báo hiện lên " Bạn có muốn thoát không"
- Chọn NO: không làm gì cả , và File vẫn nằm yên đó ( không lưu, không thoát )
- Chọn YES: + Nếu trên máy tính chỉ mở 1 file đó thì lưu xong rồi thoát luôn
+ Nếu máy tính mở nhiều file thì chỉ File đó Lưu và thoát thôi, mấy file Khác thì vẫn nằm yên đó

Trường hợp 1 thì em viết code chạy chính xác 100%, nhưng trường hợp 2 thì em bó tay ( khi thoát nó hiện thông báo 2 lần và lưu 2 lần ). Em viết code như thế này mong mọi người chỉ giáo. Em xin chân thành cảm ơn

Sub thoatphanmem()
If Application.ExecuteExcel4Macro("ALERT(""" & Evaluate("demo") & """,1)") Then
    If Application.Workbooks.Count > 1 Then
      ThisWorkbook.Close (True)
    Else
      ThisWorkbook.Save
      Application.Quit
    End If
End If
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
thoatphanmem
End Sub

Tôi đã từng viết chương trình dạng này (khá hoàn chỉnh). Gửi lên cho bạn tham khảo
Chương trình bao gồm 4 module:
- Module modConst: Chứa các hằng số
- Module modVN: Chứa các hàm xử lý tiếng Việt Unicode
- Module modInitialize: Để khởi tạo chương trình
- Module modMain: Chứa các thủ tục riêng tùy ý người dùng đặt vào (muốn viết gì cứ viết ở đây)
Chương trình có liên quan đến việc thoát Excel bằng nút nhấn nên sẽ có thêm code trong sự kiện BeforeClose (trong This Workbook)