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
source : ven0mday.blogspot.com
