Impedir impresion

Guillermo:

Te sirve esto?
Private Sub Workbook_BeforePrint(Cancel As Boolean)
mypassword = "soloyo"
yourpassword = "test"
words = "Por favor, introduce tu password. Solo tienes
una oportunidad."
topwords = "Trial Version - password requerido para
imprimir"
tester = InputBox(words, topwords)
If tester = mypassword Or tester = yourpassword Then
Else
MsgBox ("Lo siento. Fallaste, no puedo permitirte la
impresión.")
Cancel = True
Exit Sub
End If
MsgBox ("Password correcto. La impresión esta en curso")
End Sub

=
Pon esto en ThisWorkbook ya que esto es un evento.

como te daras cuenta en el ejemplo puedes utilizar 2
password... "soloyo" y "test".

Saludos
Servando Villalon

Hola grupo
Podrian indicarme una macro para inhabilitar la

impresion de las hojas?

Gracias
Sdos
Guillermo


.