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


.

Gracias

Sdos
Guillermo

"Servando" escribió en el
mensaje news:1326001c3f7d8$7d49a1c0$
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


.

Servando escribió:

Te sirve esto?

Es muy bonita esta macro. Una solución perfecta.
Enhorabuena, Servando