Snasui Excel Forum

Posted: **Mon Jun 08, 2015 10:07 pm**

หากต้องการปิดการทำงานของปุ่ม 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

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

Posted: **Tue Jun 09, 2015 12:15 am**

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

Posted: **Tue Jun 09, 2015 12:58 am**

snasui wrote: ดูตัวอย่างที่ 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 ไว้ ไม่สามารถสั่งให้ปิดได้ครับ

Posted: **Tue Jun 09, 2015 1:58 pm**

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

Snasui Excel Forum

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

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

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

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

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