Cara Membuat Password Sheet Excel Berubah-Ubah Sesuai Hari

Hai sobat semua, kali ini saya akan berbagi cara membuat password Sheet Excel Berubah-Ubah sesuai hari pada komputer kita. Tidak perlu banyak basa-basi yuk langsung saja kita praktekkan. 

Cara Membuat Password Sheet Excel Berubah-Ubah Sesuai Hari 
1. Buka Excel terserah mau file baru atau file lama yang akan anda beri password sheet 
2. Tekan ALT + F11, hal ini bertujuan untuk membuka Visual Basic 
3. Pada VBAProject klik kanan pilih Insert -> Module 
4. Buat Function untuk menampung password yang akan kita setting sesuai dengan hari pada komputer. ketikkan script sebagai berikut :

Private Function PasswordKu() As String 
Dim NoHari As Integer 
NoHari = Application.WorksheetFunction.Weekday(Now) 
PasswordKu = Choose(NoHari, "minggu", "senin", "selasa", "rabu", "kamis", "jum'at", "sabtu") 
End Function

5. Setelah Function Password selesai, kemudian kita buat Prosedur yang akan di exsekusi saat file di buka yakni sub Auto_Open(). Dimana dalam prosedur ini kita akan memprotect semua worksheet dengan Password yang telah kita tentukan sebagaimana langkah di atas. Penulisan di VBA adalah sebagai berikut :

Sub Auto_Open()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Protect PasswordKu
Next ws
End Sub

6. Setelah itu kita buat prosedur untuk menghapus password pada saat file ditutup, yakni Sub Auto_Close(). Penulisan di VBA nya adalah sebagai berikut :

Sub Auto_Close()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Unprotect PasswordKu
Next ws
End Sub

7. Setelah semuanya selesai simpan file dengan format .xlsm (macro-enabled)

Dengan demikian password sheet yang kita setting pada aplikasi file excel kita akan berubah setiap hari sesuai dengan hari pada tanggal komputer yang kita pakai, untuk contoh diatas kami mensetting hari dalam bahasa Indonesia, silahkan kalian kembangkan.

Demikian cara Membuat Password Sheet Excel Berubah-Ubah Sesuai Hari, jika ada yang kurang jelas bisa komen dibawah, terima kasih

Share this post