Làm cách nào để lưu và đóng sổ làm việc sau khi không hoạt động trong một khoảng thời gian nhất định?
Trong một số trường hợp, bạn có thể vô tình đóng sổ làm việc khi bận việc khác trong thời gian dài, điều này có thể làm mất một số dữ liệu quan trọng trong sổ làm việc. Có thủ thuật nào để tự động lưu và đóng sổ làm việc nếu bạn đã tắt nó trong một khoảng thời gian nhất định không?
Tự động lưu và đóng sổ làm việc sau khi không hoạt động trong một khoảng thời gian nhất định với VBA
Tự động lưu và đóng sổ làm việc sau khi không hoạt động trong một khoảng thời gian nhất định với VBA
Không có hàm tích hợp sẵn trong Excel để giải quyết vấn đề này, nhưng tôi có thể giới thiệu một mã macro có thể giúp bạn lưu và đóng sổ làm việc sau khi không hoạt động trong một thời gian nhất định.
1. Bật sổ làm việc bạn muốn tự động lưu và đóng sau khi không hoạt động trong một vài giây nhất định, và nhấn Alt + F11 chìa khóa để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. nhấp chuột Chèn > Mô-đun để tạo ra một Mô-đun và dán mã bên dưới vào nó. Xem ảnh chụp màn hình:
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. Sau đó trong Trình khám phá dự án ngăn, nhấp đúp Sổ làm việc nàyvà dán mã bên dưới vào tập lệnh bên cạnh. Xem ảnh chụp màn hình:
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. Nhấp đúp vào mô-đun bạn đã chèn ở bước 2 và nhấn F5 phím để chạy mã. Xem ảnh chụp màn hình:
5. Sau đó, sau 15 giây, có một hộp thoại hiện ra để nhắc bạn lưu sổ làm việc và nhấp vào Có để lưu và đóng sổ làm việc.
Lời khuyên:
(1) Trong mã đầu tiên, bạn có thể thay đổi thời gian không hoạt động thành thời gian khác trong chuỗi này: Now + TimeValue ("00:00:15")
(2) Nếu bạn chưa bao giờ lưu sổ làm việc trước đây, Save As hộp thoại sẽ xuất hiện trước tiên và yêu cầu bạn lưu nó.
Bảo vệ trang tính
|
Kutools cho Excel's Bảo vệ trang tính chức năng có thể nhanh chóng bảo vệ nhiều trang tính hoặc toàn bộ sổ làm việc cùng một lúc. |
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!