Membuat Password di MS.Word (Print)

Trik membuat password di MS.Word saat kita ingin print atau saat menekan CTRL+P disini kita menggunakan Visual Basic Editor. Visual Basic Editor terdapat pada:
Menu Tools ? Macro ? Visual Basic Editor



Gambar 1. Tampilan Menu Visual Basic Editor

Lalu nantinya akan muncul tampilan seperti ini:

Gambar 2. Tampilan Jendela Visual Basic Editor

Setelah itu klik kanan project normal lalu insert ? modules:

Gambar 3. Langkah membuat modul baru

Kemudian akan muncul jendela pengetikan program:

Gambar 4. Jendela Source Code Visual Basic Editor

Kode programnya seperti ini saat kita mengetik di dalam Jendela Source Code:

Sub FilePrint()
Dim txtPass
Dim txtMasuk
txtMasuk = "Sadam"
txtPass = InputBox("Masukkan Password", "Komputer Di
Password")
If txtPass = "" Then Exit Sub
If txtPass = txtMasuk Then
Dialogs(wdDialogFilePrint).Show
Else
MsgBox "Password Salah", vbCritical, "Konfirmasi"
End If
End Sub


Gambar 6. Tampilan jendela source code

Setelah itu lalu save dan keluar dari jendela visual basic editor.

Nah saatnya untuk praktek ambil salah satu file.doc yang ingin kita print lalu tekan CTRL+P untuk print nanti jika kode yang telah dibuat berhasil maka akan tampil seperti ini:

Gambar 7. Dialog konfirmasi untuk memasukkan password

Karena tadi kode yang kita buat inputan passwordnya menggunakan kata Sadam maka kita harus menginput kode tersebut dengan tulisan Sadam:

Gambar 8. Dialog konfirmasi password dan memasukkan password

Jika inputan benar maka akan masuk ke dialog print:

Gambar 9. Dialog print setelah memasukkan password dengan benar

Namun jika kita memasukkan sembarang inputan, misal:

Gambar 10. Memasukkan password sembarang

Maka akan tampil peringatan seperti:

Gambar 11. Konfirmasi password salah

Jika kita ingin aassword yang telah di set Sadam, namun kita bisa mengubah password
menjadi yang kita inginkan. Misal kita akan mengganti password Sadam menjadi Heru
maka ganti source codenya :

txtMasuk = "Sadam”
menjadi
txtMasuk = “Heru”