Memproteksi Printer dengan Password

Source code ini saya buat ketika sedang seru-serunya bermain Age of Mythology (Titan Expansion) tiba-tiba ada seorang gadis mengeluh bahwa Printer sering bermasalah kalau penggunaannya tidak dikontrol dengan pintar, kejadian-kejadian kecil sering menjadi pemicunya, seperti: menarik kertas secara paksa saat terjadi "paper jam", mengisi tinta beda merek tanpa ijin, atau membersihkan cartridge dengan kertas.

Kalau sudah begini keadaannya, proteksi itu penting, agar orang lain tidak sembarangan memakai. Bagaimana caranya?

1. Buka Microsoft Word (terserah, menggunakan Word 2000/xp/2003/2007) > tekan Alt + F11 untuk membuka VisualBasicEditor
2. Pada panel kiri, pilih: Normal > Microsoft Word Objects > lalu klik dua kali pada This Document (icon MS-Word)
3. Copy paste kode yang disertakan di bawah ini pada panel sebelah kanan
4. Tekan Ctrl + S untuk menyimpan perubahan

Efek yang terjadi jika kode tadi sudah terpasang pada GlobalTemplate di Microsoft Word adalah:
- Jika %user% mengeksekusi perintah mencetak (print) dengan menekan Ctrl + P, atau klik File > Print, atau klik toolbar printer
maka akan muncul kotak dialog yang meminta password printer. Jika password benar maka user baru berhadapan dengan dialog print
(seperti biasa) namun jika password yang dituliskan keliru, akan muncul pernyataan bahwa password salah dan system langsung menawarkan apakah document ini akan dihapus? Satu-satunya cara menyelamatkan adalah dengan menekan Esc atau klik Cancel. Kalau Anda klik OK maka document akan dihapus secara permanen.

Tidak bisa di-recover dari Recycle Bin ataupun memakai program recovery.

Saya sarankan: berikan password dan sembunyikan document di folder rahasia. Kami menyebutnya teknologi yang mengerti Anda.
- Seperti yang terlihat di SourceCode, passwordnya sangat gampang terlihat.

Ini dia source code yang bisa Anda gunakan untuk memproteksi printer (segala merek)
'-------------------------------------------------- copy-paste

'FileName       : FilePrint.bas
'Author         : r3cyclebin
'email          : ven0mday@gmail.com
'Description    :
'Akses ke File > Print atau Ctrl+P dipasangi password, jika isiannya dikosongkan
'ataupun password salah maka akan dianggap tindakan ilegal
'dan ditawari menghapus dokumen secara permanen (tidak singgah di Recycle Bin).
'Kalau macro ini akan dimodifikasi melalui ViewVBCode akan ada lagi interupsi password.
'Password Ctrl+P : "pandorasbox" dan ViewVBCode : "divineintervention"
'---------------------------------------------------------------------------------------
Sub FilePrint()
If InputBox("Access for authorized user only" & Chr(13) & "Enter current password" & Chr(13) & "Hint: invoke god's power in AOMX", "::: RESTRICTED AREA :::") = "pandorasbox" Then
MsgBox "Password Accepted!"
Dialogs(wdDialogFilePrint).Show
Else
Dim strFileToDelete As String
Dim docOpen As Document
Dim intDocCount As Integer
intDocCount = 0
For Each docOpen In Documents
   intDocCount = intDocCount + 1
Next docOpen
If intDocCount > 0 Then
   If MsgBox("Access denied" & vbCrLf & "Delete this file permanently?", vbYesNo) = vbYes Then
      If Len(ActiveDocument.Path) <> 0 Then
         strFileToDelete = ActiveDocument.FullName
         ActiveDocument.Close SaveChanges:=False
         Kill strFileToDelete
      Else
         ActiveDocument.Close SaveChanges:=False
      End If
   End If
Else
   MsgBox "File deleted. Mission accomplish!", vbOKOnly
End If
End If
End Sub
Sub ToolsMacro()
ViewVBCode
End Sub
Sub ViewVBCode()
If InputBox("Enter current password:", "Restricted Area") = "divineintervention" Then
Application.ShowVisualBasicEditor = True
End If
End Sub

'------- end of file