วิธีบันทึกและปิดไฟล์ Excel โดยอัตโนมัติหลังจากช่วงเวลาที่ไม่ได้ใช้งาน
ในบางกรณีเช่นการทิ้งไฟล์ Excel ไว้บนดิสก์ที่แชร์เมื่อไฟล์ยังคงเปิดอยู่โดยผู้ใช้คนอื่นจะไม่สามารถแก้ไขเวิร์กบุ๊กได้ ดังนั้นจะปิดไฟล์โดยอัตโนมัติหลังจากช่วงเวลาที่ไม่ได้ใช้งานเพื่อความสะดวกในการทำงานของผู้อื่นได้อย่างไร? บทความนี้จะช่วยคุณเกี่ยวกับวิธี VBA
บันทึกและปิดไฟล์ Excel โดยอัตโนมัติหลังจากช่วงเวลาที่ไม่ได้ใช้งานโดยใช้รหัส VBA
บันทึกและปิดไฟล์ Excel โดยอัตโนมัติหลังจากช่วงเวลาที่ไม่ได้ใช้งานโดยใช้รหัส VBA
หากต้องการบันทึกและปิดไฟล์ Excel โดยอัตโนมัติหลังจากช่วงเวลาที่ไม่ได้ใช้งานโปรดทำดังนี้
1. เปิดสมุดงานที่คุณต้องการเพื่อให้บันทึกและปิดโดยอัตโนมัติหลังจากช่วงเวลาที่ไม่ได้ใช้งาน จากนั้นกดปุ่ม อื่น ๆ + F11 คีย์ร่วมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดดับเบิลคลิกที่ไฟล์ สมุดงานนี้ ในบานหน้าต่างด้านขวาเพื่อเปิดหน้าต่างรหัส จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างรหัส ดูภาพหน้าจอ:
รหัส VBA 1: บันทึกและปิดไฟล์ Excel โดยอัตโนมัติหลังจากช่วงเวลาที่ไม่ได้ใช้งาน
Dim xTime As String
Dim xWB As Workbook
Private Sub Workbook_Open()
'Updated by Extendoffice 2019/1/20
On Error Resume Next
xTime = Application.InputBox("Please specify the idle time:", "KuTool For Excel", "00:00:20", , , , , 2)
Set xWB = ActiveWorkbook
If xTime = "" Then Exit Sub
Reset
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
On Error Resume Next
If xTime = "" Then Exit Sub
Reset
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If xTime = "" Then Exit Sub
Reset
End Sub
Sub Reset()
Static xCloseTime
If xCloseTime <> 0 Then
ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , False
End If
xCloseTime = Now + TimeValue(xTime)
ActiveWorkbook.Application.OnTime xCloseTime, "SaveWork1", , True
End Sub
3. จากนั้นไปที่คลิก สิ่งที่ใส่เข้าไป > โมดูลแล้วคัดลอกและวางโค้ดด้านล่างลงในหน้าต่างโมดูล ดูภาพหน้าจอ:
รหัส VBA 2: บันทึกและปิดไฟล์ Excel โดยอัตโนมัติหลังจากช่วงเวลาที่ไม่ได้ใช้งาน
Sub SaveWork1()
'Updated by Extendoffice 2019/1/20
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
4 กด อื่น ๆ + Q พร้อมกันเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
5 คลิก เนื้อไม่มีมัน > บันทึกเป็น > หมวดหมู่สินค้า. ดูภาพหน้าจอ:
6 ใน บันทึกเป็น โปรดเลือกโฟลเดอร์ที่จะบันทึกไฟล์ตั้งชื่อตามที่คุณต้องการในกล่องชื่อไฟล์เลือก สมุดงานที่เปิดใช้งานแมโคร Excel จาก บันทึกเป็น ชนิด รายการแบบหล่นลงแล้วคลิกไฟล์ ลด ปุ่ม. ดูภาพหน้าจอ:
ตั้งแต่นี้เป็นต้นไปทุกครั้งที่เปิดสมุดงานนี้ก Kutools สำหรับ Excel กล่องโต้ตอบจะปรากฏขึ้น โปรดป้อนเวลาที่คุณจะบันทึกและปิดสมุดงานตามจากนั้นคลิกที่ไฟล์ OK ปุ่ม
และสมุดงานจะถูกบันทึกและปิดโดยอัตโนมัติหลังจากเวลาว่างที่ระบุไว้ ดูภาพหน้าจอ:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!