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