Impressão

Question

Boa tarde amigos

Gostaria de um ajuda de vcs.

Tenho 2 macros que gostaria de transformar um uma só.

Sendo o seguinte:
1º - quando estiver no horário das 20:00 as 23:00, imprime sem solicitar senha, ou seja, direto para impressora.
2º - quando estiver fora do horário das 20:00 as 23:00 - solicitar senha do admin.
Range("B10").Value = Range("B10").Value + 1
3º - se digitar a senha correta imprimir e fazer a função acima. 
4º - se cancelar não faça a função acima e não imprimir.

Desde já agradeço a ajuda.

Carlos H. Cordeiro

Sub MNormal()

        
    Sheets("INGRESSOS").Select
    Range("B10").Value = Range("B10").Value + 1
    Range("A1:C14").Select
    ActiveWindow.LargeScroll Down:=-1
    'Application.ActivePrinter = "Masculino em Ne02:"
    Selection.PrintOut Copies:=1, Collate:=True
        LblNrMNormal.Caption = Worksheets("REL_INGRESSOS").Range("A8")
    Range("B1").Select
    ActiveWorkbook.Save
                                BLOQ_HORARIO
End Sub


Sub BLOQ_HORARIO()
  If VBA.Hour(VBA.Now) < 20 Or VBA.Hour(VBA.Now) >= 23 Then
    If InputBox("Digite a senha de acesso.") <> "JANAINA" Then
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        MsgBox "Acesso negado.", vbExclamation
        Exit Sub
    End If
  End If
End Sub

Answer 1

Postagem cruzada em: http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=23010&p=116245

Ao postar sua pergunta em outro fórum, favor postar o link. Faz parte das boas práticas de convivência em fóruns.

---

Experimente algo como:

Sub Main()
    Select Case Hour(Now)
        Case 20 To 22
            Imprimir
        Case Else
            If InputBox("Qual a senha para impressão?") <> "suasenha" Then
                MsgBox "Senha incorreta!", vbExclamation
            Else
                Imprimir
            End If
    End Select
End Sub

Sub Imprimir()
    Sheets("INGRESSOS").Activate
    Range("B10").Value = Range("B10").Value + 1
    Range("A1:C14").Select
    'Application.ActivePrinter = "Masculino em Ne02:"
    Selection.PrintOut Copies:=1, _
                       Collate:=True
    LblNrMNormal.Caption = Worksheets("REL_INGRESSOS").Range("A8")
    Range("B1").Select
End Sub

---

http://www.ambienteoffice.com.br || Grupo de WhatsApp: https://chat.whatsapp.com/K1uey5Q4yJdKnsgWkVQAZG