Evitar imprimir las hojas del libro Excel

1. Con Excel abierto.

2. Pulsar la tecla Alt y mantener pulsada Pulsar la tecla F11. Mostrará el editor de Visual Basic.

3. Ir a: Explorador de Proyectos VBAProject Doble Clic sobre ThisWorkbook (libro). Si el panel no está visible Ir a: Barra de menú Ver Explorador de proyectos. Mostrará la ventana donde escribimos la macro.

   

4. Escribir el código de la macro:

   Private Sub Workbook_BeforePrint(Cancel As Boolean)

   Cancel = True

   End Sub

   - Workbook_BeforePrint. Hace referencia al evento que se produce antes
   de que se imprima el libro o cualquiera de sus partes.

   - Cancel = True. False cuando se produce el evento. Si el procedimiento
   de evento establece este argumento en True, el libro no se imprimirá
   al finalizar el procedimiento.

5. Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

6. IMPRIMIR. Ir a: Cinta de Opciones Pestaña: Archivo Imprimir Botón: Imprimir. Verificar como cualquier impresión es anulada.

Al imprimir la hoja muestra un mensaje de información sobre la prohibición de la impresión.

1. Escribir el código de la macro:

   Private Sub Workbook_BeforePrint(Cancel As Boolean)

   Cancel = True

   MsgBox "Información PRIVADA Y CONFIDENCIAL. Prohibida su impresión", vbInformation

   End Sub

   - Workbook_BeforePrint. Hace referencia al evento que se produce antes
   de que se imprima el libro o cualquiera de sus partes.

   - Cancel = True. False cuando se produce el evento. Si el procedimiento
   de evento establece este argumento en True, el libro no se imprimirá
   al finalizar el procedimiento.

   - MsgBox . Muestra mensaje con el texto entre comillas.

2. IMPRIMIR. Ir a: Cinta de Opciones Pestaña: Archivo Imprimir Botón: Imprimir. Verificar como muestra mensaje de información con el texto: Información PRIVADA Y CONFIDENCIAL. Prohibida su impresión.