Video tutorial Macro y formulario para imprimir en Excel sólo con contraseña

En este Video tutorial muestro el cómo crear una macro que detecte el evento BeforePrint para que solicite una contraseña al momento de mandar a imprimir.

También se muestra la manera de usar el mismo código en un formulario personalizado para que el usuario ingrese la contraseña.

Código de la macro usando InputBox

Option Explicit
'
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Valor As String
Valor = InputBox("Para continuar imprimiendo por favor ingrese la contraseña.", "Impresión")
If Valor = "pass" Then
    'Imprime
Else
    MsgBox "Contraseña incorrecta.", vbExclamation, "Impresión"
Cancel = True
End If
End Sub

Código de la macro usando formulario (FE DE ERRATAS)

Se crea una variable pública en un módulo normal

Public Valor As String

El evento BeforePrint

Private Sub Workbook_BeforePrint(Cancel As Boolean)
UserForm1.Show
If valor = “pass” Then
Else
Cancel = True
MsgBox “Contraseña incorrecta.”
End If
End Sub

Botón Aceptar

Private Sub CommandButton1_Click()
Valor = Me.TextBox1.Value
Unload Me
End Sub

Botón Cancelar

Private Sub CommandButton2_Click()
Valor = “”
Unload Me
End Sub

Video tutorial

You may also like...

2 Responses

  1. pascal says:

    alguien que me ayude quiero hacer impresiones consecutivas desde excel son dos formularios impresos que debo llenas desde excel para mandar a imprimir a partir de una base de datos sera que algien me da una idea de como empesar a realizar esa macros

  1. May 28, 2013

    […] Video tutorial Macro y formulario para imprimir en Excel sólo con contraseña […]

Leave a Reply

Your email address will not be published. Required fields are marked *

%d bloggers like this: