Como bloquear a impressão de uma Pasta de Trabalho no Microsoft Excel?


Você já precisou “proibir” a impressão de uma Pasta de Trabalho?

Com esse pequeno código, o resultado é atingido com louvor.

Detalhe: Se estiver trabalhando com as versões 2007 ou 2010, não se esqueça de salvar a pasta de trabalho com a extensão *.XLSM (Pasta de Trabalho Habilitada para Macro do Excel) para que o procedimento continue funcionando ao salvar e fechar a Pasta de Trabalho.

Caso contrário, o código será removido do arquivo (nessas versões – 2007 e 2010 – todo o código (Macro) inserido em uma pasta de trabalho deve ser salvo com a extensão diferenciada.

Segue o Código que deverá ser colado no painel VBA da Pasta de Trabalho (a partir da planilha, pressione a tecla de atalho ALT+F11).


Pressione CTRL+R para abrir o painel de ProjetoVBAProject.

Dê um duplo clique no item EstaPasta_de_Trabalho

No painel de programação, na caixa de combinação Objeto, escolha a opção Workbook.

Na caixa de combinação Procedimento, escolha a opção BeforePrint.

Cole o seguinte código dentro do procedimento:

Private Sub Workbook_BeforePrint(Cancel As Boolean)

‘ Cancela o evento de impressão e informa ao usuário que ele não pode imprimir

Cancel = True

MsgBox “Que pena, você não têm permissão para imprimir essa Planilha!!!”, vbInformation

End Sub

Depois de executar essa ação, clique no ícone do Excel para voltar à planilha e tente realizar a impressão de qualquer planilha da pasta de trabalho.

Pronto! Salve e feche sua Pasta de Trabalho já “protegida” contra a impressão.

Até a próxima!

MAC

Anúncios

Inserindo o nome do usuário no rodapé das planilhas


Função que insere o nome do usuário logado na estação no rodapé de todas as planilhas. (funciona em qualquer versão de Excel)

Function USUARIO()

Dim WK

For Each WK In Worksheets

WK.PageSetup.LeftFooter = Environ("USERNAME")

Next

End Function

Inserir esse código na folha de módulo da Pasta de Trabalho no evento Workbook_Open()