Saberexcel - o site das macros

Impedindo a impressão se célula(A1) der diferença em determinada operação matemática.

Procedimento do Aplicativo Microsoft Excel VBA bloqueia a impressão quando der uma diferença em um determinado range
é só implementar o evento Workbook_BeforePrint com o procedimento abaixo, veja:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

If Range("A1").Value <> 0 Then
Msg = MsgBox("Valor de A1 é diferente de zero. Deseja realmente imprimir?", vbYesNo + vbCritical, "Saberexcel - site das macros")

If Msg = vbNo Then
Cancel = True
End If

End If
End Sub

'Código para o vba cancelar ou yes / no
'If Range("A1").Value <> 0 Then
' Msg = MsgBox("Valor de A1 é diferente de zero. Deseja realmente imprimir?", vbYesNo + vbCritical, "Saberexcel - site das macros")
' If Msg = vbNo Then
' Cancel = True
' End If
'End If



Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




  Baixe o exemplo de planilha com a macro acima
vba impressao se celula a1 for diferente de zero impede impressao (189.94 kB 2010-11-22 17:05:22)