Kembali lagi ke atas

11 Nov 2008

Membuat Password pada Pencetakan Dokumen di Microsoft Word

Mencetak dalam Microsoft Word adalah hal yang sangat biasa. Namun bagaimana agar hanya orang-orang tertentu saja yang bisa mencetak dokumen Microsoft Word? Kalaupun mau mencetak, maka akan bertanya password-nya dulu.

Suatu saat mungkin kita menginginkan suatu privasi. Artinya hanya kita saja yang bisa mencetak dokumen di Microsoft Word. Ketika orang lain mau mencetak, maka dia harus memasukkan password dulu. Kalau passwordnya benar, maka di akan bisa mencetak, kalau salah maka proses pencetakan pun menjadi gagal.

Ini juga bisa kita gunakan agar seseorang tidak asal mencetak, di samping irit tinta dan kertas, kita pun akan dianggap jago computer, karena tidak setiap orang bias memperlakukan Microsoft word seperti itu. Paling banter kalau orang yang sentiment alias sirik, dengki menganggap kita orang pelit. Dalam materi ini kita berbicara ilmu, bukan pelit. He he he

Visual Basic Editor

Microsoft Word menyediakan fasilitas (tools), yang bisa kita gunakan untuk mengkonfigurasi sendiri fasilitas-fasilitas yang tidak ada, sesuai dengan kebutuhan kita. Visual Basic Editor, atau sering disebut VB Editor, merupakan fasilitas dari Microsoft word yang bisa kita gunakan untuk menyelesaikan berbagai permasalahan, yang tidak disediakan.

Membuka Visuall Basic Editor

Fasilitas VB Editor terletak di Menu Tools _ Macro _ Visual Basic Editor. Kita juga bisa menggunakan konfigurasi keyboard, dengan menekan secara bersamaan, yaitu Alt + F11, seperti gambar di bawah :







Setelah langkah pada Gambar 1 dilakukan, maka akan tampil jendela Visual Basic Editor.










Langkah selanjutnya, klik kanan project normal, kemudian insert _ Modules









kemudian muncul jendela untuk pengetikan program (source code), di bawah ini :














Kemudian ketikkan (copy-paste) kode di bawah di dalam jendela source code.

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









Setelah selesai kemudian klik File kemudian Save, lalu tutup jendela visual basic editor
Hasil dan Praktek
Sebelum kita memasukkan kode di atas maka ketika kita mengklik File
kemudian Print atau kombinasi keyboard Ctrl+P akan tampil dialog seperti di bawah :
















Namun setelah diketikkan code di Visual Basic Editor, maka ketika kita melakukan perintah mencetak (File kemudian
Print ataupun Ctrl+P), maka akan keluar dialog konfirmasi agar kita memasukkan password, seperti di bawah :





Kita harus memasukkan password yaitu Sy4m , seperti tampak pada gambar di bawah:







Jika kita memasukkan password benar maka akan keluar dialog Print seperti di bawah :















Namun jika kita sembarang memasukkan password, maka yang keluar adalah konfirmasi password salah

2 komentar:

Grab this Widget ~ Blogger Accessories