"วิธีการระงับการเปลี่ยนแปลงที่บันทึก" พร้อมท์เมื่อคุณปิดเวิร์กบุ๊กใน Excel

ตัวอย่างที่ 1: ปิดเวิร์กบุ๊กโดยไม่บันทึกการเปลี่ยนแปลง

เมื่อต้องการบังคับให้เวิร์กบุ๊กปิดโดยไม่บันทึกการเปลี่ยนแปลงใดๆให้พิมพ์โค้ดต่อไปนี้ในโมดูลของ Visual Basic ของเวิร์กบุ๊กนั้น:
 

    Sub Auto_Close ()

        ThisWorkbook = True

    End Sub

เมื่อมีการตั้งค่าคุณสมบัติที่บันทึกเป็นTrueแล้ว Excel จะตอบสนองราวกับว่าเวิร์กบุ๊กถูกบันทึกไว้แล้วและไม่มีการเปลี่ยนแปลงเกิดขึ้นตั้งแต่การบันทึกครั้งล่าสุด


คุณสมบัติDisplayAlertsของโปรแกรมสามารถใช้เพื่อวัตถุประสงค์เดียวกันได้ ตัวอย่างเช่นแมโครดังต่อไปนี้จะปิดDisplayAlertsปิดเวิร์กบุ๊กที่ใช้งานอยู่โดยไม่ต้องบันทึกการเปลี่ยนแปลงแล้วเปิดDisplayAlertsอีกครั้ง
 

    Sub CloseBook ()

        DisplayAlerts = False

        ActiveWorkbook

        DisplayAlerts = True

    End Sub

นอกจากนี้คุณยังสามารถใช้อาร์กิวเมนต์SaveChangesของวิธีการปิดได้อีกด้วย

แมโครดังต่อไปนี้จะปิดเวิร์กบุ๊กโดยไม่บันทึกการเปลี่ยนแปลง:
 

    Sub CloseBook2()

        ActiveWorkbook.Close savechanges:=False

    End Sub

ตัวอย่างที่ 2: ปิดเวิร์กบุ๊กและบันทึกการเปลี่ยนแปลง

เมื่อต้องการบังคับให้เวิร์กบุ๊กบันทึกการเปลี่ยนแปลงให้พิมพ์โค้ดต่อไปนี้ในโมดูลของ Visual Basic ของเวิร์กบุ๊กนั้น:
 

    Sub Auto_Close ()

        ถ้า ThisWorkbook = False แล้ว

            ThisWorkbook การบันทึกสิ้นสุดถ้า

    End Sub

subprocedure นี้จะตรวจสอบเพื่อดูว่าคุณสมบัติไฟล์ที่บันทึกไว้ถูกตั้งค่าเป็นFalseหรือไม่ ถ้าเป็นเช่นนั้นเวิร์กบุ๊กได้รับการเปลี่ยนแปลงตั้งแต่การบันทึกครั้งล่าสุดและการเปลี่ยนแปลงเหล่านั้นจะถูกบันทึก