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)
