Macro Impressão Excell

[fontana153]

Boa Tarde a todos do fórum,
Estou precisando de uma ajuda, criei uma planilha no Excel em que alguns campos são obrigatórios. Preciso que esta planilha não deixe salvar (esta parte eu consegui) e quando eu clicar em imprimir, a planilha tem de imprimir 2 folhas iguais e fechar o arquivo sem salvar (esta dando erro).
Sou iniciante em macro, por este motivo estou pedindo uma ajuda a vcs.

Segue o codigo abaixo.
Obrigado a todos desde já!

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Const Senha As String = "inserir a senha aqui"
Dim SenhaDigitada As String

SenhaDigitada = InputBox("Informe a senha para poder salvar a planilha:", "Salvar Planilha", "", 400, 300)

If Not SenhaDigitada = Senha Then
MsgBox "Senha incorreta. Esta planilha não pode ser salva.", vbInformation, "Mensagem"
SaveAsUI = False
Cancel = True
End If
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Cancel = True 'stop print
With ActiveSheet
Application.EnableEvents = False
.PrintOut 'print activesheet
Application.Quit = True
Application.EnableEvents = True
End With
End Sub

[Marciel Silva]

fontana153,
boa tarde!

Poste uma planilha de exemplo do que você precisa para ficar mais fácil te ajudar.

Att,