En formulario con contraseña para imprimir
Estoy programando un formulario para limitar que se pueda imprimir en Excel 2010 con el siguiente codigo:
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
End If
End Sub
al hacer click en el botón me manda un error que dice:
Error de compilación
no se puede encontrar el proyecto o la biblioteca.
Esto en la instrucción Cancel= True
****
1 respuesta
Al tratar de imprimir se abre el formulario que pide la contraseña, al poner la contraseña manda el error cuando la contraseña es incorrecta
En los eventos de Thisworkbook, pon lo siguiente:
Public correcto As Boolean ' Private Sub Workbook_BeforePrint(Cancel As Boolean) UserForm1.Show If correcto = False Then Cancel = True End If End Sub
Nota: la primera línea con la declaración de la variable "correcto" debe ir al inicio de todo el código.
Pon lo siguiente en el botón de tu userform:
Private Sub botonAceptar_Click() Dim valor As String valor = Me.Textpas.Value If valor = "fraga68" Then ThisWorkbook.correcto = True Unload Me Else ThisWorkbook.correcto = False MsgBox " contraseña incorrecta", vbExclamation, "Impresion" Unload Me End If End Sub
.
.Sal u dos. Dante Amor. R ecuerda valorar la respuesta. G racias
.
