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?

.

hola lisandro...
copie el codigo que dices.. pero si envio una impresion desde archivo
imprimir, imprime sin pedir ninguna clave, debo hacer algo adicional para
que la persona que tenga acceso al archivo necesariamente tenga que
introducir clave..


muchas gracias

fredy
"Lisandro" wrote:

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?
>.
>

Hola fredy!

hola lisandro...copie el codigo que dices.. pero si

envio una impresion desde archivo imprimir, imprime sin
pedir ninguna clave..
...Amigo Freddy es extraño por ende bloquea hasta la vista
preliminar...Verifica que este lo allas copiado en el
Thisworbook y que quede copiado de la siguiente manera:
'1 Private Sub Workbook_BeforePrint(Cancel As Boolean)
'2 Select Case InputBox( _
'3 "Indica por favor tu clave de acceso.", _
'4 "Privilegios del impresor...")
'5 Case "123", "456"
'6 MsgBox "Clave aceptada. Iniciando proceso..."
'7 Case Else
'8 MsgBox "Por favor, llama al operador
correspondiente.", , _
'9 "Clave rechazada..."
'10 Cancel = True
'11 End Select
'12 End Sub

Los Nros son solo referencia eliminalos y deben quedar
copiados en ese orden..¿Te funciona cuando lo haces
directamente? Osea no desde el menu Archivo\Imprimir?

Espero te sirva,
Saludos
Lisandro.

hola lisandro...
copie el codigo que dices.. pero si envio una impresion

desde archivo

imprimir, imprime sin pedir ninguna clave, debo hacer

algo adicional para

que la persona que tenga acceso al archivo necesariamente

tenga que

introducir clave..


muchas gracias

fredy
"Lisandro" wrote:

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?
>.
>

.