Snasui Excel Forum

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

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

[quote="snasui"]:D ดูตัวอย่างที่ Link นี้ครับ http://www.mrexcel.com/forum/excel-questions/151952-visual-basic-applications-disable-workbook-close-button.html#post743934[/quote]
:thup: ทำได้แล้วครับ โดย code ที่ผมปรับใช้ คือ
[code]
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If myFlg = True Then Exit Sub
Cancel = True
End Sub
[/code] :D

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

:D ดูตัวอย่างที่ Link นี้ครับ http://www.mrexcel.com/forum/excel-questions/151952-visual-basic-applications-disable-workbook-close-button.html#post743934

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

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

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