Senin, 07 Februari 2011

Membuat Password pada File Documen di Microsoft Word



Terkadang kita ingin agar file documen yang kita buat tidak bisa begitu saja di print oleh orang lain, namun harus memasukan password terlebih dahulu agar bisa di print.
Berikut sedikit tips membuat password print pada file documen.
1. Buka dokumen yang akan anda seting
2. Tekan alt+F11 pada file tsb untuk membuka visual basic editor
3. Selanjutnya klik kanan project normal, kemudian insert lalu pilih modules
4. Kemudian masukan (bisa di ketik atau copy paste) syntax di bawah ini pada jendela source code visual basic editor
Sub fileprint()
Dim kunci
Dim kata
kunci = "ariz" 
kata = InputBox("Masukan Password", "Password")
If kata = "" Then Exit Sub
If kata = kunci Then
Dialogs(wdDialogFilePrint).Show
Else
MsgBox "Password Salah", vbCritical, "konfirmasi"
End If
End Sub
5. Setelah di copy atau di ketik pada jendela source code, kemudian klik file lalu pilih save kemudian tutup jendela visual basic editor.
 6.Cobalah tes dengan cara tekan ctrl+P pada file anda

Pada contoh di atas password/kata kunci yang di gunakan adalah ariz, anda dapat mengganti password/kata kunci yang anda inginkan dengan cara menggnti kata ariz pada kode syntax dengan kata yang anda inginkan.
Namun jangan hilangkan tanda "" pada syntax.


Contoh syntax sebelum di ganti


Sub fileprint()
Dim kunci
Dim kata
kunci = "ariz
kata = InputBox("Masukan Password", "Password")
If kata = "" Then Exit Sub
If kata = kunci Then
Dialogs(wdDialogFilePrint).Show
Else
MsgBox "Password Salah", vbCritical, "konfirmasi"
End If
End Sub

Contoh syntax yang sudah di ganti (misalkan anda ingin memakai kata bipbip untuk password)


Sub fileprint()
Dim kunci
Dim kata
kunci = "bipbip
kata = InputBox("Masukan Password", "Password")
If kata = "" Then Exit Sub
If kata = kunci Then
Dialogs(wdDialogFilePrint).Show
Else
MsgBox "Password Salah", vbCritical, "konfirmasi"
End If
End Sub

Kini passwordnya menjadi bipbip
Kemudian lakukan langkah ke 5 dan 6.

Semoga bermanfaat...


Artikel ini saya dedikasikan kepada para pemula seperti saya dan teman-teman saya yang banyak menanyakan ini kepada saya...


Artikel Terkait:

Tidak ada komentar :

Posting Komentar