Membuat pasword mengikuti tanggal komputer

Penggunaan password pada file excel dapat dikatakan sebagai sebuah kewajiban, terlebih jika kita ingin melindungi data kita dari pengguna atau oarang lain, atau jika kita menginginkan file excel yang berisi data penting hanya dapat dibuka oleh pengguna / orang tertentu (yang memiliki atau mengetahui password saja).

Membobol pasword sheet dengan macro

Pada umumnya sebuah password merupakan kombinasi dari angka, huruf, serta karakter tertentu yang biasanya sudah ditentukan terlebih dahulu oleh si pemilik file excel. Akan tetapi bagaimana jika kita menginginkan agar password yang kita miliki bersifat dinamis atau akan berubah secara otomatis sesuai dengan tanggal yang terdapat di komputer. Jadi password akan berubah seacara otomatis mengikuti kalender penanggalan yang ada pada system komputer anda.

Membuat Password Sesuai Dengan Tanggal Komputer

Ok jika anda ingin membuat password sesuai dengan tanggal komputer silahkan ikuti langkah langkahnya berikut ini

Buka excel dalam komputer anda

Masuk kejendela visual basic editor VBE

Buat modul dan ketikan kode macro ini dalam modul tersebut

Jika password yag anda inginkan sesuai dengan tanggal pada komputer anda

Sub PasswordSesuaiTanggal()
Passwordipa = Format(Date, "dd mmmm yyyy")
Select Case InputBox("Silahkan masukan password", _
"www.asis10.com")
Case Is = Passwordipa
MsgBox "Password yang anda masukkan benar sekali", _
vbCritical + vbOKOnly, "www.asis10.com"
Case Else
MsgBox "Maaf, Password yang anda masukkan salah, Aplikasi akan ditutup", _
vbCritical + vbOKOnly, "www.asis10.com"
Application.Quit
End Select
End Sub

Format tanggal yang digunakan adalah Tanggal Bulan tahun dengan cara penulisan 11 Oktober 2016

Jika password yag anda inginkan sesuai dengan nilai yang ada diworksheet anda tinggal rubah kode macro ini

Passwordipa = Format(Date, "dd mmmm yyyy")
Menjadi
Passwordipa = Sheets("Sheet1").Range("A1").value
Artinya pasword sesuai dengan kolom A1 pada sheet1
Sub PasswordSesuaiTanggal()
Passwordipa = Sheets("Sheet1").Range("A1").value
Select Case InputBox("Silahkan masukan password", _
"www.asis10.com")
Case Is = Passwordipa
MsgBox "Password yang anda masukkan benar sekali", _
vbCritical + vbOKOnly, "www.asis10.com"
Case Else
MsgBox "Maaf, Password yang anda masukkan salah, Aplikasi akan ditutup", _
vbCritical + vbOKOnly, "www.asis10.com"
Application.Quit
End Select
End Sub

Langkah terakhir adalah ketikan kode macro ini pada ThisWorkbook

Private Sub Workbook_Open()
PasswordSesuaiTanggal
End Sub

Karakter berupa huruf atau tanggal pada kolom password yang dimasukkan di dalam kotak dialog haruslah sesuai dengan tanggal yang terdapat pada komputer, dan dikarenakan password ini bersifat sensitif maka kesalahan penulisan karakter huruf, misal huruf kecil menjadi huruf kapital dan sebaliknya dibaca sebagai nilai yang salah.

Untuk lebih memahami tutorial ini, silahkan anda download contoh file Membuat pasword mengikuti tanggal komputer pada link download dibawah ini

Download File Membuat pasword mengikuti tanggal komputer
Link tersedia
Mau semua fle sampel silahkan klik > disini

Demikianlah cara Membuat pasword mengikuti tanggal komputer, semoga bermanfaat
No comments