Números de ID para controlar o CommandBar e Controlos.

Segunda, 29 Dezembro 2008 00:06 |

Escrito por Jorge Rodrigues |

Há dias, por e-mail, fizeram-me a seguinte pergunta (adaptada): "Gostaria que determinado workbook deixasse de imprimir se o valor da célula escolhida como contador, fosse igual a 3 e que a folha não pudesse ser visível com o chamado PrintPreview, nem impressa a partir do Menú Imprimir, mas apenas através do ícone de impressão".

O Código:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim nVal As Integer

    If Sheets(1).Range("A22500").Value = 3 Then
        MsgBox "Não pode imprimir mais nenhuma vez!..."
        Cancel = True
        Exit Sub
    Else

        nVal = Sheets(1).Range("A22500").Value
        nVal = nVal + 1
        Sheets(1).Range("A22500").Value = nVal
        MsgBox "Só pode imprimir mais!..." & 3 - nVal
    End If
End Sub

Private Sub Workbook_Open()

    For Each Ctrl In Application.CommandBars.FindControls(ID:=109)    ' Faz o disable do ícone Print Preview
        Ctrl.Enabled = False
    Next Ctrl


For Each Ctrl In Application.CommandBars.FindControls(ID:=4)    ' Faz o disable no Menu Ficheiro| Imprimir.
       Ctrl.Visible = False
    Next Ctrl

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    For Each Ctrl In Application.CommandBars.FindControls(ID:=109)    ' Faz o enable do ícone Print Preview
        Ctrl.Enabled = True
    Next Ctrl

    For Each Ctrl In Application.CommandBars.FindControls(ID:=4)    ' Faz o enable no Menu Ficheiro| Imprimir.
        Ctrl.Enabled = True
    Next Ctrl

End Sub

Tópicos relacionados:

	Hoje	24
	Ontem	197
	Esta semana	1678
	Este Mês	4093
	Todas	499545

EXCELer.org

Tudo sobre Excel em Portugues...

Perfil MVP

Autenticação

Online

Estatísticas

Números de ID para controlar o CommandBar e Controlos.