Quiero saber como cancelar impresión

Tengo una caja de texto para que cuando se intente imprimir, pida una contraseña, si se teclea correctamente continua la impresión, de lo contrario se cancela la impresión. Pero esto no me funciona cuando se teclea la contraseña incorrecta y al cerrar la ventana con la POR manda imprimir.

Me pueden ayudar.

Private Sub botonAceptar_Click()

Dim valor As String
valor = Me.Textpas.Value
If valor = "fraga68" Then
Unload Me
Else
MsgBox " contraseña incorrecta", vbExclamation, "Impresion"
'Cancel = True
Application.PrintCommunication = False
End If

End Sub

2 respuestas

Respuesta
2

Creo entender que desde una macro llamas a un formulario para el ingreso de una contraseña, y a continuación se envía la impresión.

Imagino algo como esto. Donde se consulta el valor de una variable pública.

Public impre As Byte     'se declara variable utilizada en el UF
Sub llamaUF()
impre = 0
UserForm1.Show
If impre = 1 Then
    impre = 0
    ActiveSheet.PrintOut
End If
End Sub

Y en el formulario quedaría así:

Private Sub botonAceptar_Click()
Dim valor As String
valor = Textpas.Value
If valor = "fraga68" Then
    impre = 1    'se marca la variable
    Unload Me
Else
    MsgBox " contraseña incorrecta", vbExclamation, "Impresion"
End If
End Sub

Probalo y comentame. No olvides valorar la respuesta si el tema queda resuelto.

Respuesta
1

Este ejemplo es un formulario que solicita password, fíjate que solicita password

Y muestras filas por un par de segundos y se vuelven a ocultar.

Para terminar u salir de la macro usa

exit sub

Mira este ejemplo

https://youtu.be/GsEU-yDUJwI

Visita https://programarexcel.com  

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas