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