Notifications
Clear all

Impedir impressão de uma planilha

4 Posts
2 Usuários
0 Reactions
1,305 Visualizações
(@adrianoba)
Posts: 2
New Member
Topic starter
 

Boa tarde Pessoal,

Preciso de uma ajuda. Tenho uma planilha que possui muitas linhas e tenho que enviar por e-mail para várias pessoas, porem queria impedir a impressão dela.

Já usei o código:

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

Só que ele da um erro e ao clicar em ok para sair do erro a documento é impresso.

Alguém sabe de outro código para bloquear a impressão?

 
Postado : 04/08/2015 12:44 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Adriano, se forem só estas instruções que tem no evento, não é para ter erro algum.
Como está dizendo que está enviando por email, acredito que está salvando como habilitado para macros, e o ideal é enviar protegido, senão podem editar e retirar a rotina, uma outra observação é que se a pessoa abrir e não habilitar as macros vai conseguir imprimir de qualquer forma.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 04/08/2015 1:28 pm
(@adrianoba)
Posts: 2
New Member
Topic starter
 

Ola Mauro.

Então, quando vou salvar o próprio Excel pede para salvar nesse formato.

Estou anexando a planilha para você ver o erro.

 
Postado : 04/08/2015 1:47 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Adriano, se seu modelo for exatamente este que anexou, o problema está que logo apos a chamada do evento você tem um comentário que está iniciando com ASPAS (") e por isto gera o erro, todo comentário tem de estar precedido por apóstrofo, então ou elimine este comentário ou troque a aspa pelo apóstrofo.
"Cancela o evento......................

Editei só para reforçar o que citei no post anterior, esta rotina não funcionará e irá imprimir normalmente se ao abrirem o arquivo não Habilitarem as Macros, ou se habilitar e a pessoas tiver uma noção de vba poderá entrar no editor e apagar a rotina, sendo assim o ideal, para dificultar um pouco mais, seria deixar as abas ocultas e somente uma inicial visivel dizendo para habilitar as macros e o vba protegido por senha.

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/08/2015 5:13 am