Bagaimana cara menyimpan dan menutup buku kerja setelah tidak aktif untuk jangka waktu tertentu?
Terkadang, Anda mungkin secara tidak sengaja menutup buku kerja saat Anda sibuk dengan urusan lain dalam waktu lama yang mungkin kehilangan beberapa data penting di buku kerja. Apakah ada trik untuk menyimpan dan menutup buku kerja secara otomatis jika Anda telah menonaktifkannya selama jangka waktu tertentu?
Simpan otomatis dan tutup buku kerja setelah tidak aktif selama jangka waktu tertentu dengan VBA
Simpan otomatis dan tutup buku kerja setelah tidak aktif selama jangka waktu tertentu dengan VBA
Tidak ada fungsi bawaan di Excel untuk mengatasi masalah ini, tetapi saya dapat memperkenalkan kode makro yang dapat membantu Anda menyimpan dan menutup buku kerja setelah tidak ada aktivitas dalam waktu tertentu.
1. Aktifkan buku kerja yang ingin Anda simpan dan tutup secara otomatis setelah tidak ada aktivitas selama beberapa detik, dan tekan Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. klik Menyisipkan > Modul untuk membuat a Modul script, dan tempel kode di bawah ini. Lihat tangkapan layar:
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. Kemudian di Penjelajah Proyek panel, klik dua kali Buku Kerja ini, dan tempel kode di bawah ini ke skrip samping. Lihat tangkapan layar:
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. Pergi ke klik dua kali pada modul yang Anda masukkan pada langkah 2, dan tekan F5 kunci untuk menjalankan kode. Lihat tangkapan layar:
5. Kemudian setelah 15 detik, ada dialog muncul untuk mengingatkan Anda menyimpan workbook, dan klik Yes untuk menyimpan dan menutup buku kerja.
Tip:
(1) Di kode pertama, Anda dapat mengubah waktu tidak aktif ke lainnya dalam string ini: Now + TimeValue ("00:00:15")
(2) Jika Anda belum pernah menyimpan buku kerja sebelumnya, file Save As kotak dialog akan keluar terlebih dahulu dan meminta Anda untuk menyimpannya.
Lindungi Lembar Kerja
|
Kutools untuk Excel Lindungi Lembar Kerja fungsi dapat dengan cepat melindungi beberapa lembar atau seluruh buku kerja sekaligus. |
Alat Produktivitas Kantor Terbaik
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah
- Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
- Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!