จะบันทึกและปิดสมุดงานหลังจากไม่มีการใช้งานเป็นระยะเวลาหนึ่งได้อย่างไร?
ในบางครั้งคุณอาจปิดสมุดงานโดยไม่ได้ตั้งใจเมื่อคุณยุ่งกับงานอื่น ๆ เป็นเวลานานซึ่งอาจสูญเสียข้อมูลสำคัญบางอย่างในสมุดงาน มีเคล็ดลับในการบันทึกและปิดสมุดงานโดยอัตโนมัติหรือไม่หากคุณปิดใช้งานเป็นระยะเวลาหนึ่ง
บันทึกและปิดสมุดงานโดยอัตโนมัติหลังจากไม่มีการใช้งานเป็นระยะเวลาหนึ่งด้วย 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) หากคุณไม่เคยบันทึกสมุดงานมาก่อนไฟล์ บันทึกเป็น กล่องโต้ตอบจะปรากฏขึ้นในตอนแรกและขอให้คุณบันทึก
|
| Kutools สำหรับ Excel's ปกป้องแผ่นงาน ฟังก์ชันสามารถปกป้องแผ่นงานหลายแผ่นหรือทั้งสมุดงานพร้อมกันได้อย่างรวดเร็ว |
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
