Bloquear impressão de planilha no excel

[nick4xd]

Bom dia pessoal. 

 

Tenho um documento com várias planilhas, e gostaria que, ao imprimir este documento, todas as planilhas que estiverem protegidas com senha, não fosse impressa com as demais que não estão protegidas.

 

É possível?

 

Att, 

 

Yago Cypriano

[deejaywesley]

Boa Tarde....

 

protegida eu nao sei nao, mas uso este aqui... ve se consegue adapitar....

 

'IMPRIMIR

Private Sub Workbook_BeforePrint(Cancel As Boolean)

On Error Resume Next

'abas que nao podem ser imprimidas

If ActiveSheet.Name = "plan1" Or ActiveSheet.Name = "plan3" Or ActiveSheet.Name = "plan5" Or ActiveSheet.Name = "Configurações" Then

Cancel = True

MsgBox "IMPRIMA  a  plan2,  ou a  plan4l -  Obrigado!", vbInformation, "VOCÊ ESTÁ TENTANDO IMPRIMIR A PLANILHA ERRADA!"

End If

 

End Sub

 

ah! tem que colocar em um modolu, ok!

[nick4xd]

No seu caso, você impede que apenas a Folha (Planilha) seja impressa, 

 

No meu caso, quero que, ao imprimir a pasta de trabalho inteira (Todas as Folhas), determinadas folhas não sejam impressas.

 

Sabe como posso fazer os seguintes comandos quando for solicitado a impressão, ou pressionado Ctrl+P:

    ThisWorkbook.Worksheets(Plan1).Visible = False    ThisWorkbook.Worksheets(Plan2).Visible = False    ThisWorkbook.Worksheets(Plan3).Visible = False

Tentei colocar os comandos acima dentro de um:

Private Sub Workbook_BeforePrint(Cancel As Boolean)End Sub

Mas não deu..

 

Se alguém souber como oculto certas planilhas no momento que for pressionado o botão de impressão ou pelo atalho Ctrl+P, eu agradeceria..

[nick4xd]

Consegui realizar uma macro que faz o que preciso. Ainda não é o ideal, mas já quebra um galho.

 

O que fiz, foi, em meu formulário, adicionar um botão para impressão com a seguinte rotina:

Private Sub cmdPrint_Click()    Dim mySheet As Object        Sheets("Assistente de Criação").Visible = False    Sheets("PADRÃO").Visible = False        For Each mySheet In Sheets        With mySheet            If .Visible = True Then .Select Replace:=False        End With    Next mySheet        Application.ScreenUpdating = False        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True        Sheets("Assistente de Criação").Visible = True        Sheets("PADRÃO").Visible = TrueEnd Sub Fonte: http://excelribbon.tips.net/T011600_Selecting_All_Visible_Worksheets_in_a_Macro.html

Se alguém souber como fazer o excel executar esta macro ao clicar em imprimir pelo menu do excel, ficaria completo.

Obrigado