Este fórum está sendo desativado

[OtavioGuimaraes]

Gostaria de saber se existe alguma forma de bloquear a impressão de uma planilha pelo menu Arquivo-Imprimir ,(Ctrl+P) ou pelo ícone da impressora através de uma macro. Pois, fiz uma macro que ao apertar um botão ela fará um comportamento na planilha e mandará imprimir automaticamente, porém preciso que só consigam imprimir através deste botão.

[osvaldomp]

Instale o código abaixo no módulo de "EstaPasta_de_trabalho".
O código desabilita para todo o arquivo, se você quiser desabilitar somente para uma planilha, adicione essa condição ao código.

Código: Selecionar todos

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 MsgBox "PARA IMPRIMIR CLIQUE NO BOTÃO"
 Cancel = True
End Sub

E no código que imprime via botão coloque algo assim:

Código: Selecionar todos

Sub ImprimePlanilha()
 With ActiveSheet
  Application.EnableEvents = False
 'outras instruções 
 .PrintOut
  Application.EnableEvents = True
 End With
End Sub

[OtavioGuimaraes]

Olá Osvaldomp,

Muito obrigado pela ajuda, as funções funcionaram direitinho!