VBA ปิดการทำงานปุ่ม close window

[sutham]

หากต้องการปิดการทำงานของปุ่ม close window (ปุ่ม กากบาทมุมบนขวา) เนื่องจากผมได้ทำปุ่มสำหรับปิดโปรแกรม โดยเพิ่ม code ให้บันทึกงานอัตโนมัติ ผมลองพยายามปรับ code จากความรู้ที่ได้จาก อ. โดยใช้ ดังนี้ ใน ThisWorkbook

Code: Select all

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ExecuteExcel4Macro "SHOW.Title Bar(""Close"",False)"
End Sub

Private Sub Workbook_Open()
Application.ExecuteExcel4Macro "SHOW.Title Bar(""Close"",False)"
End Sub

พอลองรันดูปรากฎว่ายังไม่ได้ ปุ่มกากบาทมุมบนขวายังใช้งานได้อยู่ ผมรบกวนของคำแนะนำด้วยครับ

[snasui]

ดูตัวอย่างที่ Link นี้ครับ http://www.mrexcel.com/forum/excel-ques ... post743934

[sutham]

ดูตัวอย่างที่ Link นี้ครับ http://www.mrexcel.com/forum/excel-ques ... post743934

ทำได้แล้วครับ โดย code ที่ผมปรับใช้ คือ

Code: Select all

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If myFlg = True Then Exit Sub
Cancel = True
End Sub

แต่ปุ่มที่ผมเขียน code ไว้ ไม่สามารถสั่งให้ปิดได้ครับ

[snasui]

ในโพสต์ที่แนบไปมีการประกาศตัวแปร myFlg ไว้ในระดับ Public และมี Code สำหรับการปิดไฟล์ด้วย ลองทำมาให้ครบถ้วนและโพสต์มาในฟอรัมด้วย จะได้ช่วยตรวจสอบว่าเขียนมาถูกต้องหรือไม่ อย่างไรครับ