Como bloqueo worksheets para que no puedan imprimirse?

Hola Argus02!
Este fue expuesto con anterioridad y funciona
perfectamente pruebalo..
Alt+F11 ve al Thisworbook y copia lo siguiente.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Select Case InputBox( _
"Indica por favor tu clave de acceso.", _
"Privilegios del impresor...")
Case "132", "156"
MsgBox "Clave aceptada. Iniciando proceso..."
Case Else
MsgBox "Por favor, llama al operador
correspondiente.", , _
"Clave rechazada..."
Cancel = True
End Select
End Sub

'Puedes cambiar los Nros "132" y "156" y colocar los de tu
preferencia. Este es la clave asignada hasta ahora.
'Cualquier duda comenta.
'Saludos
'Lisandro

Necesito compartir planillas con otros usuarios pero que

no puedan

imprimirse. Hay algun comando o alguna opcion en VB que

pueda ayudarme?

.