Berikut ini susunan kode macro yang dapat anda tulis pada kode 'ThisWorkbook':
Private Sub Workbook_BeforeSave(ByVal X As Boolean, Y As Boolean)Adapun langkah-langkah pemrograman macro VBA adalah sebagai berikut:
If VBA.Time < TimeValue("07:30") _
Or VBA.Time > TimeValue("14:00") Then Y = True
End Sub
- Buka file Excel yang ada atau buat workbook baru sebagai contoh kemudian simpan [Save As] dengan jenis extensi file yakni ".xlsm".
- Tekan ALT+F11 untuk menampilkan VBE lalu pada panel VBAProject, buka 'ThisWorkbook' dengan cara di-double-klik atau klik kanan > View Code.
- Tulis kode di atas lalu buka kembali Excel kemudian tutup dan simpan file tersebut. Perintah macro akan bekerja pada saat file kembali dibuka.
0 Comments