Trik Membatasi Masa Waktu File Excel Dapat Disimpan dalam Komputer
Tip kali ini akan membahas tentang event Workbook_BeforeSave yang dicetuskan pada saat file workbook disimpan atau diselamatkan dalam komputer Anda.
Jadi menu Save atau Save As hanya dapat digunakan pada masa waktu tertentu yang dapat Anda tentukan, artinya perubahan data suatu file atau workbook Excel tidak akan tersimpan atau terselamatkan jika dilakukan di luar waktu yang telah ditentukan tersebut.
Seperti dalam contoh kode macro di bawah ini, file atau workbook hanya dapat disimpan pada jam kerja saja misalnya dibatasi antara pukul 8 pagi sampai dengan pukul 2 siang.
Untuk membuat kode macro-nya silakan Anda ikuti langkah-langkah berikut:
1. Buka sebuah file atau workbook untuk mempraktikkan tutorial ini.
2. Buka VBE dengan cara menekan Alt+F11, kemudian tekan Ctrl+R untuk memastikan jendela Project Explorer membuka.
3. Pada Project Explorer klik folder dengan nama Microsoft Excel Objects.
4. Dalam daftar di bawah Microsoft Excel Objects terdapat objek workbook dengan nama ThisWorkbook. Dobel-klik ThisWorkbook untuk memunculkan module workbook.
5. Pada kotak daftar pilihan Object pilih Workbook.
6. Pada kotak daftar pilihan Procedure pilih BeforeSave.
7. Tepat di bawah Private Sub Workbook_BeforeSave gunakan fungsi logis lalu tetapkan batas awal waktu dalam format 24 jam:
If VBA.Time < TimeValue("08:00") _
8. Tetapkan batas akhir waktu penyimpanan, kemudian tetapkan parameter Cancel menjadi True untuk menghentikan workbook jika dilakukan penyimpanan atau penyelamatan data:
Or VBA.Time > TimeValue("14:00") Then Cancel = True
9. Kode lengkapnya menjadi sebagai berikut:
If VBA.Time < TimeValue("08:00") _
Or VBA.Time > TimeValue("14:00") Then Cancel = True
End Sub
10. Kembali ke worksheet dengan cara menekan Alt+Q.
11. Silakan Anda uji coba macro yang Anda buat.
Demikian pembahasan tentang cara membatasi masa waktu file workbook Excel dapat disimpan di dalam komputer, semoga postingan ini bermanfaat.