Prueba con lo siguiente, ajusta los nombres de tus controles.
La idea es una macro que revise cada cierto tiempo la hora. Yo puse que se revise cada 30 minutos, pero lo puedes ajustar a cada 10 minutos o cada 50 minutos.
Private Sub UserForm_Activate()
Call Reloj
End Sub
'
Sub Reloj()
'Por.Dante Amor
hora = Hour(Time)
Select Case hora
Case 16
'poner los controles que cambian de color a las 4
Label1.BackColor = &HFFFF80
TextBox1.BackColor = &HFFFF80
Case 17
'poner los controles que cambian de color a las 5
Label2.BackColor = &HFFFF80
TextBox2.BackColor = &HFFFF80
Case 18
Label3.BackColor = &HFFFF80
TextBox3.BackColor = &HFFFF80
Case 19
Label4.BackColor = &HFFFF80
TextBox4.BackColor = &HFFFF80
End Select
DoEvents
Application.OnTime Now + TimeValue("00:30:00"), "Reloj"
End Sub
'
Sub Limpiar_Colores()
'Poner todos los controles que cambian de color
Label1.BackColor = &H8000000F
Label2.BackColor = &H8000000F
Label3.BackColor = &H8000000F
Label4.BackColor = &H8000000F
TextBox1.BackColor = &H8000000F
TextBox2.BackColor = &H8000000F
TextBox3.BackColor = &H8000000F
TextBox4.BackColor = &H8000000F
End Sub
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.