จะบันทึกและปิดสมุดงานหลังจากไม่มีการใช้งานเป็นระยะเวลาหนึ่งได้อย่างไร?

ในบางครั้งคุณอาจปิดสมุดงานโดยไม่ได้ตั้งใจเมื่อคุณยุ่งกับงานอื่น ๆ เป็นเวลานานซึ่งอาจสูญเสียข้อมูลสำคัญบางอย่างในสมุดงาน มีเคล็ดลับในการบันทึกและปิดสมุดงานโดยอัตโนมัติหรือไม่หากคุณปิดใช้งานเป็นระยะเวลาหนึ่ง

บันทึกและปิดสมุดงานโดยอัตโนมัติหลังจากไม่มีการใช้งานเป็นระยะเวลาหนึ่งด้วย VBA

บันทึกและปิดสมุดงานโดยอัตโนมัติหลังจากไม่มีการใช้งานเป็นระยะเวลาหนึ่งด้วย VBA

ไม่มีฟังก์ชันในตัวใน Excel เพื่อแก้ปัญหานี้ แต่ฉันสามารถแนะนำรหัสมาโครซึ่งสามารถช่วยคุณในการบันทึกและปิดสมุดงานหลังจากไม่มีการใช้งานในช่วงเวลาหนึ่ง

1. เปิดใช้งานสมุดงานที่คุณต้องการบันทึกและปิดโดยอัตโนมัติหลังจากไม่มีการใช้งานเป็นเวลาหนึ่งวินาทีแล้วกด Alt + F11 กุญแจเพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 คลิก สิ่งที่ใส่เข้าไป > โมดูล เพื่อสร้าง a โมดูล สคริปต์และวางโค้ดด้านล่างลงไป ดูภาพหน้าจอ:

Dim CloseTime As Date
Sub TimeSetting()
    CloseTime = Now + TimeValue("00:00:15")
    On Error Resume Next
    Application.OnTime EarliestTime:=CloseTime, _
      Procedure:="SavedAndClose", Schedule:=True
End Sub
Sub TimeStop()
    On Error Resume Next
    Application.OnTime EarliestTime:=CloseTime, _
      Procedure:="SavedAndClose", Schedule:=False
 End Sub
Sub SavedAndClose()
    ActiveWorkbook.Close Savechanges:=True
End Sub

3. จากนั้นใน นักสำรวจโครงการ บานหน้าต่างให้ดับเบิลคลิก สมุดงานนี้และวางโค้ดด้านล่างลงในสคริปต์ด้านข้าง ดูภาพหน้าจอ:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call TimeStop
End Sub

Private Sub Workbook_Open()
    Call TimeSetting
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   Call TimeStop
   Call TimeSetting
End Sub

4. ไปดับเบิลคลิกที่โมดูลที่คุณใส่ในขั้นตอนที่ 2 แล้วกด F5 กุญแจสำคัญในการเรียกใช้รหัส ดูภาพหน้าจอ:

5. หลังจากนั้น 15 วินาทีจะมีกล่องโต้ตอบปรากฏขึ้นเพื่อเตือนให้คุณบันทึกสมุดงานแล้วคลิก ใช่ เพื่อบันทึกและปิดสมุดงาน

ทิปส์:

(1) ในรหัสแรกคุณสามารถเปลี่ยนเวลาที่ไม่มีการใช้งานเป็นเวลาอื่นในสตริงนี้: ตอนนี้ + TimeValue ("00:00:15")

(2) หากคุณไม่เคยบันทึกสมุดงานมาก่อนไฟล์ บันทึกเป็น กล่องโต้ตอบจะปรากฏขึ้นในตอนแรกและขอให้คุณบันทึก