sambil menunggu makro dari 'men-temen lain ...
mungkin gambaran kasarnya seperti ini:
(ditulis di "level workbook Module" / modul milik object ThisWorkbook)
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Const passwd As String = "tertentu"
Dim pas As String
If Application.ActivePrinter = "Canon IP 1600 on PC2:" Then
pas = InputBox("Masukkan password untuk Cetak di Canon IP 1600", _
"Cetak Dokument Excel")
If pas <> passwd Then
MsgBox "Anda tidak berhak !!", vbCritical, "Cetak Dokumen Excel"
Cancel = True
Exit Sub
End If
End If
Cancel = False
End Sub
--------------------------------------------------------------------------------
----- Original Message -----
From: jajang muhammad siddik
To: [email protected]
Sent: Thursday, March 18, 2010 7:53 PM
Subject: ]] XL-mania [[ Protect printer tertentu
Dear para master excel...
mau tanya ni..kalo kita mau memprotect excel supaya tidak bisa ngeprint
pada printer tertentu caranya gimana ya???
Contoh kasus :
dari excel kita dapat mencetak dokumen ke printer Canon IP 1300 di PC 1 dengan
bebas,
sedangkan untuk mencetak di printer Canon IP 1600 di PC 2 bisa, dengan sarat
memasukan password tertentu.....
Jadi form yang mau saya buat adalah ketika kita tekan CTRL+P atau menu print
maka
akan muncul pilihan printer yang akan mencetak dokument.
Ketika kita memilih Printer Canon IP 1300 on PC1 maka dokumen akan langsung
mencetak, sedangkan jika kita memilih printer Canon Ip 1600 on PC 2 maka
akan meminta password...
Demikian, mohon pencerahannya..........
Salam,
jajangms
